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 !