2 destinataires pour fonction "SendMail" [Résolu]

[mikael2235]

Bonjour à tous,

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

Code :

1
2
3
4
5
6
7
'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:

Code :

"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

Code :

1
2
3
4
5
    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...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 :

Code :

1
2
3
4
5
6
7
8
9
'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