Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
Tegyük fel, hogy e-mailt szeretne küldeni az Outlook segítségével egy bizonyos címzettnek az Excel megadott cellája alapján. Például, ha a munkalap D7 cellájának értéke nagyobb, mint 200, akkor automatikusan létrejön egy e-mail. Ez a cikk egy VBA-módszert mutat be a probléma gyors megoldására.
Automatikus e-mail küldése a cella értéke alapján, VBA kóddal
Automatikus e-mail küldése a cella értéke alapján, VBA kóddal
Kérjük, tegye a következőket, ha e-mailt szeretne küldeni az Excel cellasejtje alapján.
1. A munkalapon e-mailt kell küldeni a cellaértéke alapján (itt a D7 cella áll), kattintson a jobb gombbal a lap fülre, majd Kód megtekintése a helyi menüből. Lásd a képernyőképet:
2. A felbukkanóban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be az alábbi VBA kódot a lapkód ablakba.
VBA kód: E-mail küldése az Outlook segítségével az Excel cellája alapján
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
Megjegyzések:
3. megnyomni a más + Q billentyűk együttes bezárásához Microsoft Visual Basic for Applications ablak.
Mostantól, amikor a D7 cellába beírt érték meghaladja a 200 értéket, a rendszer automatikusan létrehoz egy e-mailt a megadott címzettekkel és törzssel az Outlookban. Kattintson a gombra Küldés gombra az e-mail elküldéséhez. Lásd a képernyőképet:
Megjegyzések:
1. A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.
2. Ha a D7 cellában megadott adatok szöveges értékek, akkor az e-mail ablak is kiugrik.
Könnyen küldhet e-mailt az Outlook segítségével az Excelben létrehozott levelezőlista mezői alapján:
A Emaileket küld hasznossága Kutools az Excel számára segíti a felhasználókat az Outlook segítségével az Excel létrehozott levelezőlista alapján.
Töltse le és próbálja ki most! (30 napos ingyenes túra)
Kapcsolódó cikkek:
- Hogyan küldhetünk e-mailt az Outlookon keresztül, amikor a munkafüzet mentésre kerül az Excelbe?
- Hogyan lehet e-mailt küldeni, ha egy bizonyos cellát módosítanak az Excelben?
- Hogyan küldhetünk e-mailt, ha az Excel gombra kattintunk?
- Hogyan lehet e-mailt küldeni, ha az Excel határidejét betartotta?
- Hogyan küldhetünk e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!