Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

VBA macro Email massive + Allegato pdf

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

VBA macro Email massive + Allegato pdf

Postdi quasarkb0 » 20/05/17 14:00

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
Codice: Seleziona tutto
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 …
quasarkb0
Newbie
 
Post: 1
Iscritto il: 20/05/17 13:18

Sponsor
 

Re: VBA macro Email massive + Allegato pdf

Postdi Anthony47 » 21/05/17 22:27

Ciao quasarkb0, benvenuto nel forum.

Abbiamo piu' volte trattato dell'invio di email con allegato, la prima che mi e' uscita nelle ricerche e' questa: viewtopic.php?f=26&t=93621&p=535678

Comunque, se non risolvi con gli spunti contenuti in quella discussione, devi chiarire meglio che cosa vuoi prelevare da word e cosa da excel, e allegare esempi reali dei file a cui attingere.
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17648
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "VBA macro Email massive + Allegato pdf":


Chi c’è in linea

Visitano il forum: Nessuno e 28 ospiti