Envoi par outlook d'un fichier PDF créé par macro

[gourdin]

Bonjour,

J'utilise le code suivant pour créer un fichier PDF de ma page active et je souhaite ensuite que cette même macro mette ce fichier en pièce jointe dans outlook.

Merci.

Macro PDF :

Sub ToPdf()

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = Range("F2") 
NomPdf = Left(NomExcel, Len(NomExcel)) & ".pdf"
With pdfjob
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing

 

[kjin]

Re : Envoi par outlook d'un fichier PDF créé par macro

Bonjour,
Tu ne fais guère beaucoup d'effort !
Ce lien (entr'autres), que je t'ai donné pas plus tard qu'hier, t'indiques clairement la méthode
A+
kjin

 

[gourdin]

Re : Envoi par outlook d'un fichier PDF créé par macro

Merci,

J'ai essayé avec ce lien mais trop difficile pour mon niveau et en plus tout en anglais.

 

[James007]

Re : Envoi par outlook d'un fichier PDF créé par macro

Bonjour, Salut Kjin 🙂

Il me semble que cette macro fait son boulot pour passer en pdf et sauvegarder ton fichier ...

En fait, c'est la macro qui envoie ton email avec Outlook qui doit aller rechercher cette pièce jointe que tu viens de sauvegarder ...

Les exemples de macros Outlook sont légion ... sur le Forum ...

A +
🙂

 

[kjin]

Re : Envoi par outlook d'un fichier PDF créé par macro

Re, salut James 🙂,
VBA en français connais pas...

Sub ToPdf() 'adaptes ta macro
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
'....
NomPdf = Left(NomExcel, Len(NomExcel)) & ".pdf"
With pdfjob
'...
.cOption("AutosaveDirectory") = ThisWorkbook.Path
'....
End With
Set pdfjob = Nothing

mail_pdf (ThisWorkbook.Path & "\" & NomPdf)

End Sub

Sub mail_pdf(fichier$)
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
    .To = "jeansérien@jenesaizou"
    .CC = ""
    .BCC = ""
    .Subject = "blabla"
    .Body = "blabla"
    .Attachments.Add fichier
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Peux pas tester
Merci à Ron
A+
kjin

 

[gourdin]

Re : Envoi par outlook d'un fichier PDF créé par macro

Merci je vais tester