accédez à outlook express depuis access 2007 via vba

Le
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


End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme