Bonsoir,
Je sollicite votre aide SVP.
Je souhaite envoyé depuis mon fichier excel un mail a deux destinataires différents en joignant le dit fichier.
Voici mon code qui fonctionne pour un destinataire mais lorsque j'ajoute email2 dans les arguments ça ne fonctionne plus.
Pourtant j'ai vu que la fonction Application.Dialogs(xlDialogSendMail).Show peut prendre jusqu'à 30 argument.
Dim Email, Email2, Societe, TypeService, TypeResa, NomPax, PrenomPax, NomAssist, PrenomAssist, Destination, NoMission As String
Sub MailStandard()
If IsValid Then
InitVariables
Application.Dialogs(xlDialogSendMail).Show arg1:=Email, arg2:=Societe & " >> " & TypeService & TypeResa & " >> " & NomAssist & "/" & PrenomAssist & " - " & Date & " - " & Destination & " - N° Mission: " & NoMission & " - " & NomPax & "/" & PrenomPax
ActiveWindow.ScrollRow = 1
End If
End Sub
Merci pour votre aide SVP,
Merci beaucoup