Bonjour,
J'ai creer un bout de code qui sera censé ouvrir Outlook Express avec par defaut la creation d'un nouveau message, qui aura dans CC la liste d'adresse email que mon msgbox retourne...
a L'heure actuelle, mon prog affiche la liste de cette facon "XXX@XX.com; XXX@XX.com" puis ensuite ouvre Outlook Express...
Help !
P.S: je suis ss access et j'ai mit ce code dans un module.
Function MassMailing()
Dim db As Database
Dim rs As dao.Recordset
Dim ChaineMail As String
Dim sh
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Mail_Client FROM CLIENTS WHERE Envoi_Mail_Client=False;" )
ChaineMail = ""
Do While Not rs.EOF
ChaineMail = ChaineMail & rs(0) & "; "
rs.MoveNext
Loop
MsgBox ("Adresses: " & ChaineMail)
Set sh = CreateObject("WScript.Shell" )
sh.Run "msimn.exe"
End Function
---------------
uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuhhhhhhhhhhhhhhhhhhhhhh