Come inviare rapidamente e-mail in base alla data nella cella di Excel?
Hai mai provato a inviare un'e-mail in base alla data nella cella di Excel? Ad esempio, ecco un elenco di date nella colonna A, e quindi vuoi inviare un'e-mail con l'oggetto, il corpo del messaggio a un destinatario (anche CC e BCC possono ad altri), come puoi gestirlo?
Invia e-mail in base alla data con VBA
Invia e-mail in base alla data con VBA
Per inviare messaggi di posta elettronica in base alla data in Excel, è possibile applicare solo un codice macro.
1. Abilitare il foglio che contiene i dati e la data in uso e premere Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nello script vuoto.
VBA: invia per 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 Sub
3. Clic Correre pulsante o premere F5 per eseguire il codice, viene visualizzata una finestra di dialogo per ricordare di selezionare un elenco di date. Vedi screenshot:
4. Fare clic su OK e continuare a specificare l'oggetto dell'e-mail, l'indirizzo e-mail del mittente, l'indirizzo e-mail del destinatario, CC, Ccn e corpo del messaggio. Vedi screenshot:
5. Clic OK > OK fino all'ultimo, e poi l'email è stata inviata.
Nota: l'indirizzo e-mail del mittente deve essere l'account predefinito in Outlook.
Crea mailing list e invia e-mail |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!