Placer des variables dans le corps d'un mail envoyé.

**Danad38** · 11/01/2012, 20h06

Bonsoir à tous,

Je poursuis l'écriture de mon programme ... Avec votre aide j'y parviens pas à pas.
Depuis quelques jours je travaille sur l'envoi automatique de mail.
Voici mon problème.
A partir d'un UserForm, je sélectionne un fichier et j'y place un certain nombre de modifications à effectuer.
Ce fichier s'ouvre alors, les modifications sont effectuées dans celui-ci.
Ensuite je le convertis au format .pdf, je l'enregistre et je le ferme.
Directement, un mail se prépare avec l'adresse du destinataire, un sujet, un message (body) et le fichier .pdf en pièce jointe. Ce mail est transmis avec Thunderbird. (Mais cela ne doit pas avoir une grande importance ... ?
Il ne me reste plus alors qu'à contrôler puis valider l'envoi. Je reviens alors sur mon UserForm pour une autre sélection.

Tout cela fonctionne correctement mais il me reste un problème.
Je souhaiterais que dans le corps du message, je puisse, par l'intermédiaire de variables, placer des références.

Mon message pourrait alors ressemblé à :"Veuillez trouver ci-joint le fichier N° .....fourni par une variable.... qui a été enregistré le : .....date fournie par une variable...

Cela est-il possible avec un niveau de programmation qui ne soit pas "trop ambitieux pour mes compétences".

Voici la partie du code correspondant à l'envoi du mail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Destinataire = Courriel
Sujet = "Envoi document."
BodyFormat = 2
HTMLBody = "<html><body><font size=5><font color=#006633>Entreprise Toto.</font color=#006633></font size=5><br>Rue du Truc<br>00000 Cépala<br>Tél. : 00 00 00 00 00<br>Courriel : toto@.fr<br><br>Madame‚ Monsieur‚<br>Veuillez trouver ci-joint  le fichier N° ..... X.......<br> Celui-ci a été enregistré le ..... date......<br> Nous vous souhaitons bonne réception.<br><br>Monsieur DUPOND</body></html>"
 
Fichierjoint = "C:\Fichier\Machin\" & Fichier_à_Ouvrir & ".pdf"
 
strcommand = "D:\Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & Destinataire & "'"
strcommand = strcommand & "," & "subject=" & Sujet & ","
strcommand = strcommand & "body=" & HTMLBody
strcommand = strcommand & "," & "attachment=file:///" & Fichierjoint
Call Shell(strcommand, vbNormalFocus)

J'espère avoir été assez clair.

Merci pour votre aide.

Danad38

**SfJ5Rpw8** · 11/01/2012, 20h18

bonsoir
Ne suffit-il pas de modifier le calcul de ta variable Htmlbody?

**Danad38** · 12/01/2012, 12h26

Bonjour bbil,

Merci pour ta réponse mais comment modifier le calcul de cette variable htmlbody ?
J'ai bien essayé d'inclure des " & " avec le nom des variables (comme on peut le faire avec des MsgBox par exemple) de manière à écrire par :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

HTMLBody = "<html><body><font size=5><font color=#006633>Entreprise Toto.</font color=#006633></font size=5><br>Rue du Truc<br>00000 Cépala<br>Tél. : 00 00 00 00 00<br>Courriel : toto@.fr<br><br>Madame‚ Monsieur‚<br>Veuillez trouver ci-joint  le fichier N° & Num &<br> Celui-ci a été enregistré le & DateFichier &<br> Nous vous souhaitons bonne réception.<br><br>Monsieur DUPOND</body></html>"

Mais cela ne fonctionne pas, le message affiche le texte avec les & Num & et & DateFichier &. Aucun appel à la valeur de ces variables.
Je pense que cette écriture est une "énormité" en programmation ...

Je reste donc bloqué par cette même question : Est-il possible de placer dans le corps du message (dans htmlbody), entre les balises html, des variables.

Encore merci.

Danad38

**ZebreLoup** · 12/01/2012, 14h43

Sauf que quand tu utilises des & il faut sortir de la chaine de caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
str = "La valeur est " & valeur & " !"
'et non :
str = "La valeur est & valeur & !"

**Danad38** · 12/01/2012, 19h32

Bonjour Zebreloup,

Merci !
J'avais déjà procédé de cette manière (comme dans les MsgBox) mais ta remarque m'a amené à rechercher pourquoi cela ne fonctionnait pas. J'ai trouvé mon erreur.
A l'introduction de ma variable, je ne fermais pas mes balises Html !
Mon code doit donc être :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

HTMLBody = "<font size=5><font color=#006633>Entreprise Toto.</font color=#006633></font size=5><br>Rue du Truc<br>00000 Cépala<br>Tél. : 00 00 00 00 00<br>Courriel : toto@.fr<br><br>Madame‚ Monsieur‚<br>Veuillez trouver ci-joint  le fichier N° </body></html>" & Num & <html><body><br> Celui-ci a été enregistré le </body></html> & DateFichier & </body></html><br> Nous vous souhaitons bonne réception.<br><br>Monsieur DUPOND</body></html>"

Maintenant tout fonctionne correctement.
Merci pour m'avoir obligé à vérifier plus profondement ce que j'avais fais.

Danad38

**ZebreLoup** · 13/01/2012, 09h14

Ok. Mais quand tu copies du code qui ne marche pas, copie exactement ce que tu as, ce sera plus facile. Parce que par exemple tu dis que ça marche maintenant, mais le dernier code que tu as copié ne peut pas marcher, il manque des guillemets. On le voit tout de suite grâce à la coloration syntaxique.
Bon courage pour la suite

Placer des variables dans le corps d'un mail envoyé. [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager