Kako poslati e-pošto, če v Excelu kliknemo na gumb?
Recimo, da morate e-pošto poslati prek Outlooka s klikom na gumb na Excelovem delovnem listu, kako lahko to storite? Ta članek bo predstavil metodo VBA za podrobno doseganje.
Pošlji e-pošto, če kliknete gumb s kodo VBA
Pošlji e-pošto, če kliknete gumb s kodo VBA
Naredite naslednje, če želite poslati e-poštno sporočilo prek Outlooka, če v Excelovem delovnem zvezku kliknete ukazni gumb.
1. V svoj delovni list vstavite ukazni gumb s klikom Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX). Oglejte si posnetek zaslona:
2. Z desno miškino tipko kliknite vstavljeni ukazni gumb in nato kliknite Ogled kode v meniju z desnim klikom, kot je prikazano spodaj.
3. Na odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo v oknu Code z naslednjim skriptom VBA.
Koda VBA: Če v Excelu kliknete gumb, pošljite e-pošto
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
Opombe:
1). Prosimo, spremenite telo e-pošte, kot potrebujete v xMailBody vrstico v kodi.
2). Zamenjajte Email naslov z e-poštnim naslovom prejemnika v vrstici .To = "E-poštni naslov".
3). Določite prejemnike kopije in skp, kot jih potrebujete .CC = "" in .Bcc = "" oddelkov.
4). V vrstici spremenite zadevo e-pošte .Subject = "Preizkusite pošiljanje e-pošte s klikom na gumb".
4. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.
5. Izklopite način oblikovanja s klikom Razvojni > Način oblikovanja. Oglejte si posnetek zaslona:
Od zdaj naprej se bo vsakič, ko kliknete na ukazni gumb, samodejno ustvarilo e-poštno sporočilo z določenimi prejemniki, zadevo in telesom. Pošljite e-pošto s klikom na Pošlji gumb.
Opombe: Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.
Preprosto pošiljanje e-pošte prek Outlooka na podlagi polj ustvarjenega poštnega seznama v Excelu:
O Pošlji e-pošto uporabnost Kutools za Excel pomaga pošiljati e-pošto prek Outlooka na podlagi polj ustvarjenega poštnega seznama v Excelu.
Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)
Sorodni članki:
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
- Kako poslati e-pošto prek Outlooka, ko je delovni zvezek shranjen v Excelu?
- Kako poslati e-pošto, če je določena celica spremenjena v Excelu?
- Kako poslati e-pošto, če je bil datum izpolnjen v Excelu?
- Kako poslati e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!