|
|
|
|
Strumenti |
20-05-2017, 13:54 | #1 |
Junior Member
Iscritto dal: May 2017
Messaggi: 1
|
VBA macro Email massive + Allegato pdf
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 … |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 00:16.