Erreur d'exécution '3265'

Question

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

jordane45 · Answer

Bonjour,
J'ai :
Déplacé ton message dans la Section VBA du forum
Ajouté les balises de code ( voir ICI)

f894009 · Answer

Bonjour,

mettre le nom du champ:

ListeComplete = ListeComplete & ListeEMail.Fields("EMail") & ";"

Erreur d'exécution '3265'

2 réponses

Votre réponse

Discussions similaires