Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
Recimo, da želite poslati e-poštno sporočilo prek Outlooka določenemu prejemniku na podlagi določene vrednosti celice v Excelu. Če je na primer vrednost celice D7 na delovnem listu večja od 200, se e-poštno sporočilo ustvari samodejno. Ta članek predstavlja metodo VBA za hitro reševanje te težave.
Samodejno pošlji e-pošto na podlagi vrednosti celice s kodo VBA
Samodejno pošlji e-pošto na podlagi vrednosti celice s kodo VBA
Naredite naslednje, če želite poslati e-poštno sporočilo na podlagi vrednosti celice v Excelu.
1. Na delovnem listu morate poslati e-pošto na podlagi vrednosti celice (tukaj piše celica D7), z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
2. V pojavnem oknu Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno s kodo lista.
Koda VBA: Pošljite e-pošto prek Outlooka na podlagi vrednosti celice v Excelu
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Opombe:
3. Pritisnite druga + Q tipke, da zaprete Microsoft Visual Basic za aplikacije okno.
Od zdaj naprej, ko bo vrednost, ki jo vnesete v celico D7, večja od 200, se bo v Outlooku samodejno ustvarilo e-poštno sporočilo z navedenimi prejemniki in telesom. Lahko kliknete Pošlji gumb za pošiljanje tega e-poštnega sporočila. Oglejte si posnetek zaslona:
Opombe:
1. Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.
2. Če so vneseni podatki v celici D7 besedilna vrednost, se bo izpisalo tudi e-poštno okno.
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 uporabnikom, ki pošiljajo e-pošto prek Outlooka na podlagi ustvarjenega poštnega seznama v Excelu.
Prenesite in preizkusite zdaj! (30-dnevna prosta pot)
Sorodni članki:
- 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 v Excelu kliknemo na gumb?
- 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!














































