Mail

Bonjour

J'utilise le code suivant pour envoyer un mail. Le pb est que je veux mettre
plusieurs destinataires. Si je renseigne x destinataires séparés par un ;
cela plante. Merci de me dire comment faire pour résoudre mon pb.


Code utilisé :
Public Function send_mail(sendto As String, subject As String, _
text As String) As Boolean
'Add The MAPI Components and
'add a MAPI Session and MAPI mail control to your form


On Error GoTo ErrHandler
With MAPISession1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIMessages1.SessionID = .SessionID
End With
With MAPIMessages1
.Compose
.RecipAddress = sendto
.AddressResolveUI = True
.ResolveName
.MsgSubject = subject
.MsgNoteText = text
'.AttachmentName = "Nom de fichier à afficher"
'.AttachmentPathName = "chemin\vrai nom du fichier"
'.AttachmentPosition = 7 'si on veut faire apparaître le fichier
'après le 7ème caractère du message
.Send False 'pour se passer de boîte de dialogue
End With
sendmail = True
ErrHandler:
End Function

Private Sub Command1_Click()
x = send_mail("jean.dupont@smteparis.fr", "sujet", "test de mail")

End Sub