Come inviare rapidamente un'email basata su una data contenuta in una cella di Excel?
Hai mai provato a inviare un'email basandoti su una data presente in una cella di Excel? Ad esempio, supponiamo che tu abbia un elenco di date nella colonna A e voglia inviare un'email con un determinato oggetto e corpo del messaggio a un destinatario specifico (con la possibilità di aggiungere anche destinatari in CC e Ccn). Come puoi gestire questa operazione?
Invia email in base alla data con VBA
Invia email in base alla data con VBA
Per inviare un'email in base alla data in Excel, devi necessariamente utilizzare una macro.
1. Attiva il foglio che contiene i dati e la data da utilizzare, quindi premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nello script vuoto.
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. Fai clic sul pulsante Esegui oppure premi il tasto F5 per eseguire il codice. Apparirà una finestra di dialogo che ti chiederà di selezionare un elenco di date. Vedi screenshot:
4. Fai clic su OK e procedi a specificare l’oggetto dell’email, l’indirizzo email del mittente, quello del destinatario, nonché i campi CC, CCN e il corpo del messaggio. Vedi screenshot:
 |  |  | |  |
 | ||||
 |  |  | |  |
5. Fai clic su OK > OK fino a quando non viene inviata l’email.
Nota: l’indirizzo email del mittente deve corrispondere all’account predefinito configurato nel tuo Outlook.
Invia facilmente Crea elenco di invio e invia email in Excel |
Con Kutools per Excel, le funzionalità Crea elenco di invio e Invia email ti consentono di creare rapidamente un elenco email e inviare messaggi personalizzati direttamente da Excel. Puoi specificare destinatari, oggetto e allegati, personalizzare il testo dell’email e scegliere se inviarla tramite Outlook o un altro server SMTP per gestire con facilità le tue campagne email. |
|
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora |
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi