Hur skickar jag e-post om du klickar på knappen i Excel?
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
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:
Smakämnen 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 nu! (30 dagars gratis spår)
Relaterade artiklar:
- Hur skickar man automatiskt e-post baserat på cellvärde i Excel?
- Hur skickar jag ett e-postmeddelande via Outlook när arbetsboken sparas i Excel?
- Hur skickar jag e-post om en viss cell modifieras i Excel?
- Hur skickar jag e-post om förfallodatum har uppfyllts i Excel?
- Hur skickar jag e-postpåminnelse eller avisering om arbetsboken uppdateras i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!