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
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 SubUwagi:
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.
Uwagi: 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:
Pandemia 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 darmowy szlak)
