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:

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:

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

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 = ""
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

Note: 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:

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

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie Czytaj więcej Kup teraz

Comments (30)

No ratings yet. Be the first to rate!

Stephane Parzysz

about 3 months ago

#44552

This comment was minimized by the moderator on the site

Hey, in my case the button works well but not in a Word document saved with a password. Can somebody help me to fix this?
Best regards

about 1 year ago

#42138

This comment was minimized by the moderator on the site

Hi Skyyang,

I found this works when a user has MS Word but it seems emails like @hotmail; @gmail; and @live email addresses those users have issues where the button doesn't work?
It seems it also doesnt work on smart phones either if the user relies on using these as opposed to a computer.
Lastly I've had a response from another user using Windows 11 where the button doesn't work at all.

What have you experienced with the above examples please?

Thanks,

Mike

Report

about 1 year ago

#41641

This comment was minimized by the moderator on the site

Hi,
Please see the document attached below.
I need to update it for the 2023 renewals use and when merging the button seems to become disabled as several members told me it doesnt work.

Thanks,

Mike

View Attachments (1 / 5)

Report

skyyang

about 1 year ago

#41738

This comment was minimized by the moderator on the site

Hello, Mike,
I have tested your file in my computor, it wors well. I am using Office 2019. Please see the below demo:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif

Report

about 1 year ago

#41477

This comment was minimized by the moderator on the site

I have found the button works to open an email but when using mailmerge the VBA button becomes inactive for some reason?
How can I ensure when mailmerging is used the button will work for user to complete the form and then activate the button please?

Report

skyyang

about 1 year ago

#41566

This comment was minimized by the moderator on the site

Hello, Mike,
When I use mailmerge feature, the button is in active.
Could you explain your problem more detailed?
Or you can upload your file here, so that we can check where the problem is.
Thank you!

Report

skyyang

about 1 year ago

#41710

This comment was minimized by the moderator on the site

Hi Skyyang,

Please see the post I put in below which has the copy attached.

Report

hpeyeease

about 1 year ago

#39310

This comment was minimized by the moderator on the site

Hello folks,

I want to apply a button where I click and send the document as email, not as an attachement, to one Email-Adress. So that the document is the text of the email. Just like the effekt of the button "send to recipient" on the ribbon.

Can someone give me the right code for that?

Thank you.

skyyang hpeyeease

about 1 year ago

#39356

This comment was minimized by the moderator on the site

Hello,
May be the code can't help to send the current word document as the email body, if to do, the picture and file formatting within the document will be lost.
If you want to send the current document as email body, the Mail Merge can do you a favor.
Do you need the Mail Merge for sending email?
If you need, please comment here.
Thank you!

Report

hpeyeease skyyang

about 1 year ago

#39369

This comment was minimized by the moderator on the site

Hello,

thank you for your help!

I would try it with your suggestion. Could u give me the code for mail merge?

Thanks!

skyyang hpeyeease

about 1 year ago

#39500

This comment was minimized by the moderator on the site

Hello,
To send current word document as mail body, you can add the Send to Mail Recipient command to your QAT, please do as this:
1. Open your word file that you want to send, and then click File > Options.
2. On the left pane, select Quick Access Toolbar.
3. Select Commands Not in the Ribbon from the Choose commands from.
4. Choose and select Send to Mail Recipient and click the button Add > >.
5. Click OK to close the dialog.

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

Now, this Send to Mail Recipient command will show up in the Quick Access Toolbar at the top of your Word window. Then, you can insert the relative information into the message header. After finishing the information, please click Send a copy, the message with current word document as body will be sent at once.

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

Please try this, hope it can help you!

Report

hpeyeease skyyang

about 1 year ago

#39368

This comment was minimized by the moderator on the site

Hello,

thank you for your help!

I would try it with your suggestion. So yes, I need the Mail Merge for sending E-Mail.

MandyZhou

about 1 year ago

#38673

This comment was minimized by the moderator on the site

Hello Heather,

You can add Bcc to this code. For example, you can add .Bcc = "" just below .To = "". So the code becomes:

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 = ""
.Bcc = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True

Please see the attached picture. Have a nice day.
Sincerely,
Mandy

https://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png

Report

Heather

about 1 year ago

#38547

This comment was minimized by the moderator on the site

Can you add Bcc to this code? I have tried adding Bcc and receive a compile error for expected expression.

Richard Bird

about 2 years ago

#36757

This comment was minimized by the moderator on the site

I have create the document but my issue now is that if I send this form to say 4 people to complete, when they open it up from the email attachment it opens in read only mode and when they click submit it asks them to save as before it will allow the code to open an email addressed to me. Is there a way around this other than giving them the location of the file?

Chelo

about 3 years ago

#34794

This comment was minimized by the moderator on the site

Hi Extend office,
Can we set a different email not linked to Outlook? Like direct email to GoDaddy account?

Shelby Chelo

about 2 years ago

#34795

This comment was minimized by the moderator on the site

I am trying to find out the same information. I use gmail and I need to create a form to send out to varies different email address that can automatically submit back to my gmail account.

Jacques

about 3 years ago

#34491

This comment was minimized by the moderator on the site

Does this also work for Lotus Notes?
What must I change in "xOutlookObj"?

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

Lista zmian

Samouczki dotyczące funkcji

Sprowadź pomoc?