Hvordan sendes e-mail, hvis der klikkes på knappen i Excel?
Antag, at du skal sende e-mail via Outlook ved at klikke på en knap i Excel-regneark, hvordan kan du gøre det? Denne artikel introducerer en VBA-metode for at opnå det i detaljer.
Send e-mail, hvis der klikkes på knappen med VBA-kode
Send e-mail, hvis der klikkes på knappen med VBA-kode
Gør som følger for at sende en e-mail via Outlook, hvis der klikkes på en kommandoknap i Excel-projektmappe.
1. Indsæt en kommandoknap i dit regneark ved at klikke på Udvikler > indsatte > Kommando-knap (ActiveX-kontrol). Se skærmbillede:
2. Højreklik på den indsatte kommandoknap, og klik derefter på Vis kode fra højreklikmenuen som vist nedenfor i skærmbilledet.
3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode i kodevinduet med følgende VBA-script.
VBA-kode: Send e-mail, hvis der klikkes 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
Noter:
1). Skift e-mail-organet, som du har brug for i xMailBody linje i koden.
2). Udskift Email adresse med modtagerens e-mail-adresse på linje .To = "E-mail-adresse".
3). Angiv Cc- og Bcc-modtagere, som du har brug for i .CC = "" , .Bcc = "" sektioner.
4). Skift e-mail-emnet på linje .Subject = "Test e-mail send ved at klikke på knappen".
4. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.
5. Sluk for designtilstand ved at klikke på Udvikler > Design Mode. Se skærmbillede:
Fra nu af, hver gang du klikker på kommandoknappen, oprettes der automatisk en e-mail med specificerede modtagere, emne og brødtekst. Send e-mailen ved at klikke på Send .
Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.
Send nemt e-mail via Outlook baseret på felterne i den oprettede postliste i Excel:
Send emails nytte af Kutools til Excel hjælper med at sende e-mail via Outlook baseret på felterne i den oprettede postliste i Excel.
Download og prøv det nu! (30-dages gratis spor)
Relaterede artikler:
- Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?
- Hvordan sendes en e-mail via Outlook, når projektmappen gemmes i Excel?
- Hvordan sendes e-mail, hvis en bestemt celle ændres i Excel?
- Hvordan sendes e-mail, hvis forfaldsdato er opfyldt i Excel?
- Hvordan sendes e-mail-påmindelse eller underretning, hvis projektmappen opdateres i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!