Discussion :

[Lincoln911]

Bonjour à tous,
je rencontre une difficulté à faire fonctionner mes envois de mails dans Access 2007 en VBA
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set Message = New CDO.Message
With Message        
        .From = "monadresse@domaine.net"
        .To = "destinataire@domaine.net"
        .Subject = "test"
        .TextBody = "Body"
        .AddAttachment ("C:\cheminfichier.txt")
        .Send
End With

Le mail n'est pas envoyé et le code erreur généré m'indique que "la configuration du SendUsing" n'est pas valide
J'ai trouvé sur le forum des solutions, mais pour des applications web en ASP, est ce la même chose en Access?

Merci de vos conseils,

[fgiambelluco]

Bonjour
A priori il manque la partie configuration
J'avais trouvé ça sur le net

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
Sub EnvoiSmtp()
 
Dim config As CDO.Configuration
Dim email As CDO.Message
 
Set config = New CDO.Configuration
With config.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServer) = "monsmtp.fr"
    .Item(cdoSendUserName) = "monIdentifiant"
    .Item(cdoSendPassword) = "MonMotdepasse" 
    .Item(cdoSMTPServerPort) = 25
    .Update
End With
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "toto@a.com"
    .To = "tata@a.com"
    .Subject = "Sujet"
    .Textbody = "Blabla"
    .Send
End With
End Sub

[Lincoln911]

Merci fgiambelluco pour ton aide,
Je viens de découvrir que je suis connecté via réseau local à un serveur Exchange. Je ne sais pas s'il y a moyen pour moi de récupérer ce genre d'informations.
Entre temps, j'ai pensé à une autre solution, en passant par Outlook, voici le code utilisé depuis le FAQ
Problème: en faisant appel à cette fonction, je reçois une erreur de compilation "Erreur de syntaxe" que je suis incapable de corriger !
à l'aide !

[fgiambelluco]

Re

Problème: en faisant appel à cette fonction, je reçois une erreur de compilation "Erreur de syntaxe" que je suis incapable de corriger !
à l'aide !

Il faudrait ton code et la ligne sur laquelle la compilation s'arrete.
A+

Edit : as-tu pensé à attacher la référence à Outlook

Pour exécuter ce code il faut la référence : Microsoft Outlook X.0 Object Library

[Lincoln911]

Re
Il faudrait ton code et la ligne sur laquelle la compilation s'arrete.
A+

Oui, je fais appel à la fonction trouvée ici par ceci:

Code :

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

1
2
 
CreateEmail("monadress@domaine.net", "Sujet ici", "Body ici","(C:\cheminfichier.txt)")

Erreur de compilation, erreur de syntaxe
Parfois, c'est: Erreur de compilation, := attendu

[fgiambelluco]

Re
Si tu as recopié le tuto, tu as un Sub et non une Function.
Essaye avec

Code :

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

Call CreateEmail("monadress@domaine.net", "Sujet ici", "Body ici","(C:\cheminfichier.txt)")

Un conseil : enlève les () autour du fichier joint.