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 brezplačna 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 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!