Word VBA Word : le code VBA pour automatiser l'envoi d'un document word en PDF par email Outlook

[RJ85]

Bonjour à tous,

j'ai crée un formulaire au format word.
Dans ce document word, j'ai crée un bouton afin que le rédacteur du document puisse, à l'aide de ce bouton, envoyer automatiquement ce document en pièce jointe PDF dans un email (Outlook) aux destinataires de son choix.
Malheureusement, je ne trouve pas le code VBA permettant à la fois la transformation du document word en PDF et l'envoi de ce document PDF en pièce jointe par email Outlook.

Pourriez-vous m'aider dans la rédaction du code VBA, compléter ce code:
Private Sub ENVOYER_Click()

End Sub

Je ne sais pas si ce renseignement est utile pour le code VBA est intitulé : rapport anomalie preconisation

En vous remerciant par avance pour votre aide

 

[Staple1600]

Bonjour

Un petit tour par G..g.e, et lui trouve toujours
Un exemple de code qui fait le job

Sub EmailPDF()
Dim strData As String
Dim ola As Outlook.Application
Dim maiMessage As Outlook.MailItem
Dim fs
strData = InputBox("Please Enter Filename")
strData = "h:\" & strData & ".pdf" 'Creates a PDF and stores it locally
ActiveDocument.ExportAsFixedFormat OutputFileName:=strData, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
On Error Resume Next
'Start Outlook if it isn't running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new message
Set oItem = oOutlookApp.CreateItem(olMailItem)
oItem.Display
'Add attachment
oItem.Attachments.Add strData
'Create a file system object to delete temporary file
Set fs = CreateObject("Scripting.FileSystemObject ")
fs.deletefile strData
End Sub

PS: Evidemment, faire les adaptations nécessaires notamment au niveau du path et du nom du PDF

 

[RJ85]

Bonjour

Un petit tour par G..g.e, et lui trouve toujours
Un exemple de code qui fait le job

Sub EmailPDF()
Dim strData As String
Dim ola As Outlook.Application
Dim maiMessage As Outlook.MailItem
Dim fs
strData = InputBox("Please Enter Filename")
strData = "h:\" & strData & ".pdf" 'Creates a PDF and stores it locally
ActiveDocument.ExportAsFixedFormat OutputFileName:=strData, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
On Error Resume Next
'Start Outlook if it isn't running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
End If
'Create a new message
Set oItem = oOutlookApp.CreateItem(olMailItem)
oItem.Display
'Add attachment
oItem.Attachments.Add strData
'Create a file system object to delete temporary file
Set fs = CreateObject("Scripting.FileSystemObject ")
fs.deletefile strData
End Sub

PS: Evidemment, faire les adaptations nécessaires notamment au niveau du path et du nom du PDF

Bonjour JM,

D'abord merci pour avoir répondu dans des délais très courts
Malheureusement, je n'y arrive pas avec ce code. Il est probable que je ne sache pas l'adapter au path...

Ce code ci-dessous fonctionne mais cela reste un document word et lourd pour Outlook (parfois plus de 20MO) et non un PDF

Private Sub ENVOYER_Click()
Options.SendMailAttach = True
ActiveDocument.SendMail
End Sub

Merci quand même.

Raphaël

 

[Staple1600]

Re

C'est ceci qu'il faut adapter à ta problématique
strData = "h:\" & strData & ".pdf"
Imaginons que tu stockes ton PDF dans un dossier nommé WordPDF dans tes Documents
Alors le chemin (ou Path en anglais) devra être
strData = "C:\Users\Staple1600\Documents\WordPDF\" & strData & ".pdf"

NB: Evidemment remplacer Staple1600 par le login de session Windows

 

[RJ85]

Re

C'est ceci qu'il faut adapter à ta problématique
strData = "h:\" & strData & ".pdf"
Imaginons que tu stockes ton PDF dans un dossier nommé WordPDF dans tes Documents
Alors le chemin (ou Path en anglais) devra être
strData = "C:\Users\Staple1600\Documents\WordPDF\" & strData & ".pdf"

NB: Evidemment remplacer Staple1600 par le login de session Windows

Je vais voir sur l'ordi du boulot et t 'en remercie.
J'espère que le chemin d'accès est identique pour l'ensemble des collègues car chacun a une session. je voudrais que ces collègues m'envoie le doc en PDF à partir de leur session windows
Bien à toi,
Raphaël

 

[Staple1600]

Re

Normalement (sur PC sous Windows), avec cette syntaxe, pas de problème de path
Ci-dessous une petite macro de test pour illustrer la chose.

Sub PourTest()
strData = InputBox("Saisir, svp, le nom du ficher à convertir en PDF.", "Export en PDF")
'Creates a PDF and stores it locally
strData = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & "\" & strData & ".pdf"
MsgBox strData
End Sub