Convertir un fichier word en pdf,l'envoyer en piece joint Thunde

Question

Bonjour,

J'ai trouver ce code sur le web, mais j'arrive pas à l'adapter au Mozilla Thunderbird.

Je souhaite convertir ce fichier en PDF ensuite l'envoyé en pièce joint avec Mozilla Thunderbird.

Private Sub CommandButton1_Click()
Dim fichier
fichier = "C:\...\mondoc.pdf"  'donner le nom exact du fichier pdf et du chemin où il sera stocké

'Export du fichier actif en pdf
ActiveDocument.ExportAsFixedFormat OutputFileName:=fichier, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False

'demande l'adresse du destinataire
destinataire = InputBox("adresse du destinataire")

'démarrage de l'automation Outlook :
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Objet du mail"
myItem.Body = "Texte du mail"
myItem.Attachments.Add fichier
myItem.to = adresse
myItem.Display
myItem.Send

MsgBox "Le mail es bien envoyé"

End Sub
Merci d'avance pour votre aide.

jordane45 · Answer

Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

jordane45 · Answer

Pour ce qui est de ta question....

Le code que tu nous montres... c'est pour l'envoie de mail depuis OUTLOOK...

Pour Thunder, il y a possibilité de passer par le SHEL (ou sinon..carément s'affranchir du logiciel en passant par CDO)

http://forum.excel-pratique.com/excel/email-avec-thunderbird-t40666.html

http://www.rondebruin.nl/win/s1/cdo.htm 
 
http://lmgtfy.com/?q=VBA+mail+Thunderbird

Convertir un fichier word en pdf,l'envoyer en piece joint Thunde

2 réponses

Votre réponse

Discussions similaires