Come inviare rapidamente un'email in base alla data in una cella di Excel?

Avete mai provato a inviare un'email basandovi su una data in una cella di Excel? Ad esempio, ecco un elenco di date nella colonna A, e poi volete inviare un'email con oggetto, corpo del messaggio a un destinatario (potete anche mettere in CC e CCN ad altri), come potete gestirlo?

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, è possibile applicare solo un codice macro.

1. Abilitate il foglio che contiene i dati e la data che utilizzate, e premete i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Cliccate Inserisci > Modulo, e incollate il codice sottostante 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 Sub

3. Cliccate Esegui pulsante o premete F5 tasto per eseguire il codice, appare una finestra di dialogo che vi ricorda di selezionare un elenco di date. Vedere screenshot:

4. Cliccate OK, e continuate a specificare l'oggetto dell'email, l'indirizzo email del mittente, l'indirizzo email del destinatario, la CC, CCN e il corpo del messaggio. Vedere screenshot:

5. Cliccate OK > OK fino all'ultima, e poi l'email è stata inviata.

Nota: l'indirizzo email del mittente deve essere l'account predefinito nel vostro Outlook.