Export facture en PDF

Juste une question avec la fonction ci-dessous est il possible d'attacher un PDF 

=LIEN_HYPERTEXTE("mailto:"&L10&"?subject="&W3&"&CC="&E10&"&body="&W5;"MAIL A ENVOYER")

Non, pour 2 raisons 

1 : ça n'est pas prévu dans le mailto

2 : ça n'arrangera pas votre souci de messagerie car elle doit être configurée (correctement)

https://fr.wikipedia.org/wiki/Mailto

OK. Je comprends bien

J'ai réparé office mais toujours le même problème  et non c'est mon ordi perso. 

Juste une question avec la fonction ci-dessous est il possible d'attacher un PDF 

=LIEN_HYPERTEXTE("mailto:"&L10&"?subject="&W3&"&CC="&E10&"&body="&W5;"MAIL A ENVOYER")

Bizarrement ça fonctionne avec le nouvel outlook  

Merci beaucoup pour ta patience

Xavier

Hello,

Voici le code qui permet d'envoyer un mail via le serveur SMTP de la connexion active (sans Outlook)

Sub mail()

    Set Message = CreateObject("cdo.Message")

    ' configuration de la messagerie
    With Message.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = nom du serveur SMTP de la connexion active (ex : "smtp.free.fr")
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Numéro du port d'envoi (465 généralement en SSL/TLS)
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = nom du compte utilisateur de la BàL utilisé pour l'envoi (ex : si "***@***", utiliser "toto")
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mot de passe du compte utilisateur de la BàL utilisé pour l'envoi (ex : "password")
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        
        .Update
    End With

    '  configuration du message
    With Message
        .Subject = "CSD Tennis de Table – Facture"
        .From = "Mon adresse ***@***"
        .To = Sheets("Modele Facture").Range("L10").Value
        '‘.CC = « ***@*** »
        .TextBody = "Veuillez trouver ci joint la facture relative à vos engagements. Cordialement"
        .AddAttachment ("chemin complet et nom du fichier")

        .Send
    End With

    Set Message = Nothing

    MsgBox "Message envoyé... ou pas :-D"

End Sub

Bonjour,

Sur mon ordi perso, je ferais une réparation d'Office. Maintenant, tu dois être dans un environnement d'entreprise; tu devrais donc voir avec le responsable informatique. De toutes façons, je ne pense pas que la macro puisse fonctionner avec Exchange. Je n'utilise pas Exchange donc je ne peux pas de fournir une solution. Je vais donc arrêter là ma participation au fil.

Daniel

Quand je lance Outlook classique tout seul il me donne le message suivant :

Bonjour Daniel,

Désolé, de repondre tardivement 

Voilà pour les variables locales j'ai strictement rien

Et Pour l'execution de la macro pas de numéro ni de libellé d'erreur

Exécute aussi cette macro qui doit afficher le numéro et le libellé de l'erreur.

Sub Mail()
  Dim NS As Object, GaddressList, Expediteur As String, Exp As Object
  Dim M As Object, olApp As Object, oAccount As Object
  Expediteur = "XXXX@XXXX.com"
  Set olApp = CreateObject("Outlook.application")
  On Error Resume Next
  For Each oAccount In olApp.Session.Accounts
    MsgBox Err.Number & " " & Err.Description
    Exit Sub
    Debug.Print oAccount.smtpaddress
    If oAccount.smtpaddress = Expediteur Then
      Set M = olApp.CreateItem(olMailItem)
      With M
        .Subject = "CSD Tennis de Table – Facture"
        .Body = "Merci de recevoir votre facture relative à vos engagements. Cordialement"
        .Recipients.Add Sheets("Modele Facture ").Range("L10").Value
        Set .sendusingaccount = oAccount
        .attachments.Add "c:\XXXXXX.pdf"
        .Send
      End With
      Exit For
    End If
  Next
End Sub

Daniel

Une fois que tu es là, clique sur le menu "Affichage" et "Fenêtre variables locales". Dan cette fen^tre, clique sur le "+" en regard de olApp pour déplier les propriétés. Déplie "Session" et "Accounts". En dessous de "Accounts", quel nombre y a-t-il en face de "Count" ?

Daniel

voilà ce que ça fait 

2°) Je rentre le mot de passe

3°)

Est dans mon compte d'abonnement je ne sais pas quoi faire ce n'est pas moi qui gère, trop compliqué pour moi.

Quand je lance outloock classic sans passer par le fichier Excel c'est pareil.

Idem quand jutilise l'adresse mail du lien Hypertexte

Normalement, on doit pouvoir utiliser les deux. Moi, j'ai testé avec Classic. New me sort par les yeux, mais c'est uniquement un différence d'interface utilisateur. Donc aucune différence pour les macros.

Daniel

on est bien d'accord que je dois utiliser le classic et non le nouvel outlook ??

Tu ne vois rien d'anormal concernant ton abonnement à Microsoft 365 ? Sinon, Ouvre le classeur dans Excel. Appuie sur les touches Alt+F11. La fenêtre de l'éditeur VB s'ouvre. Clique dans la macro Mail.Appuie sur F8 pour exécuter la macro ligne par ligne. Recommence jusqu'à arriver à une erreur ou à la fin de la macro. Est-ce qu'il y a une erreur ?

Daniel

oui. mais après je ne sais pas où aller et voir quoi

Non, j'ai testé avec Outlook 365 classic sans erreur. Est-ce que tu t'es connecté à ton compte Microsoft comme ils te le disent ?

Daniel

le message se produit après la macros d excel.

faut il desinstaller outlook de microsoft 365.

c'est le classic qui va pas

j'ai les 2.

Outlook classicisme et outlook de microsoft 365

Voilà le message d'erreur. 

Et dans mon compte, je ne vois pas de problème

Bonjour Daniel,

Désolé de répondre tardivement !!

j'ai un problème de configuration avec Outlook. Donc je ne peux pas dire si c'est OK

Teste le code ci-dessous. Il faut modifier la 4e ligne pour indiquer l'adresse du compte expéditeur :

Expediteur = "XXXX@XXXX.com"

Sub Mail()
  Dim NS As Object, GaddressList, Expediteur As String, Exp As Object
  Dim M As Object, olApp As Object, oAccount As Object
  Expediteur = "XXXX@XXXX.com"
  Set olApp = CreateObject("Outlook.application")
  For Each oAccount In olApp.Session.Accounts
    Debug.Print oAccount.smtpaddress
    If oAccount.smtpaddress = Expediteur Then
      Set M = olApp.CreateItem(olMailItem)
      With M
        .Subject = "CSD Tennis de Table – Facture"
        .Body = "Merci de recevoir votre facture relative à vos engagements. Cordialement"
        .Recipients.Add Sheets("Modele Facture ").Range("L10").Value
        Set .sendusingaccount = oAccount
        .attachments.Add "c:\XXXXXX.pdf"
        .Send
      End With
      Exit For
    End If
  Next
End Sub

Daniel 

Bonsoir Daniel

Compte Outlook créer et envoyé en MP

Bonne soirée

xavier