Envoi pièce jointe, code HTML dans Outlook non visible !

Bonjour,

Quotidiennement je remplis un tableau Excel que je converti ensuite au format PDF avec PDFCreator puis j'envoi à l'aide d'un code VBA via Outlook.
L'envoi se passe parfaitement mais lorsque je lis le message aucun texte n'apparaît dans le corps du message.
Pourriez vous m'aider à trouver le bogue ?

Merci à vous !

Ci-joint le fichier :

Etorria

Salut,

il y a une simple faute de frappe dans ton code :

Code:

---

1 2	myItem.HTMLBody = strlHtml

---

pour éviter cela, code

Code:

---

1 2	Option Explicit

---

en tout début de module et alors tu calleras à la compil pour toute variable non définie.

Fastidieux ? Oui mais tellement plus efficace et payant !!! ;)

Merci à toi.
Cependant après correction, un message d'erreur de compilation s'affiche s'arrêtant sur cette ligne : Set myItem = ol.CreateItem(olMailItem)

Une idée ?

A+
Etorria

je n'ai pas outlook (mais lotus notes) alors je ne sais pas tester.

Mais je suppose qu'l ne connait pas OlmailItem.

Tu devrais aussi regarder dans la faq (a mail).

je viens e regarder, sans rien connaitre à ton sujet, et j'ai trouve du code qui confirme ce que je pense. (Il te manque le dim de MyItem (comme OlItem ci-dessous).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub CreationMailEtLienHypertexte() Dim OlApp As Outlook.Application Dim OlItem As Outlook.MailItem 'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library" Set OlApp = New Outlook.Application Set OlItem = OlApp.CreateItem(olMailItem) With OlItem .To = "NomPrenom@mail.fr" .Subject = "Le titre du message" .Body = "Découvrez Microsoft Office sur le site Developpez" & _ vbLf & "http://www.developpez.com" & vbLf & vbLf & _ "Cordialement" & vbLf & "mailto:emetteur@mail.fr" .Display .Save .Send End With Set OlItem = Nothing Set OlApp = Nothing End Sub

---

Et oui tout définir, mais au moins on comprends.
Merci de penser à la :faq:. et au help de VBA. On y apprends plein de choses.

Salut à tous,

DAns ton fichier Excel tu n'as pas ajouté la référence à OUTLOOK de ce fait tu ne peux pas utiliser des constantes propres à OUTLOOK (olMailItem )

Pour ta question dans le code sur le nom du pdf tu dois le récupérer dans ta procédure de création du PDF

Code:

---

.cOption("AutosaveFilename") = LeNom

---

Enfin cete façon de faire pour envoyer un MAIL doit te générer une alerte de sécurité, pour l'éviter tu peux utiliser CDO pour l'envoi.
http://www.developpez.net/forums/sho...&highlight=cdo

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Option Explicit   Sub Envoi() Const olMailItem = 0   Dim ol As Object, myItem As Object Dim strHtml As String   strHtml = "Bonjour , <BR>" strHtml = strHtml & "<BR><font size=6mm>" & "Vous trouverez ci-joint le tableau</font></B>" strHtml = strHtml & "<BR><BR><BR>" & "<font color=red>Cordialement</font>" & "<BR>" strHtml = strHtml & Environ("himself") strHtml = strHtml & "xxx"   Set ol = CreateObject("Outlook.application") Set myItem = ol.CreateItem(olMailItem)   myItem.To = "cmoi@free.fr" myItem.Subject = "Tableau en date du xx/xx/2008" 'Comment insérer ici automatiquement la date du fichier, en sachant que l'envoi se fait quotidiennement avec une date différente ? myItem.HTMLBody = strHtml myItem.Attachments.Add ("c:\pdf\Tableau du xx/xx/2008.pdf") 'myItem.Attachments.Add ActiveWorkbook.FullName myItem.display   Set ol = Nothing   End Sub   Private Sub CommandButton1_Click() Call Envoi End Sub

---

Bonjour et merci !
Je vais tester, je reviendrai le cas échéant !
Bonne après-midi !
Etorria