Hur skickar jag snabbt e-post baserat på datum i Excel-cellen?
Har du någonsin försökt att skicka ett e-postmeddelande baserat på datum i Excel-cellen? Till exempel, här är en lista med datum i kolumn A, och sedan vill du skicka ett e-postmeddelande med ämnet, meddelandetexten till en mottagare (kan även CC och BCC till andra), hur kan du hantera det?
Skicka e-post baserat på datum med VBA
Skicka e-post baserat på datum med VBA
För att skicka e-post baserat på datumet i Excel kan du bara använda en makrokod.
1. Aktivera arket som innehåller data och datum du använder och tryck på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra in under koden i det tomma skriptet.
VBA: Skicka efter datum
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 Sub
3. klick Körning knappen eller tryck på F5 för att köra koden, en dialogruta dyker upp för att påminna dig om att välja en lista med datum. Se skärmdump:
4. Klicka på OK och fortsätt för att ange e-postens ämne, avsändarens e-postadress, mottagarens e-postadress, CC, BCC och meddelandetexten. Se skärmdump:
5. klick OK > OK tills den sista, och sedan har e-postmeddelandet skickats.
Notera: avsändarens e-postadress måste vara standardkontot i din Outlook.
Skapa e-postlista och skicka e-post |
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!