Bonjour,
J'ai un problème avec ma base de données access, lorsque je ckique sur un bouton "envoyer" le message de débogge apparait avec "Erreur d'execution '3265': Élément non trouvé dans cette collection, et séléctionne cette ligne dans le code
ListeComplete = ListeComplete & ListeEMail("EMail") & ";"
j'ai besoin d'aide pour résolu ce problème
Voila mon Code vba:
Dim objOLApp As Outlook.Application
Dim NewMail As Outlook.MailItem
' 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
' Set the Application object
Set objOLApp = New Outlook.Application
' You can only use CreateItem for default items
Set NewMail = objOLApp.CreateItem(olMailItem)
NewMail.BCC = ListeComplete
' Display the new task form so the user can fill it out
NewMail.Display