Jak wysłać wiadomość e-mail, jeśli przycisk zostanie kliknięty w programie Excel?
Przypuśćmy, że musisz wysłać wiadomość e-mail za pośrednictwem programu Outlook, klikając przycisk w arkuszu programu Excel, jak możesz to zrobić? W tym artykule szczegółowo przedstawimy metodę VBA, aby to osiągnąć.
Wyślij e-mail po kliknięciu przycisku z kodem VBA
Wyślij e-mail po kliknięciu przycisku z kodem VBA
Aby wysłać wiadomość e-mail za pośrednictwem programu Outlook po kliknięciu przycisku polecenia w skoroszycie programu Excel, wykonaj następujące czynności.
1. Wstaw przycisk polecenia do arkusza, klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX). Zobacz zrzut ekranu:
2. Kliknij prawym przyciskiem myszy wstawiony przycisk polecenia, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy, jak pokazano poniżej.
3. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na następujący skrypt VBA.
Kod VBA: wyślij wiadomość e-mail po kliknięciu przycisku w programie Excel
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Body content" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "Test email send by button clicking"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Uwagi:
1). Zmień treść wiadomości e-mail zgodnie z potrzebą w xMailBody wiersz w kodzie.
2). Zastąp Adres e-mail z adresem e-mail odbiorcy .To = "Adres e-mail".
3). W razie potrzeby określ odbiorców DW i UDW .CC = „” i .Bcc = „” działy.
4). Zmień temat wiadomości e-mail w wierszu .Subject = "Przetestuj e-mail wysyłany przez kliknięcie przycisku".
4. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania. Zobacz zrzut ekranu:
Odtąd za każdym razem, gdy klikniesz przycisk polecenia, wiadomość e-mail będzie tworzona automatycznie z określonymi odbiorcami, tematem i treścią. Wyślij wiadomość e-mail, klikając Wyślij przycisk.
Note: Kod VBA działa tylko wtedy, gdy używasz Outlooka jako programu pocztowego.
Z łatwością wysyłaj wiadomości e-mail przez Outlooka na podstawie pól utworzonej listy mailingowej w Excelu:
Połączenia Wysyłać emaile użyteczność Kutools dla programu Excel pomaga w wysyłaniu e-maili przez Outlooka na podstawie pól utworzonej listy mailingowej w Excelu.
Pobierz i wypróbuj teraz! (30-dniowy bezpłatny szlak)
Podobne artykuły:
- Jak automatycznie wysyłać wiadomości e-mail na podstawie wartości komórki w programie Excel?
- Jak wysłać wiadomość e-mail za pośrednictwem programu Outlook, gdy skoroszyt jest zapisany w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli określona komórka zostanie zmodyfikowana w programie Excel?
- Jak wysłać wiadomość e-mail, jeśli termin został osiągnięty w programie Excel?
- Jak wysłać e-mail z przypomnieniem lub powiadomieniem, jeśli skoroszyt jest aktualizowany w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!