Note: The other languages of the website are Google-translated. Back to English

Jak zastosować przycisk do wysyłania wiadomości e-mail z załączonym aktualnym plikiem Worda? 

Jeśli chcesz wysłać wiadomość e-mail z dokumentu programu Word za pośrednictwem programu Outlook i dołączyć również bieżący plik programu Word, możesz utworzyć przycisk polecenia, a następnie wysłać wiadomość, klikając ten przycisk bez otwierania programu Outlook. W tym artykule przedstawię, jak szybko i łatwo sobie z tym poradzić.

Zastosuj przycisk, aby wysłać wiadomość e-mail z załączonym aktualnym plikiem programu Word


Zastosuj przycisk, aby wysłać wiadomość e-mail z załączonym aktualnym plikiem programu Word

Wykonaj następujące kroki, aby rozwiązać to zadanie w pliku Word:

1. Najpierw należy utworzyć przycisk polecenia, kliknij Deweloper > Starsze narzędzia > Przycisk polecenia (formant ActiveX)zobacz zrzut ekranu:

przycisk doc, aby wysłać wiadomość e-mail 1

2. Wybierz przycisk i kliknij Właściwości pod Deweloper zakładka, w Właściwości okienku, wpisz potrzebny tekst podpisu w Podpis pole, patrz zrzut ekranu:

przycisk doc, aby wysłać wiadomość e-mail 2

3. Następnie zamknij Właściwości okienku, teraz kliknij prawym przyciskiem myszy przycisk i wybierz Wyświetl kodzobacz zrzut ekranu:

przycisk doc, aby wysłać wiadomość e-mail 3

4. A potem w wyświetlonym Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod między oryginalnymi skryptami, zobacz zrzut ekranu:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

przycisk doc, aby wysłać wiadomość e-mail 4

Uwagi: W powyższym kodzie należy zmienić temat, treść lub adres wysłany zgodnie z potrzebami.

5. Następnie zapisz i zamknij ten kod, kliknij Tryb projektowania aby wyłączyć tryb projektowania. Teraz, po kliknięciu utworzonego przycisku polecenia, zostanie utworzony e-mail z aktualnym dokumentem Worda jako załącznikiem, patrz zrzut ekranu:

przycisk doc, aby wysłać wiadomość e-mail 5

6. W końcu wystarczy kliknąć Wyślij aby wysłać tę wiadomość.


Zalecane narzędzia zwiększające produktywność programu Word

 

Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu

  • Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
  • Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
  • Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
  • Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
  • Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...
Sortuj komentarze według
Komentarze (29)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Staram się, aby wiadomość e-mail została wysłana z tematem będącym treścią jednego z moich pól. czy to możliwe?
Ten komentarz został zminimalizowany przez moderatora na stronie
Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Dziękuję bardzo.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam Rozszerz zespół biurowy,

Uważam, że „xEmile” jest błędnie napisane. Powinien to być 'xEmail'.

Gdy kod działa i nie ma problemu, poniższa instrukcja nic nie zrobi:

Ustaw xEmail = Nic
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Abhi,
Dziękuję za komentarz, jak powiedziałeś, 'xEmile' jest błędnie napisane, powinno być 'xEmail'. Zaktualizowałem kod.
Jeszcze raz dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można to zrobić, aby wysłać tylko jedną stronę dokumentu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Don,
Aby poradzić sobie z zadaniem, zastosuj poniższy kod,w kodzie należy zmienić stronę początkową i końcową na własną:

Private Sub CommandButton1_Click ()

Dim xCurPageStart jako długi, xCurPageEnd jako długi, xCurPageRange jako zakres

Dim xCurPage jako liczba całkowita, xPages jako liczba całkowita

Dim xOutlookObj jako obiekt

Dim xEmail jako obiekt

Dim xDoc jako dokument, xNewDoc jako dokument

Dim xFilePath jako ciąg

Wym. xStaryPoczątek Jak Długi, xStaryKoniec Jak Długi

On Error Resume Next

Application.ScreenUpdating = Fałsz

Ustaw xOutlookObj = CreateObject("Outlook.Application")

Ustaw xEmail = xOutlookObj.CreateItem(olMailItem)

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

Ustaw xDoc = Aktywny dokument

xOldStart = xDoc.Aplikacja.Wybór.Start

xOldEnd = xDoc.Aplikacja.Wybór.Koniec

xDoc.Zapisz

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'załączony plik to nazwa pliku załącznika, zmień według potrzeb

xCurPageStart = 2 'strona startowa

xCurPageEnd = 2 'strona końcowa

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(co:=wdGoToPage, Who:=wdGoToNext, Name:=xCurPageStart).Start

