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.

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?

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...