XL 2013 envoie mail pdf chemin bureau Windows ??

[jeromeN95]

Bonjour à tous,
j'ai trouver un super code qui permet d'enregistrer un onglet spécifique en format PDF sur le bureau et de l'envoyer par mail :

Public Sub Envoyer_cadencier()
Dim Omg As Object
Dim msg As String
Dim tcl As Long
Dim Fic As String
    On Error GoTo fin
    Fic = ThisWorkbook.Path & "\cadencier.pdf"      ' donner le nom voulu pour le correspondant
    
    If Dir(Fic) <> "" Then Kill Fic    'on crée le fichier PDF dans le même dossier que le fichier source
    Sheets("Cadencier").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fic _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=False
    Set Omg = CreateObject("CDO.Message")
    With Omg
        .Subject = "Cadencier de commande" & " " & [C8]    'sujet
        .From = [H6].Value      ' adresse mail du vendeur
        .To = [H5].Value              ' Email du client
        .TextBody = "Bonjour " & [M5] & ", Comme convenu ensemble, Veuillez trouver ci-joint votre Cadencier en attente de signature pour livraison automatique. Bien à vous," & [C3]
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
        .addattachment (Fic)
        .send
    End With
    Kill Fic    'après l'envoi la feuille PDF est supprimée
    MsgBox "Envoi du cadencier au client bien effectué"
fin:       ' si erreur on sort de la procédure : description de l'erreur survenue
If Err.Number <> 0 Then MsgBox "Anomalie détectée" & vbLf & vbLf & Err.Description
End Sub

Inconvénient :
le fichier est utiliser sur plusieurs postes (collège de travail) et il ne fonctionne plus.
J'ai beau chercher, je pense que le problème réside dans le chemin (bureau) qui peut être différent d'un Windows à l'autre.

Pourriez vous m'aider svp ?

 

[dysorthographie]

Bonjour,
Je voi ThisWorkbook.Path mais pas d'information pour le bureau.

Si ThisWorkbook est sur le bureau alors le problème est autre!

Tu as un message d'erreur si oui le quel?

En revanche pour ta connexion SMTP tu utilises le port 25 je trouve ça un peut surprenant !

 

[jeromeN95]

Bonsoir,
pourquoi ça surprennant ?
en tout cas le code fonctionner jusqu'à présent.
Mais depuis aujourdhui j'ai une erreur 505 5.1.1
Je comprend pas là.

 

[_Thierry]

Bonsoir,

J'utilise aussi CDO par moment, et je passe par le serveur Exchange de notre société et aussi par le port 25. (Pas directement sur orange)

L'erreur que tu décris n'a rien à voir avec le chemin du PDF mais que le serveur de Mail ne trouve pas l'adresse du destinataire :
https://docs.microsoft.com/en-us/ex...e-550-5-1-1-through-5-1-20-in-exchange-online

Revérifie les adresses mails qui se trouvent en H5 & H6 si elles sont bien formattées et cohérentes. Si tu as plusieurs destinataires, le séparateur entre chaque doit être le ;

Bonne soirée
@+Thierry

 

[fanch55]

Salut, comme @_Thierry ,
l'erreur smtp 5.1.1 indique destinataire non connu . le code premier devrait être 550 et non 505, mais c'est peut-être un finger check de votre part ?
Pouvez-vous vérifier l'adresse en [H5] ?