È possibile da un fail Excel con nomi e indirizzi e-mail creare mail personalizzate in automatico che vadano a prendere indirizzi e nomi modificando l’intestazione della mail?

Question

Buongiorno, io ho un file Excel con molti indirizzi e-mail e nomi e cognomi e vorrei sapere se c’è un modo, quando io creo una mail, che vada a prendersi indirizzi e-mail ma anche modifichi il contenuto della mail mettendo il nome e cognome della persona selezionata. In modo che il testo generale della mail sia uguale per tutti ma che a ognuno venga con il proprio nome e cognome in alto.

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao renatovisona,

Grazie per il tuo post nella community Microsoft.

Per fare in modo che le e-mail riconoscano automaticamente il contenuto di un file Excel, è necessario utilizzare VBA (Visual Basic for Applications) per ottenere l'automazione.

Ho notato che hai postato la tua domanda nella sezione iPhone o iPad; Sfortunatamente, i dispositivi mobili non supportano l'esecuzione di programmi macro. Puoi provare la seguente soluzione su Windows o Mac.

Poiché non conosco la struttura specifica della tua cartella di lavoro, ho simulato alcuni semplici dati. La colonna A è il nome, la colonna B è il cognome e la colonna C è l'indirizzo e-mail.

Nella scheda Sviluppo > macro > creare una nuova macro > incollare il seguente codice nell'area di modifica del codice:

Sub SendEmailIfValid()

    Dim cell As Range

    Dim firstName As String

    Dim lastName As String

    Dim emailAddress As String

    Dim outlookApp As Object

    Dim outlookMail As Object

    Set cell = ActiveCell

    If cell.value Like "*@*.*" Then

        emailAddress = cell.value

        firstName = cell.Offset(0, -2).value

        lastName = cell.Offset(0, -1).value

        Set outlookApp = CreateObject("Outlook.Application")

        Set outlookMail = outlookApp.CreateItem(0)

        With outlookMail

            .To = emailAddress

            .Subject = ""

            .Body = "Hi " & firstName & " " & lastName & vbCrLf & vbCrLf

            .Display

        End With

    Else

        MsgBox "La cella attuale non e un indirizzo e-mail valido.", vbExclamation

    End If

    Set outlookMail = Nothing

    Set outlookApp = Nothing

End Sub

Infine, salvare la cartella di lavoro di Excel come cartella di lavoro con attivazione macro.

Posiziona il cursore nella cella da cui desideri inviare un'e-mail, esegui questa macro e riempirà automaticamente il corpo dell'e-mail con il contenuto:

Assicurati che l'applicazione Outlook sia installata sul tuo dispositivo.

Spero che le informazioni di cui sopra ti siano utili e attendo con ansia la tua risposta!

Migliori saluti

Thomas C - MSFT | Specialista del supporto della community Microsoft