[AC-2003] Envoie de mail CDO Outlook (fonctionne avec Excel)

[Nom]

Bonjour
Je recherche un moyen d'envoyer des mails automatiquement tout en évitant le message de sécurité Outlook
J'ai donc découvert CDO : http://www.3stone.be/access/articles.php?lng=fr&pg=89

Le code fonctionne très bien sous Excel mais lorsque je l'utilise sous Access, j'ai un message d’erreur :

Sauriez vous pourquoi ?

Edit : avec le code, ça sera plus simple (j'ai mis des * pour le destinataire et l'expéditeur mais bien entendu, dans mes applis, il s'agit d'adresse mail valide)

Code vba :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SendMailCDO()
 
   Dim Cdo_Message As Object
 
    Set Cdo_Message = CreateObject("CDO.Message")
 
    With Cdo_Message
        .To = "****"
        .From = "****" 
        .Subject = "Le Sujet"
        .TextBody = "Le Corps du message"
        .Send
    End With
 
    Set Cdo_Message = Nothing
End Sub

EDIT 2 :
J'ai bien vu dans la FAQ le sujet suivant http://access.developpez.com/faq/?page=Outlook#outlook mais à priori, on ne peux pas définir l'expéditeur avec cette méthode. De plus, l'installation d'une application supplémentaire est problématique pour moi car mon code est utilisé professionnellement et donc les droits sur les postes de travail sont limités.

[pgz]

Bonjour.

Je crois que sur la page 3stone à laquelle tu fais référence, il y a la réponse. Tu dois instancier Message.Configuration. 3stone te donne la fonction GetSMTPServerConfig() pour cela.

Attention : tu dois désigner le serveur smtp auquel le poste a accès.

Cordialement,

PGZ

[reedy]

Bonjour,

Effectivement, comme l'a précisé pgz tu dois instancier cdo_Message.configuration : nom du serveur, numero du port...

Voici ton code apres ajout des lignes d'instanciation :

Code :

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
Sub SendMailCDO()
   Dim Cdo_Message As Object
   Set Cdo_Message = CreateObject("CDO.Message")
 
    With Cdo_Message
        .To = "****"
        .From = "****"
        .Subject = "Le Sujet"
        .TextBody = "Le Corps du message"
 
 .Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'nom du serveur smtp
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "nomduserveursmtp"
 
'port du serveur smtp
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
.Configuration.Fields.Update
 
        .Send
    End With
 
    Set Cdo_Message = Nothing
 
End Sub

Cordialement