Poster une réponse

Je vous remercie de prendre le temps d'écrire ce message.

Votre nom (ou pseudo) :
Votre courriel :
Montrer aux visiteurs votre adresse Courriel :      
Note : l'adresse Courriel utilisée est protégée contre le SPAM.

S'abonner à ce fil de discussion :      

Vous répondez à possible924 qui a écrit :

 

Le problème est que :


Function SendMailCDO(Sender As String, Receiver As String, _
                      Subject As String, BodyText As String, _
                      PièceJointe As String)

    Dim Cdo_Message As New CDO.Message
    Set Cdo_Message.Configuration = GetSMTPServerConfig()
    
    With Cdo_Message
        .From = Sender
        .To = Receiver
        .Subject = Subject
        .TextBody = BodyText
        .addAttachment = PièceJointe
        .Send
    End With

'Syntaxe:
'Call SendMailCDO("Sender", "Receiver", "Subject", "BodyText", "PièceJointe")

.addAttachment = PièceJointe me revoie un message d'erreur : "Erreur de compilation, argument non facultatif"


cool wink biggrin smile frown eek mad confused rolleyes tongue cry
x5t9
Recopier le code :