accédez à outlook express depuis access 2007 via vba
Aucune réponse
zem
Bonjour,
je vien de creer une bdd access avec T_Email,R_EmailOui,et formulaire EmailOui pour l'envoi de mail a plusieurs destinataires.j'utilise outlook express et access 2007 .en executant le code j'obtien une erreur 287 MonMessage.send voici le code complet:
Sub LaTotale()
' ########################
' # 1. Access via DAO : #
' ########################
' Initialisation :
Dim ListeEmail As Recordset
Set ListeEmail = CurrentDb.OpenRecordset("R_EMailOui")
ListeEmail.MoveFirst
ListeComplete = ""
' Parcourt de la requête :
While Not ListeEmail.EOF
ListeComplete = ListeComplete & ListeEmail("Email") & ";"
ListeEmail.MoveNext
Wend
' On enlève le dernier point virgule :
' ListeComplete nous sera évidemment utile tout à l'heure :
ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
' Stop DAO :
ListeEmail.Close
Set ListeEmail = Nothing
' ######################################
' # 2. Envoi de l'Email avec Outlook : #
' ######################################
' Initialisation :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
' Préparation du message :
MonMessage.to = "info@lolo.com"
' Récupération de la chaîne d'E_Mails Access :
MonMessage.bcc = ListeComplete
MonMessage.Subject = "Promotions pour les vacances"
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Profitez de nos dernières actions pour la Tunisie"
MonMessage.body = Corps
' Cest parti :
MonMessage.send
' Fermeture de la session Outlook :
Set MonOutlook = Nothing