Discussion :

[nolliug]

Bonjour à tous,
Je galère pour l'envoi auto d'un mail dans une appli access.
J'ai créé un module de classe dans lequel j'ai copié le code suivant :

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
Function SendMailCDO(expediteur As String, destinataire As String, _
 objetmessage As String, corpsmessage As String, Optional piecejointe As String)
 
Dim Cdo_Message As New CDO.Message
Set Cdo_Message.Configuration = GetSMTPServerConfig()
 
With Cdo_Message
    .To = destinataire
    .From = expediteur
    .Subject = objetmessage
    .TextBody = corpsmessage
    .AddAttachment (piecejointe)
    .Send
End With
 
Set Cdo_Message = Nothing
 
End Function
Function GetSMTPServerConfig() As Object
Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object
Set Cdo_Fields = Cdo_Config.Fields
 
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.xxxxxxxx.fr"
.Item(cdoSMTPServerPort) = 25
.Update
End With
 
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
 
End Function

Je ne comprend pas comment lancer la commande "call sendmailCDO(....."
Lorsque je l'affecte à un bouton sur la commande click() dans un formulaire, j'ai un message "erreur de compilation : sub ou fonction non défine"
Voilà des heures et des heures que je galère...
Vous l'avez bien compris je pense, je ne maitrise pas vraiment le VBA !!
Merci à tous pour votre aide !

[Invité]

Bonjour

Tu as crée une fonction (function), il faut une routine (sub).

Philippe

[nolliug]

Merci Philippe pour ton aide.
J'ai appliqué ta solution mais maintenant j'ai un message d'erreur sur la ligne de code .send de la fonction sendmailCDO()
Voici l'intégralité de mon code pour info :

le lancement :

Code :

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

1
2
3
Private Sub Commande61_Click()
Call SendMailCDO("xxxxx@xxx.fr", "yyyyyy@yyyy.fr", "STOCK BAG", "RAS", , "c:\applications\STOCK_bagbig.txt")
End Sub

la fonction sendmailCDO() :

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
Function SendMailCDO(Sender As String, Receiver As String, _
Subject As String, BodyText As String, _
Optional Cc As String, Optional Bcc As String)
 
Dim Cdo_Message As New CDO.Message
 
Set Cdo_Message.Configuration = GetSMTPServerConfig()
 
 
With Cdo_Message
 
.To = Receiver
 
.From = Sender
 
.Subject = Subject
 
.Cc = Cc
 
.Bcc = Bcc
 
.TextBody = BodyText
 
.Send
 
End With
 
 
Set Cdo_Message = Nothing
 
End Function

et enfin la fonction etSMTPServerConfig() :

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
Function GetSMTPServerConfig() As Object
 
Dim Cdo_Config As New CDO.Configuration
 
Dim Cdo_Fields As Object
 
Set Cdo_Fields = Cdo_Config.Fields
 
 
With Cdo_Fields
 
.Item(cdoSendUsingMethod) = cdoSendUsingPort
 
.Item(cdoSMTPServer) = "smtp.orange.fr"
 
.Item(cdoSMTPServerPort) = 25
 
.Update
 
End With
 
 
Set GetSMTPServerConfig = Cdo_Config
 
Set Cdo_Config = Nothing
 
Set Cdo_Fields = Nothing
 
End Function

Peux-tu m'expliquer pourquoi j'ai cette erreur (copie ecran en piece jointe)

[nolliug]

Philippe,
Infos complémentaires,
J'ai trouvé un info qui m'évite cette erreur :
il suffit de remplacer :

Code :

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

1
2
3
With Cdo_Fields
 
.Item(cdoSendUsingMethod) = cdoSendUsingPort

par :

Code :

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

1
2
3
With Cdo_Fields
 
.Item(cdoSendUsingMethod) = cdoSendUsingPickup

Mais maintenant j'ai une erreur 8040222 : le chemin d'acces du repertoire est requis !!!

Merci pour ton aide.

Peut-être as-tu une autre méthode d'envoie de mail à me proposer ?

@+
Vince

[Invité]

Bonjour
Si ton serveur smtp est chez Orange ou un autre Fai, il ne faut pas prendre l'option "cdoSendUsingPickup".
Si tu choisis cette option c'est que tu as ton serveur en local et il t'en demande le chemin.

D'autre part ta fonction SendMailCdo a comme dernier argument en option"Bcc" et dans l'appel tu mets le chemin d'un pièce jointe.

Il faut voir aussi si ton compte nécessite une authentification.
Regardes la configuration de ta messagerie.

[nolliug]

Merci Jean-Damien pour tes commentaires très pertinents !!
Bon je "revise ma copie"... et reviens vers vous après modifs.
Merci pour votre aide précieuse !
Vince