Jak rychle odeslat e-mail na základě data v buňce aplikace Excel?
Zkusili jste někdy odeslat e-mail podle data v buňce aplikace Excel? Například zde je seznam dat ve sloupci A, a poté chcete poslat e-mail s předmětem, tělem zprávy příjemci (může CC i BCC ostatním), jak to zvládnout?
Posílejte e-maily na základě data pomocí VBA
Posílejte e-maily na základě data pomocí VBA
Chcete-li odeslat e-mail na základě data v aplikaci Excel, můžete použít pouze kód makra.
1. Povolte list, který obsahuje data a datum, které používáte, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte níže uvedený kód do prázdného skriptu.
VBA: Odeslat podle data
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub3. cvaknutí Běh nebo stiskněte tlačítko F5 po spuštění kódu se zobrazí dialogové okno, které vám připomene, abyste vybrali seznam data. Viz screenshot:
4. Klepněte na OK a pokračujte v zadávání předmětu e-mailu, e-mailové adresy odesílatele, e-mailové adresy příjemce, CC, BCC a těla zprávy. Viz screenshot:
 |
 |
 |
|
 |
 |
||||
 |
 |
 |
|
 |
5. cvaknutí OK > OK do posledního a poté byl e-mail odeslán.
Poznámka: e-mailová adresa odesílatele musí být výchozím účtem ve vašem Outlooku.
Vytvořte seznam adresátů a posílejte e-maily |
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
