Inviare mail con uno o due allegati

Question

Buona sera

ho necessità di inviare mail da excel, ed allegare 1 o 2 allegati, ho trovato on line questo codice:

mi servirebbe una soluzione, nel caso nella cartella dei file da salvare non fosse presente un file, excel non vada in debug.

vorrei inviare un file di Excel ed un pdf., normalmente invierei i due formati (per questo nessun problema)

vorrei creare un comando sul foglio di excel che inibisca uno dei due

Attachments.Addche copia la directory da una cella del foglio di excel, qualora sia presente.di seguito il codice che vorrei usare, salvo migliori indicazioni:

Public Sub InviaMail()
Dim destinatario As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
 .to = 
 .CC = 
 .BCC = 
 .Subject = "PROVA"
 .Body = "Ciao ," & Chr(10) & _
 Chr(10) & "questa è una prova di invio" & _
 Chr(10) & _

 .Attachments.Add ("C:\test1.txt") 'inserire il percorso ed il nome del file da allegare
 .Attachments.Add ("C:\test2.txt") 'inserire il percorso ed il nome del file da allegare
 '.Send 'per inviare subito la mail
 .Display 'per aprire e controllare la mail prima di inviarla manualmente
 End With

Set OutMail = Nothing
 Set OutApp = Nothing

End SubGrazie dell'attenzionebuona seratapier luigi

Answer 1

Buona sera

ho necessità di inviare mail da excel, ed allegare 1 o 2 allegati, ho trovato on line questo codice:

mi servirebbe una soluzione, nel caso nella cartella dei file da salvare non fosse presente un file, excel non vada in debug.

vorrei inviare un file di Excel ed un pdf., normalmente invierei i due formati (per questo nessun problema)

vorrei creare un comando sul foglio di excel che inibisca uno dei due

Attachments.Addche copia la directory da una cella del foglio di excel, qualora sia presente.di seguito il codice che vorrei usare, salvo migliori indicazioni:






Public Sub InviaMail()
Dim destinatario As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
 .to = 
 .CC = 
 .BCC = 
 .Subject = "PROVA"
 .Body = "Ciao ," & Chr(10) & _
 Chr(10) & "questa è una prova di invio" & _
 Chr(10) & _

 .Attachments.Add ("C:\test1.txt") 'inserire il percorso ed il nome del file da allegare
 .Attachments.Add ("C:\test2.txt") 'inserire il percorso ed il nome del file da allegare
 '.Send 'per inviare subito la mail
 .Display 'per aprire e controllare la mail prima di inviarla manualmente
 End With

Set OutMail = Nothing
 Set OutApp = Nothing

End SubGrazie dell'attenzionebuona seratapier luigi

Ciao Pier Luigi,

per controllare se un file esiste e quindi inserirlo o meno come allegato alla tua email, puoi utilizzare la funzione DIR():

If Len(Dir("C:\test1.txt")) Then

.Attachments.Add ("C:\test1.txt") 'inserire il percorso ed il nome del file da allegare

End If

Ricordati di indicare il path completo.

Andrea.

Answer 2

Andrea buon giorno,

Grazie della celere e cortese risposta,

perfetto era quello che cercavo, alle volte ci si annega in un bicchier d'acqua.

grazie ancora.

pier luigi