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 :

 

Pierre,

Merci pour ce code.

J'ai toujours un problème avec l'attachement dans cette fonction :

Public PièceJointe As String

Private 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) = DFirst("SMTP_Serveur", "T_Constantes")
        .Item(cdoSMTPServerPort) = DFirst("SMTP_Serveur_Port", "T_Constantes")
        .Update
    End With

    Set GetSMTPServerConfig = Cdo_Config
    Set Cdo_Config = Nothing
    Set Cdo_Fields = Nothing

End Function

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

    Dim Cdo_Message As New CDO.Message
    Set Cdo_Message.Configuration = GetSMTPServerConfig()
    
Sender = DFirst("Email_Expéditeur", "T_Constantes")
BodyText = DFirst("Corps_Message", "T_Constantes")

    With Cdo_Message
        .From = Sender
        .To = "pierre@foucaud.com"
        .Subject = Subject
        .TextBody = BodyText
        .addAttachment ("W:BasesIrisFacturesEnvoiMessagerieMessageries Le Dissez - Facture n° 17705 du 31 mars 2018 - STEPHANIE HALPERSON.pdf")
        '.addAttachment (PièceJointe)
        .Send
    End With
    Set Cdo_Message = Nothing

End Function

Quand j'utilise :

        .addAttachment ("W:BasesIrisFacturesEnvoiMessagerieMessageries Le Dissez - Facture n° 17705 du 31 mars 2018 - STEPHANIE HALPERSON.pdf")

ça marche très bien mais pas quand j'utilise la variable

Voilà comment je défini la valeur de la variable :

    PièceJointe = "W:BasesIrisFacturesEnvoiMessagerie" & DLookup("FeM_PDF_Nom", "T_Factures_Envoi_Messagerie", "FeM_Facture_Numéro =" & FirstFactNuméro)
    Me.Test = PièceJointe

Je vérifie dans mon formulaire par Me.Test que la valeur de la variable est la bonne

comment puis-je régler ce problème

Bon dimanche

Pierre


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