Discussion :

[STOUPI]

Bonjour à tous
Depuis que j'ai créé une nouvelle base en acc 2007, les procédures évènementielles que j'utilisais ne fonctionnent plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim ListeEMail As Recordset
  Dim ListeComplete As String
  Set ListeEMail = CurrentDb.OpenRecordset("REQ-MAIL")
  ListeEMail.MoveFirst
  ListeComplete = ""
 
  While Not ListeEMail.EOF
  ListeComplete = ListeComplete & ListeEMail("EMail") & ";"
  ListeEMail.MoveNext
  Wend
 
  ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
 
  ListeEMail.Close
  Set ListeEMail = Nothing
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Dim Corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = "toto@societe.fr;titi@societe.fr"
 
  MonMessage.bcc = ListeComplete
  MonMessage.Subject = "Recherche de profil " & [référence-dde] & " sur " & [ets1] & " " & [ets2] & " " & [ets3]
 
  Corps = "Bonjour," & Chr(13) & Chr(10)
   Corps = Corps & " " & Chr(13) & Chr(10)
   Corps = Corps & "Bonjour." & Chr(13) & Chr(10)
   Corps = Corps & "Nous vous remercions pour votre réponse "
   Corps = Corps & "Les résultats de votre évaluation seront à reporter dans le corps de votre courriel"
  Corps = Corps & " " & Chr(13) & Chr(10)
  Corps = Corps & "Nous vous remercions de votre compréhension." & Chr(13) & Chr(10)
  Corps = Corps & "Cordialement "
  MonMessage.Body = Corps

Visiblement ça bloque sur la zone Corps qui n'était pas déclarée avant mais j'ai beau tout essayer je n'y arrive pas
Que dois-je mettre ? (Dim Corps As String)
Merci pour votre aide

[marot_r]

Regarde dans les références (en mode design de code, menu outils/références) tu dois en avoir une manquante.

A+

[STOUPI]

Bonjour, petite précision

Si je ne déclare pas la variable Corps (comme ça l'était avant)
Message : erreur de compilation, variable non définie

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Corps As String

Message : incompatibilité de type

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Corps As Field

Message : Variable objet ou variable de bloc non définie

Merci pour votre aide

[FreeAccess]

Bonjour,

As tu au moins essayé d'appliquer la proposition faites par marot_r . . .

Dans le fenêtre d'édition du code (ALT-F11) dans le menu..:
Outils > Références > dans la fenêtre qui s'ouvre vérifie que tu n'as pas de références marquées MANQUANT