bonjour,
Je souhate envoyer un mail avec outlook.
Pour cela, j utilise le code suivant :
Dim MonOutlook As Outlook.Application
Dim MonMessage As Outlook.MailItem
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "
ici@ici.com"
MonMessage.Subject = "Le sujet"
MonMessage.BODY = ""
MonMessage.Attachments.Add "c:\....txt"
MonMessage.send
Set MonOutlook = Nothing
Sa sa marche !!!!
Le problème est que je veux envoyer le mail à une liste de diffusion nomé "Liste A".
Si je remplace "
ici@ici.com" par "Liste A", il me met une erreur comme quoi il n'a pas trouver d'adresse mail alors que la liste de diffusion est bien renseigné.
Bref, si quelqu'un a la solution a ce probleme....
Merci d'avance
Sangho