Discussion :

[kiki51500]

Bonjour à tous

Un souci dont je ne trouve pas la cause occasionne une erreur.

Lorsque je saisi mes valeurs dans un formulaire, celui ci me remplit mes champs mails entre autres
Le reste étant l'identité et adresse de mon client qui se retrouve dans l’entête et le corps du mail

En VBA, lorsque je passe la souris sur mes champs Mail, j'ai bien leur correspondance qui s'affiche.
Sauf que ca ne part pas et que j'ai une erreur sur ma 1ere adresse mail

Voici le début de mon code, auriez vous une idée?
Ce code est il compatible avec toutes les versions d'Outlook Office?
Info: Ce problème survient sur CE PC alors que c’était fonctionnel il y a peu (un compactage depuis)
Si je change le champ par l'adresse en dur , tout est Ok.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub btnEmail_Click()
'   Initialisation et ouverture de Outlook :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
'   Destinataire du message :
MonMessage.to = [MailRT]
MonMessage.Cc = [mail]
MonMessage.bcc = [MailDA]

Merci à vous

[argyronet]

Bonjour,

Quelle erreur ?

Que renvoient [MailRT] et [mail] (dans la febêtre de debogage) ?

Peut-on avoir le code complet ?

Argy

[kiki51500]

Bonjour et merci de ton aide

Voici le code saisi

Le message reçu lors du clic sur bouton est:

Erreur d’exécution -2147418107 (80010005)
erreur automation
les appels exterieurs ne sont pas autorisés depuis un filtre de message

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
37
38
39
40
41
 
Private Sub btnEmail_Click()
'   Initialisation et ouverture de Outlook :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
'   Destinataire du message :
MonMessage.to = [MailRT]
MonMessage.Cc = [mail]
MonMessage.bcc = [MailDA]
'  Titre du mail :
MonMessage.Subject = "Demande d’une Info pour le Client " & [prescripteur]
'  Contenu du mail :
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Le client" & [Nomp] & " vient de nous contacter le " & [Date demande] & " pour un article de categorie " & [Forfait]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Demeurant : " & [adrespat]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & [ville] & " (" & [codep] & ")"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Tel : " & [Tel] & " et " & [Tel2]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Infos diverses: " & [Infos]
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Merci"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "L'équipe Administrative"
 
'Corps = Corps & [Adresse]
'Corps = Corps & Chr(13) & Chr(10)
MonMessage.body = Corps
'   C’est parti :
MonMessage.send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing
End Sub

Merci

[argyronet]

Le compactage n'a rien à voir...

Tu es sous Exchange ?
Est-ce que ça donne la même erreur en pas à pas ?

Argy

[kiki51500]

Bonjour
Désolé de n'avoir pas répondu plus tôt
J'ai eu quelques congés et déplacements pros

Donc, je ne suis pas sous exchange et je ne sais pas faire le mode pas à pas

Petite précision qui peut avoir son utilité:
Si je change mon champ [MAIL] par une adresse toto@toto.com cela fonctionne
Il n'arrive donc pas à aller chercher l'adresse correspondante au champ
Pourtant en posant la souris sur la partie [MAIL] en VBA mon adresse apparaît bien

Essais réalisés sur
differents PC avec Windows 7 ou 10
differentes versions de ma base
differents anti virus
differentes versions d'access (2007 2010 et 2013) en fonction de l'age du PC

Le pire c'est que cet ete cette partie fonctionnait.

[kiki51500]

Petite question
N'y aurait il pas une DLL ou un truc à installer ou reinstaller?