Jeśli xCurPage = xPages Wtedy

xCurPageEnd = ActiveDocument.Content.End

Więcej

xCurPageEnd = Selection.GoTo(co:=wdGoToPage, Who:=wdGoToNext, Name:=xCurPageEnd + 1).Start

End If

Ustaw xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Wybierz

xCurPageRange.Kopiuj

Ustaw xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Aktywuj

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 NazwaPliku:=xFilePath

xNewDoc.Zamknij

xDoc.Range(xOldStart, xStarEnd).Wybierz

Z xE-mailem

.Temat = "Dane faksu"

.Body = "To jest testowy e-mail."

.To = "rr@addin99.com"

.Importance = olImportanceNormal

.Załączniki.Dodaj xFilePath

.Pokaz

Kończyć z

VBA.Kill xFilePath

Ustaw xDoc = Nic

Ustaw xEmail = Nic

Ustaw xOutlookObj = Nic

Application.ScreenUpdating = True

End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Zrobiłem formularz do wypełnienia w MS word. Użyłem starszych narzędzi do obliczeń itp. Dodałem również przycisk przesyłania, który służy do wysłania formularza na e-mail. Problem polega na tym, że kiedy ponownie otwieram ten dokument po zapisaniu, to nie działa. Próbowałem nawet zapisać go jako dokument z obsługą makr, ale bezużyteczny. Czy możesz mi pomóc?
Podziękowania
Ten komentarz został zminimalizowany przez moderatora na stronie
Miałem to na początku, a potem z jakiegoś powodu teraz wyświetla mi się błąd 429 o składniku activeX, który nie może utworzyć obiektu. dosłownie skopiowałem i wkleiłem. To działało wcześniej, ale właśnie zmieniłem rozmiar czcionki, zwiększyłem przycisk i zmieniłem podpis. nie wydaje mi się, że przypadkowo zmieniłem jakieś inne ustawienia? jakiś pomysł, co to może być?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć! Chciałbym, aby przycisk polecenia wysyłał wiadomość e-mail z dokumentem Word jako treścią wiadomości e-mail (mój dokument Word to formularz). Czy jest na to sposób?
Ten komentarz został zminimalizowany przez moderatora na stronie
Chciałbym, aby mój dokument został wysłany jako dokument PDF, a nie dokument Word.
Ten komentarz został zminimalizowany przez moderatora na stronie
Na przykład używając tekstu z pola tekstowego/pola tekstowego w dokumencie Word i wstawiając go jako tekst w wierszu tematu wiadomości e-mail?
Ten komentarz został zminimalizowany przez moderatora na stronie
Tak, to też jest to, o co mi chodzi, czy ktoś może pomóc w tej prośbie?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy to działa również w przypadku programu Lotus Notes?
Co muszę zmienić w "xOutlookObj"?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam Rozszerz biuro,
Czy możemy ustawić inny adres e-mail niepołączony z Outlookiem? Lubisz bezpośredni e-mail na konto GoDaddy?
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbuję znaleźć te same informacje. Korzystam z Gmaila i muszę utworzyć formularz do wysłania na różne adresy e-mail, które będą automatycznie przesyłane z powrotem na moje konto Gmail.
Ten komentarz został zminimalizowany przez moderatora na stronie
Utworzyłem dokument, ale teraz mój problem polega na tym, że jeśli wyślę ten formularz do 4 osób do wypełnienia, kiedy otworzą go z załącznika wiadomości e-mail, otwiera się on w trybie tylko do odczytu, a po kliknięciu prześlij prosi o zapisanie, jak poprzednio pozwoli to kodowi otworzyć adres e-mail zaadresowany do mnie. Czy można to obejść poza podaniem lokalizacji pliku?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy możesz dodać UDW do tego kodu? Próbowałem dodać UDW i otrzymałem błąd kompilacji dla oczekiwanego wyrażenia.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Heather,

Możesz dodać UDW do tego kodu. Na przykład możesz dodać .Bcc = "zmt@addin99.com" tuż poniżej .To = "yy@addin99.com". Więc kod staje się:

Dim xOutlookObj jako obiekt
Dim xEmail jako obiekt
Przyciemnij xDoc jako dokument
Application.ScreenUpdating = Fałsz
Ustaw xOutlookObj = CreateObject("Outlook.Application")
Ustaw xEmail = xOutlookObj.CreateItem(olMailItem)
Ustaw xDoc = Aktywny dokument
xDoc.Zapisz
Z xE-mailem
.Temat = "Dane faksu"
.Body = "To jest testowy e-mail."
.To = "rr@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Załączniki.Dodaj xDoc.FullName
.Pokaz
Kończyć z
Ustaw xDoc = Nic
Ustaw xEmail = Nic
Ustaw xOutlookObj = Nic
Application.ScreenUpdating = True

