Discussion :

[Djohn]

Bien le bonjour,

J'aimerai envoyer via l'intermediaire d'une macro un fichier à une liste de mes contacts qui est sur oultook ainsi qu'a 2 ou 3 mails supplémentaires.

je bloque au niveau de l'envoi du mail qui me renvoi un message d'erreur.

Pourriez vous m'aider sur la syntaxe à utiliser :
(sport représente ma liste de contact contenant une vingtaine de mails)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
     ActiveWorkbook.SendMail Recipients:=Array( sport, "machain@bidule.fr" , "djohn@dvl.fr", "coucou@hello.fr" ), Subject:="rdv", ReturnReceipt:=True

merci

[Jean-Philippe André]

salut, quel est le message qui t'est retourné stp ?

[SilkyRoad]

bonjour

sport représente ma liste de contact contenant une vingtaine de mails

comment est paramétrée la variable sport ?


La liste des destinataires doit être spécifiée sous forme de tableau. Tu peux aussi utiliser les listes de distribution de messagerie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EnvoiClasseur_MultiDestinataires()
 
'La méthode SendMail envoie le classeur en utilisant le système de messagerie installé.
'La liste des destinataire doit être spécifiée sous forme de tableau.
'Dans cet exemple "MaListeDeDistribution" est une liste de distribution existante dans
'la messagerie.
ActiveWorkbook.SendMail _
    Recipients:=Array("MaListeDeDistribution", _
        "AutreDestinataire01@mail.com", "AutreDestinataire02@mail.com"), _
    Subject:="Rapport hebdomadaire " & ActiveWorkbook.Name, _
    ReturnReceipt:=True
 
End Sub

bonne journée
michel

[Djohn]

merci c'est résolut j'avais oublié les " " autour de sport

pour info sport est une liste de distribution enregistré dans mes contacts outlook (non dans vba)

merci a vous