2 destinataires pour fonction "SendMail"

[mikael2235]

Bonjour à tous,

J'utilise dans une macro, la fonction "Send Mail" avec un destinataire.

'Envoi du mail à la Qualité --------
    MsgBox "Une copie de la demande va etre envoyé par mail à la fonction qualité. Merci de cliquer sur OUI."
    Dim Dest As String
    Dim Sujet As String
    Dest = "xxx@xxx.com"
    Sujet = "Laboratoire de test : Nouvelle demande " & nomfichier
    ActiveWorkbook.SendMail Dest, Sujet, True

Je voudrais savoir comment faire pour ajouter un deuxieme destinataire dans la ligne "Dest ="

Quelle est la syntaxe exacte ? J'ai essayé beaucoup de choses, mais ça ne marche pas.

Merci pour votre aide

[Fvandermeulen]

Salut,
N'utilisant qu'Outlook je ne peux que te donner le principe de celui-ci (mais j'imagine qu'il est le même pour tous) à savoir utiliser la même syntaxe que la boite mail.
Donc pour Outlook:

"Address1@xxx.com; address2@xxx.com"

A+

[mikael2235]

ça ne marche pas. Il me met ce message d'erreur

Erreur d’exécution ‘1004’ :

La Liste des destinataires contient un nom de destinataire inconnu.
Utilisez un nom valide et réessayez.

Continuer / Fin / Débogage / Aide

[fgiambelluco]

Bonjour
La réponse est dans l'aide d'Access sur l'instruction SendMail

Dans le cas de destinataires multiples, il faut utiliser un tableau de valeur

    Dim tb(1) As String 'indique le nombre d'éléments du tableau (2 destinataires)
    tb(0) = "toto@test.fr"
    tb(1) = "titi@test.fr"
    
    ActiveWorkbook.SendMail tb, "test envoi multiple"

--------------
Frédéric
http://www.access-developpement.com

[Fvandermeulen]

Salut,
Peux tu mettre le code complet?
A+

Edit: A toute fin utile, une autre méthode...

Sub EnvoiFichier()
  
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim MonFichier As String
 
  'Récupère le fichier actif
  MonFichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ""
  
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = "xxxx@zzz.com; yyyy@zzz.com" 'Définition des destinataires
  MonMessage.Attachments.Add MonFichier 'Ajout de la pièce jointe
  MonMessage.Subject = "Laboratoire de test : Nouvelle demande " & nomfichier 'sujet du mail
  MonMessage.body = "Le texte que tu veux mettre en corps de mail" 'Texte
  MonMessage.send 'Envoi
  Set MonOutlook = Nothing 'déchargement de l'objet Outlook
End Sub

[fgiambelluco]

En reprenant le code d'orgine cela donne :

'Envoi du mail à la Qualité --------
    MsgBox "Une copie de la demande va etre envoyé par mail à la fonction qualité. Merci de cliquer sur OUI."
    Dim Dest(4) As String 'Nombre de destinataires possibles : 5
    Dim Sujet As String
    Dest(0)="xxx1.xxx.com" ' 1er destinataire
    Dest(1)="xxx2.xxx.com" ' 2ème destinataire
    .......... etc 
    Sujet = "Laboratoire de test : Nouvelle demande " & nomfichier
    ActiveWorkbook.SendMail Dest(), Sujet, True

--------------
Frédéric
http://www.access-developpement.com

[mikael2235]

Merci "fgiambelluco". ça marche effectivement avec les adresses dans un tableau de valeurs.

Merci encore