Expéditeur email différent du compte par défaut
Bonjour,
J'ai un code VBA qui fonctionne bien mais j'aimerai rajouter une fonction qui préciserai un expéditeur du mail différent de celui par défaut.
Sub EnvoiPage()
Dim Destinataires(20) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = Range("Mail!a2")
Destinataires(2) = Range("Mail!a3")
Destinataires(3) = Range("Mail!a4")
Destinataires(4) = Range("Mail!a5")
Destinataires(5) = Range("Mail!a6")
Destinataires(6) = Range("Mail!a7")
Destinataires(7) = Range("Mail!a8")
Destinataires(8) = Range("Mail!a9")
Destinataires(9) = Range("Mail!a10")
Destinataires(10) = Range("Mail!a11")
Destinataires(11) = Range("Mail!a12")
Destinataires(12) = Range("Mail!a13")
Destinataires(13) = Range("Mail!a14")
Destinataires(14) = Range("Mail!a15")
Destinataires(15) = Range("Mail!a16")
Destinataires(16) = Range("Mail!a17")
Destinataires(17) = Range("Mail!a18")
Destinataires(18) = Range("Mail!a19")
Destinataires(19) = Range("Mail!a20")
Destinataires(20) = Range("Mail!a21")
Sujet = "Envoi Journée"
AccuseReception = True
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("j1").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub
Merci par avance de votre aide
Merci de votre réponse mais j'ai déjà chercher ici et je n'ai pas réussi