Macro per inviare mail con allegati diversi
Ciao a tutti, sto cercando di fare una macro per inviare delle mail ognuna con un allegato diverso partendo da un file Excel.
Questo è il codice che sto usando completo di commenti:
Sub Manda_mail_con_diversi_allegati()
'
' Manda_mail_con_diversi_allegati Macro
'
'
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Foglio2.Select
' RR contiene il nuemro di utenti cui inviare le e-mail (1 per utente)
'RR = Range("B" & Rows.Count).End(xlUp).Row
RR = 2
' I dati iniziano dalla seconda riga
For i = 2 To RR
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
' La colonna "A" contiene gli indirizzi e-mail dei vari destinatari
.To = Cells(i, 1)
' La colonna "B" contiene l'oggetto della e-mail
.Subject = Cells(i, 2)
' La colonna "C" contiene l testo della e-mail
.Body = Cells(i, 3)
' La colonna "D" contiene il percorso ove si trova il file da allegare
' La colonna "E" contiene il nome del file da allegare
.Attachments.Add (Cells(i, 4) & Cells(i, 5))
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Application.SendKeys "%a"
Next i
End Sub
Quando cerco di eseguire la macro mi da errore e mi dice "impossibile trovare il file. Verificare che il percorso ed il nome del file siano corretti."
Sapete aiutarmi?
Vi ringrazio anticipatamente. :-) :-) :-)