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 :

 

Mais peut être que cela devrait marcher :

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
    Set Cdo_Message = Nothing

End Function

'Syntaxe:
'Call SendMailCDO("Sender", "Receiver", "Subject", "BodyText", "W:CheminMaFacture")

Je te souhaite une bonne journée Ici à Toulon, il fait un temps de chien

Pierre


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