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 SubOpombe:
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 prosta 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 orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
