e-mailing excel / thunderbird

Anonyme
2017-10-31T15:56:52+00:00

Bonjour,

je reviens vers vous avec une nouvelle question. J'ai cherché un peu sur le net mais j'ai du mal à appliquer ce que je trouve, mes connaissances en VBA étant très très basses.

A partir d'un fichier excel, je cherche à faire partir des mails avec des pièces jointes différentes pour chaque ligne de destinataire.

J'utilise Thunderbird comme serveur de messagerie.

Et histoire d'en demander un peu plus, si ma 1e demande est réalisable, est-il possible de faire en sorte qu'apparaisse sur l'excel la date de l'envoi de l'email.

J'ai déposéICIun exemple de ce que j'avais en tête. Il me faut juste rajouter dans la colonne "contrat" le scan du document correspondant. 

d'avance, merci

Emma

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

24 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.1K Points de réputation
    2017-11-11T16:32:34+00:00

    Bonjour Emma,

    Je n'ai pas laissé ma solution marquée comme "réponse" puisqu'elle ne fonctionne pas, du moins dans ton environnement. Je serai par contre interressé de connaître cet add-on. Si tu pouvais me fournir un lien...

    Cordialement.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2017-11-11T15:36:03+00:00

    Bonjour Daniel, 

    la semaine a été intense, désolée de ne pas avoir répondu plus tôt. 

    je tenais à te remercier pour ton aide même si dans le cas présent, ça n'a pas résolu mon problème avec Thunderbird portable. 

    J'ai pu trouver une solution avec un add-on  ... 

    un grand merci pour avoir pris le temps de chercher et me proposer des réponses.

    Bonne soirée

    Emma

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2017-11-05T16:04:57+00:00

    décidement, je suis maudite !

    et quand ça veut pas, ça veut pas !

    sur les 2 essais d'envoi,

    pour la ligne 1, le message est désespérément vide, pas de destinataire, pas de sujet ou de corps de message et pas de pièce jointe

    Pour la ligne 2, j'ai un destinataire, un sujet mais pas de corps de message et pas de pièce jointe.

    je suis confuse de solliciter autant ton attention ! si tu préfères arrêter, je comprendrais !

    Merci

    Emma

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. DanielCo 107.1K Points de réputation
    2017-11-05T15:54:20+00:00

    Décidément, je n'ai pas eu la main heureuse. Voici le code testé avec ou sans pièce jointe :

    Public Function SendThunderbird(Desti As String, Sujet As String, Corps As String, Optional PJ As String) <br><br>    Dim strCommand As String <br><br>    strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" <br><br>    strCommand = strCommand & " -compose " & "to='" & Desti & "'" <br><br>    strCommand = strCommand & "," & "subject=" & Sujet & "," <br><br>    strCommand = strCommand & "body=" & Corps <br><br>    If PJ <> "" Then <br><br>      strCommand = strCommand & "," & "attachment=file:///" & PJ <br><br>    End If <br><br>     Debug.Print strCommand <br><br>    Call Shell(strCommand, vbNormalFocus) <br><br>    Application.Wait (Now + TimeValue("0:00:03")) <br><br>    SendKeys "^{ENTER}", True <br><br>      <br><br>End Function <br><br>Sub test() <br><br>  Dim C As Range <br><br>  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp)) <br><br>    If C.Offset(, 4) <> "" Then <br><br>      SendThunderbird C.Offset(, 3).Value, C.Offset(, 8).Value, C.Offset(, 9).Value, C.Offset(, 4).Value <br><br>    Else <br><br>      SendThunderbird C.Offset(, 3).Value, C.Offset(, 8).Value, C.Offset(, 9).Value <br><br>    End If <br><br>    C.Offset(, 7) = Date <br><br>  Next C <br><br>End Sub

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires