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

Signaler
Messages postés
1
Date d'inscription
mardi 10 juin 2014
Statut
Membre
Dernière intervention
10 juin 2014
-
Messages postés
31548
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
2 mars 2021
-
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.

2 réponses

Messages postés
31548
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
2 mars 2021
344
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
Messages postés
31548
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
2 mars 2021
344
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