e-mailing excel / thunderbird

Anonyme

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

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

Anonyme

2017-11-01T11:07:31+00:00

Bonjour Emma,

Pour tout problème ou question en rapport avec VBA, je vous invite à poser votre question sur le forum des développeurs sur lequel vous obtiendrez une bien meilleure aide. En effet, il est composé de personnes développant des applications diverses et variés et ayant donc les connaissances nécessaires pour vous aider.

Ce thread restera bien sûr ouvert au cas où quelqu’un soit à même de vous aider ici.

N'hésitez pas à nous tenir au courant.

Je vous souhaite une bonne journée,

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

0 commentaires Aucun commentaire
DanielCo 107.1K Points de réputation

2017-11-01T20:23:08+00:00

Bonsoir,

Essaie en exécutant la macro test. J'ai mis la date de l'email en colonne H.

Comme je ne savais pas quoi mettre ni dans le sujet ni dans le corps du message. Modifie la ligne :

SendThunderbird C.Offset(, 3).Value, "sujet", "Corps"

en remplaçant "sujet" et "corps" par la cellule qui va bien. Vooici le classeur exemple :

https://www.dropbox.com/s/rawt684macuigsu/Emma%20AD%20essai-envoi-mail.xlsm?dl=0

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

0 commentaires Aucun commentaire
Anonyme

2017-11-02T07:51:46+00:00

Bonjour Daniel,

décidément, tu es mon sauveur !

j'ai téléchargé le fichier test.

J'ai remplacé "sujet" et "corps" sur la ligne que m'a indiqué par le numéro de colonne correspondant. Pour le corps du message, j'ai concatené pour que les dates soient prises en compte (vous trouverez en pièce jointe le contrat pour le stagiaire "colonne B2" que vous accueillerez du "colonne F2 " au "colonne G2") Petit souci, elles sont au format date et du coup, dans l'opération de concaténation, les dates ne sont pas reconnues comme telles. Je les ai donc passé du format "date" au format "texte". Est-ce possible autrement ?

Quand je lance la macro, j'ai un message d'erreur. Ce qui surligné, c'est ça:

d'avance, merci !

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

0 commentaires Aucun commentaire
DanielCo 107.1K Points de réputation

2017-11-02T08:55:51+00:00

Bonjour,

De mon côté, j'ai fait une erreur ; dans la macro "Test", il faut remplacer la ligne :

For Each C In Range("A3", Cells(Rows.Count, 1).End(xlUp))

par :

For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))

Sinon, je ne vois pas ce qui provoque l'erreur. Peux-tu poster la macro Test que tu as modifiée ?

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

0 commentaires Aucun commentaire
Anonyme

2017-11-02T12:01:13+00:00

Bonjour Daniel, bonjour Emma,

Sinon, je ne vois pas ce qui provoque l'erreur. Peux-tu poster la macro Test que tu as modifiée ?

Selon la version de Windows, essaie peut-être de remplacer:

strCommand = "C:**Program Files (x86)**\Mozilla Thunderbird\thunderbird.exe"

avec:

strCommand = "C:*Program Files*\Mozilla Thunderbird\thunderbird.exe"

===

Regards,

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

0 commentaires Aucun commentaire