Attachmentsadd

Hai un problema con Excel?

Nuova discussione

Attachments.add
di Mcy (utente non iscritto) data: 21/01/2016 11:38:47
Buongiorno,
ho creato una macro che mi invia automaticamente le mail in base al contenuto di un file excel dove inserisco i destinatari nella colonna B, l'oggetto nella colonna E e il testo nella colonna F. Nella colonna G voglio mettere il percorso con il nome del file da allegare. Tuttavia non riesco a dargli il comando per inserire l'attachments.add con la colonna G. Come posso fare?

Public Sub InviaMail ()

    Dim OutApp As Object
    Dim OutMail As Object
    
    Dim destinatario As String
    Dim Percorso As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
    
        .to = [b2]        'inserire la mail del destinatario in TO
        .CC = [c2]   'inserire la mail del destinatario in CC
        .BCC = [d2] 'inserire la mail del destinatario in BCC
        .Subject = [e2]
        .Body = [f3] & _
                Chr(10) & _
                Chr(12) & "Ufficio A" & _
                Chr(10) & _
                Chr(10) & "Telefono ufficio "
        .Attachments.Add ("C:Desktop1.xlsx") ----voglio mettere il contenuto della colonna G????????????? 'inserire il percorso ed il nome del file da allegare        
        .Display                           'per aprire e controllare la mail prima di inviarla manualmente
    End With

di Albatros54 data: 21/01/2016 15:58:37
vedi se ti puo essere utile
h t t p ://www.excelvba.it/Forum/story/Excel_e_gli_applicativi_Office/Macro_invio_mail_con_allegato.html
di Mcy (utente non iscritto) data: 22/01/2016 10:37:16
Non riesco a farla girare

di Albatros54 data: 22/01/2016 11:39:35
Prova cosi.

Public Sub InviaMail ()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim file As String
    Dim destinatario As String
    Dim Percorso As String '<========
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Percorso = Cells(1, 7)'<===indirizzo completo del file nella cella "G1"
    With OutMail
    
        .to = [b2]        'inserire la mail del destinatario in TO
        .CC = [c2]   'inserire la mail del destinatario in CC
        .BCC = [d2] 'inserire la mail del destinatario in BCC
        .Subject = [e2]
        .Body = [f3] & _
                Chr(10) & _
                Chr(12) & "Ufficio A" & _
                Chr(10) & _
                Chr(10) & "Telefono ufficio "
        .Attachments.Add percorso '("C:Desktop1.xlsx") ----voglio mettere il contenuto della colonna G????????????? 'inserire il percorso ed il nome del file da allegare        
        .Display                           'per aprire e controllare la mail prima di inviarla manualmente
    End With

di Mcy (utente non iscritto) data: 22/01/2016 14:35:43
PERFETTO! GRAZIE!

Vuoi Approfondire?