Invio email personalizzata

Option Explicit

Sub Manda_Email_Con_Allegato()
    
    Dim OutApp As Object
    Dim OutMail As Object
    Dim UR As Long
    Dim i As Long
    
     'UR contiene il numero dell'ultima riga dei destinatari a cui inviare le email
    UR = Range("A" & Rows.Count).End(xlUp).Row
     'i destinatari iniziano dalla seconda riga
    For i = 2 To UR
         'crea una sessione di Outlook
        Set OutApp = CreateObject("Outlook.Application")
         'crea un messaggio di posta
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
             'indico il mittente nel caso ce ne fosse più di uno in Outlook
            .SentOnBehalfOfName = "Chiara@libero.it"
             'la colonna "C" contiene l'indirizzo email dei vari destinatari
            .To = CStr(Cells(i, 3))
             'la colonna "B" contiene l'oggetto dell'email
            .Subject = CStr((Cells(i, 2)))
             'la colonna "E" contiene il testo dell'email
            .Body = CStr(Cells(i, 5))
             'la colonna "D" contiene il percorso dove si trova il file da allegare
            .Attachments.Add CStr(Cells(i, 4))
            .Display    'mostra l'email
            '.Send       'invia l'email senza mostrala
        End With
         'chiudi e pulisci
        Set OutMail = Nothing
        Set OutApp = Nothing
    Next i
    
End Sub