Allegati multipli

Hai un problema con Excel?

Nuova discussione

Allegati multipli
di Kino (utente non iscritto) data: 12/05/2016 23:16:30
Buonasera e salve a tutti,

premetto che sono un neofita in vba. ma dovrò imparare un pò.

Chiedo gentilmente a voi esperti di aiutarmi a poter allegare dei file multipli ad una email anzichè uno solo come riesco a fare fino adesso. Dovrei riuscire a far capire che io potrei selezionare 1, 2 o più files a piacimento senza che esso mi restituisca l'error 5 ecc... Potrei aiutare dicendo che la macro deve agire in riferimento ad un commandbutton alla pressione del quale si deve aprire la cartella medesima selezionare 1 o più files ed inviare manualmente.

Grazie 1000 per il vostro supporto

Nello specifcico:

Private Sub CommandButton2_Click()
                                                                                 'invia email

Dim destinatario As String
Set OutApp = CreateObject("Outlook.Application")
Set outmail = OutApp.CreateItem(0)
With outmail
 .To = "...i@yahoo.it"
 .cc = "...@yahoo.it"
 .Subject = "..."
 .Body = "Prova" & Chr(10) & "continua..." & Chr(10) & "continua"
 .Attachments.Add Application.Application.GetOpenFilename 'qua riesco soltanto ad allegare un file
 .Display
 
End With
ExitSub:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.DisplayAlerts = False
End Sub

di Luca73 data: 13/05/2016 08:26:50
Ciao io farei un ciclo do-loop con un messaggio di richiesta se vuoi un altro allegato
Vedi proposta di Modifica.
Ciao
Luca

Private Sub CommandButton2_Click()
 [...]
 .Body = "Prova" & Chr(10) & "continua..." & Chr(10) & "continua"
Do
 .Attachments.Add Application.Application.GetOpenFilename 'qua riesco soltanto ad allegare un file
Loop Until MsgBox("Vuoi inserire un altro Allegato?", vbQuestion + vbApplicationModal + vbYesNo, "AGGIUNGO ?") = vbNo
 .Display
 [...]

End Sub

Vuoi Approfondire?