Předpokládejme, že chcete odeslat e-mail prostřednictvím aplikace Outlook určitému příjemci na základě zadané hodnoty buňky v aplikaci Excel. Například když je hodnota buňky D7 v listu větší než 200, automaticky se vytvoří e-mail. Tento článek představuje metodu VBA pro rychlé vyřešení tohoto problému.
Automaticky odesílat e-maily na základě hodnoty buňky s kódem VBA
Chcete-li odeslat e-mail na základě hodnoty buňky v aplikaci Excel, postupujte takto.
1. V listu musíte odeslat e-mail na základě jeho hodnoty buňky (zde se uvádí buňka D7), klepněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
2. Ve vyskakovacím okně Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna kódu listu.
Kód VBA: Odesílejte e-maily prostřednictvím Outlooku na základě hodnoty buňky v aplikaci Excel
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
Poznámky:
1. V kódu VBA, D7 a hodnota> 200 jsou hodnota buňky a buňky, na které budete posílat e-maily.
2. Změňte prosím tělo e-mailu tak, jak potřebujete xMailBody řádek v kódu.
3. Vyměňte e-mailovou adresu za řádek s e-mailovou adresou příjemce .To = "E-mailová adresa".
4. A zadejte příjemce Cc a Bcc, jak potřebujete .CC = “” a Skrytá kopie = “” sekce.
5. Nakonec změňte předmět e-mailu v řádku .Subject = "odeslat testem hodnoty buňky".
3. zmáčkni Další + Q klávesy společně zavřete Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když je hodnota zadaná v buňce D7 větší než 200, bude v aplikaci Outlook automaticky vytvořen e-mail se zadanými příjemci a tělem. Můžete kliknout na Poslat tlačítko pro odeslání tohoto e-mailu. Viz screenshot:
Poznámky:
1. Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.
2. Pokud jsou zadaná data v buňce D7 textovou hodnotou, otevře se také e-mailové okno.
Snadno odesílejte e-maily prostřednictvím aplikace Outlook na základě polí vytvořeného seznamu adres v aplikaci Excel:
Společnost Odeslat e-maily užitečnost Kutools pro Excel pomáhá uživatelům odesílat e-maily prostřednictvím Outlooku na základě vytvořeného seznamu adres v aplikaci Excel.
Stáhněte si a vyzkoušejte hned! (30denní trasa zdarma)
