VBA macro Email massive + Allegato pdf

[quasarkb0]

Salve, vorrei creare una macro con Vba di Excel o Word per inviare E-Mail massive a dei clienti con Testo Body del messaggio mail preso da un documento word (giá collegato ad una tabella excel dalla quale vengono presi nome azienda, indirizzo, Cap,ecc…) piú allegato mail un pdf preso da una cartella giá esistente di C: . Ovviamente in sequenza vengono lette le righe di excel e inviate le email con allegato pdf ai diversi clienti con diversi indirizzi mail.
Mi servirebbe il codice Vba. Devo creare un modulo o vado su foglio?

Dovrebbe essere qualcosa del genere, ma devo mettere assieme le due cose email massiva + allegato pdf


Sub SendEmail()
Dim OutlookApp As Object
Dim MItem As Object
Dim cell As Range
Dim email_ As String
Dim subject_ As String
Dim body_ As String
Dim attach_ As String

'Create Outlook object
Set OutlookApp = CreateObject("Outlook.Application")

'Loop through the rows
For Each cell In Columns("a").Cells.SpecialCells(xlCellTypeConstants)

email_ = cell.Value
subject_ = cell.Offset(0, 1).Value
body_ = cell.Offset(0, 2).Value
attach_ = cell.Offset(0, 3).Value



'Create Mail Item and send it
Set MItem = OutlookApp.CreateItem(0)
With MItem
.To = email_
.Subject = subject_
.Body = body_
'.Attachment = "attach_"
.Display
End With
Next
End Sub


Sub AddAttachment()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Benutzer\pc\Desktop\Allegato.pdf", _
olByValue, 1, "Test"
myItem.Display
End Sub
Forse c´entra anche istruzione row




Email To Subject Body Attachment
Email cliente 1 Subject 1 Prenderlo da documento di word collegato ad excel (indicare path eventualmente). Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti
Email cliente 2 Subject 2 Preso sempre da stesso documento di word collegato ad excel ma con dati del 2° cliente nei rispettivi campi stavolta Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti
Email cliente 3 Subject 3 Preso sempre da stesso documento di word collegato ad excel ma con dati del 3° cliente nei rispettivi campi stavolta Prenderlo da dentro cartella posizionata su percorso. Ad esempio C:\Desktop… File sempre uguale per tutti i clienti …