Om du antar att du måste skicka e-post via Outlook genom att klicka på en knapp i Excel-kalkylbladet, hur kan du göra det? Denna artikel kommer att introducera en VBA-metod för att uppnå den i detaljer.
Skicka e-post om du klickar på knappen med VBA-kod
Gör så här för att skicka ett e-postmeddelande via Outlook om du klickar på en kommandoknapp i Excel-arbetsboken.
1. Sätt in en kommandoknapp i kalkylbladet genom att klicka Utvecklare > Insert > Kommandoknapp (ActiveX-kontroll). Se skärmdump:
2. Högerklicka på den infogade kommandoknappen och klicka sedan på Visa kod från högerklickningsmenyn enligt nedanstående skärmdump.
3. I öppningen Microsoft Visual Basic för applikationer fönstret, ersätt den ursprungliga koden i kodfönstret med följande VBA-skript.
VBA-kod: Skicka e-post om du klickar på knappen i 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
Anmärkningar:
1). Ändra e-postadressen som du behöver i xMailBody raden i koden.
2). Ersätt E-postadress med mottagarens e-postadress i raden .To = "E-postadress".
3). Ange mottagare för kopior och kopior som du behöver i .CC = “” och .Bcc = “” sektioner.
4). Ändra e-postämnet i raden .Subject = "Testa e-post skicka genom att klicka på knappen".
4. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.
5. Stäng av designläget genom att klicka på Utvecklare > Designläge. Se skärmdump:
Från och med nu, varje gång du klickar på kommandoknappen, skapas ett e-postmeddelande automatiskt med angivna mottagare, ämne och kropp. Skicka e-postmeddelandet genom att klicka på Skicka knapp.
Anmärkningar: VBA-koden fungerar bara när du använder Outlook som ditt e-postprogram.
Skicka enkelt e-post via Outlook baserat på fälten i den skapade e-postlistan i Excel:
Du har nu möjlighet Skicka e-mail nytta av Kutools för Excel hjälper till att skicka e-post via Outlook baserat på fälten i den skapade e-postlistan i Excel.
Ladda ner och prova det nu! (30-dagars gratis spår)
