ENVOI A PLUSIEURS DESTINATAIRES ACCESS

Bonjour,

Je souhaite transmettre à plusieurs destinataires un message via ACCESS/VBA.

Ma messagerie est THUNDERBIRD

Actuellement j'ai ceci en vba ce qui me permet de transmettre à un seul destinataire.

je souhaite envoyer une copie à un autre destinataire.....

Private Sub Commande47_Click()
'
'ENVOI DE MAIL
'
Dim strDest As String ' L'adresse e-mail du destinataire
Dim strMessage As String ' Le corps du message
'Création du corps du message
'
strMessage = strMessage & "Bonjour,"
strMessage = strMessage & vbCrLf & vbCrLf & "Je vous prie de trouver une demande habilitation pour :"
'envoi nom + n° agent + processus + profil
strMessage = strMessage & vbCrLf & vbCrLf & "l'agent : " & Me!Agentconcerne.Value & " - n° d'agent " & Me!NAgent.Value
strDest = "toto@yahoo.fr"
'InputBox("Tapez une adresse e-mail existante : ", _
"Messagerie Access", _
"toto@yahoo.fr")
strMessage = strMessage & vbCrLf & vbCrLf & Me!MotivationDemande.Value
'
'envoi type de demande
'si mutation affichage profil + processus
'
If Me!TypeDemande.Value = "Mutation" Then
strMessage = strMessage & vbCrLf & vbCrLf & "Cet agent est muté vers le profil : " & Me!EmploiCible.Value & " du processus : " & Me!Processus.Value
End If
If Me!TypeDemande.Value = "Modification" Then
strMessage = strMessage & vbCrLf & vbCrLf & "Les habilitations suivantes sont à modifier :"
End If
strMessage = strMessage & vbCrLf & vbCrLf & Me!Modifiable65.Value
If Me!Habilitation1.Value <> "" Then
strMessage = strMessage & vbCrLf & vbCrLf & Me!Habilitation1.Value
End If
If Me!Habilitation2.Value <> "" Then
strMessage = strMessage & vbCrLf & vbCrLf & Me!Habilitation2.Value
End If
If Me!Habilitation3.Value <> "" Then
strMessage = strMessage & vbCrLf & vbCrLf & Me!Habilitation3.Value
End If
If Me!accesServeur1.Value <> "" Then
strMessage = strMessage & vbCrLf & vbCrLf & "Un accès au serveur(s)suivant(s) est sollicité : "
strMessage = strMessage & vbCrLf & vbCrLf & Me!accesServeur1.Value & " " & "> Lecture-Ecriture : " & Me!lectureModification1.Value
strMessage = strMessage & vbCrLf & vbCrLf & Me!accesServeur2.Value & " " & "> Lecture-Ecriture : " & Me!lectureModification2.Value
strMessage = strMessage & vbCrLf & vbCrLf & Me!accesServeur3.Value & " " & "> Lecture-Ecriture : " & Me!lectureModification3.Value
End If
strMessage = strMessage & vbCrLf & vbCrLf & "Cordialement,"
' On demande l'adresse e-mail du destinataire
' Envoi du message
SendMail strDest, _
"Demande Habilitation", _
strMessage, _
True
End Sub

Merci d'avance,

Cordialement,