Macro d'envoi par mail à des contacts Outlook

[Cybernetik]

Bonjour tout le monde !

J'ai trouvé une macro (voir ci-dessous) très intéressante pour envoyer un fichier excel via une macro. Cependant, je souhaiterai envoyer un fichier à un ensemble de contacts d'Outlook.

Connaitriez-vous une solution ?

Merci.

Nico

---------
Macro :

Sub Macro1()

Workbooks("Book1").SendMail Recipients:="toto@toto.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True

End Sub

 

[Roland_M]

Re : Macro d'envoi par mail à des contacts Outlook

bonjour

essais comme ceci
Destin$ = "Destin1@site.fr; Destin2@site.fr; Destin3@site.fr; Destin4@site.fr"
et >>> Recipients:=Destin$

tu peux aussi mettre en tableaux Voir l'aide VB sur 'SendMail'

Roland

 

[Cybernetik]

Re : Macro d'envoi par mail à des contacts Outlook

Bonjour,

En réalité, j'ai un groupe de contacts (un peu comme une liste de diffusion) dans Outlook, donc je ne voudrais pas entrer en dur les adresses dans le VB, mais plutôt qu'il aille chercher tous les contacts du groupe.

Merci,

Nico

 

[tototiti2008]

Re : Macro d'envoi par mail à des contacts Outlook

Bonjour à tous,

et je suppose qu'en mettant le nom du groupe, ça ne fonctionne pas...