Proszę zobaczyć załączony obrazek. Miłego dnia.
Pozdrawiamy,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć chłopaki,

Chcę zastosować przycisk, w którym klikam i wysyłam dokument jako e-mail, a nie jako załącznik, na jeden adres e-mail. Aby dokument był tekstem e-maila. Podobnie jak efekt przycisku „wyślij do odbiorcy” na wstążce.

Czy ktoś może mi podać odpowiedni kod do tego?

Dziękuję Ci.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Być może kod nie może pomóc w wysłaniu bieżącego dokumentu Word jako treści wiadomości e-mail, jeśli to zrobisz, obraz i formatowanie pliku w dokumencie zostaną utracone.
Jeśli chcesz wysłać bieżący dokument jako treść wiadomości e-mail, korespondencja seryjna może wyświadczyć ci przysługę.
Czy potrzebujesz korespondencji seryjnej do wysyłania wiadomości e-mail?
Jeśli potrzebujesz, proszę o komentarz tutaj.
Dziękuję Ci!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

dziękuję za pomoc!

Spróbowałbym tego z twoją sugestią. Więc tak, potrzebuję korespondencji seryjnej do wysyłania wiadomości e-mail.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,

dziękuję za pomoc!

Spróbowałbym tego z twoją sugestią. Czy możesz podać kod do korespondencji seryjnej?

Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Aby wysłać bieżący dokument Word jako treść wiadomości e-mail, możesz dodać Wyślij do odbiorcy poczty polecenie do twojego Katar, zrób tak:
1. Otwórz plik tekstowy, który chcesz wysłać, a następnie kliknij filet > Opcje.
2. W lewym okienku wybierz Pasek narzędzi szybkiego dostępu.
3. wybierać Polecenia, których nie ma na Wstążce z Wybierz polecenia z.
4. Wybierz i wybierz Wyślij do odbiorcy poczty i kliknij przycisk Dodaj>>.
5. kliknij OK aby zamknąć okno dialogowe.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Teraz to Wyślij do odbiorcy poczty polecenie pojawi się w Pasek narzędzi szybkiego dostępu u góry okna programu Word. Następnie możesz wstawić odpowiednie informacje do nagłówka wiadomości. Po zakończeniu informacji proszę kliknąć Wyślij kopię, wiadomość z aktualnym dokumentem Word jako treścią zostanie wysłana natychmiast.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Spróbuj tego, mam nadzieję, że może ci to pomóc!
Ten komentarz został zminimalizowany przez moderatora na stronie
Zauważyłem, że przycisk działa, aby otworzyć wiadomość e-mail, ale podczas korzystania z korespondencji seryjnej przycisk VBA staje się z jakiegoś powodu nieaktywny?
Jak mogę się upewnić, że podczas korzystania z korespondencji seryjnej przycisk będzie działał, aby użytkownik mógł wypełnić formularz, a następnie aktywować przycisk?
Ten komentarz został zminimalizowany przez moderatora na stronie
Część Mike,
Gdy korzystam z funkcji korespondencji seryjnej, przycisk jest aktywny.
Czy mógłbyś bardziej szczegółowo wyjaśnić swój problem?
Możesz też przesłać swój plik tutaj, abyśmy mogli sprawdzić, gdzie jest problem.
Dziękuję Ci!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Skyyang,

Proszę zobaczyć post, który umieściłem poniżej, który ma załączoną kopię.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Proszę zapoznać się z dokumentem załączonym poniżej.
Muszę go zaktualizować, aby korzystać z odnowień w 2023 r., a podczas łączenia przycisk wydaje się być wyłączony, ponieważ kilku członków powiedziało mi, że nie działa.

Dzięki,

Mike
Ten komentarz został zminimalizowany przez moderatora na stronie
Część Mike,
Przetestowałem twój plik na moim komputerze, działa dobrze. Korzystam z pakietu Office 2019. Zobacz poniższą prezentację:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Skyyang,

Odkryłem, że to działa, gdy użytkownik ma MS Word, ale wydaje się, że e-maile takie jak @hotmail; @gmail; i @live adresy e-mail, w przypadku których użytkownicy mają problemy z niedziałającym przyciskiem?
Wygląda na to, że nie działa również na smartfonach, jeśli użytkownik polega na ich użyciu, a nie na komputerze.
Wreszcie otrzymałem odpowiedź od innego użytkownika korzystającego z systemu Windows 11, w którym przycisk w ogóle nie działa.

Jakie były Twoje doświadczenia z powyższymi przykładami?

Dzięki,

Mike
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL