Envoyer un fichier pdf avec sendMail

Version imprimable

Bonjour,

Utilisant excel 2007 Je souhaite réaliser une macro qui envoie par mail en pièce jointe le fichier :"E:\TEMP\test2.pdf".

J'arrive à créer et enregistrer le fichier pdf.
Mais je sais pas comment l'intégrer à la fonction Sendmail. à la place des ???????
Code:

1 2 3 4 5 6 7 8 9 10 Sub EnvoiMail() ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "E:\TEMP\test2.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _ False, IgnorePrintAreas:=False, OpenAfterPublish:=False ??????????.SendMail Recipients:="machintruc@orange.fr", Subject:="Test envoi fichier pdf", _ ReturnReceipt:=False End Sub
Merci d'avance

20/11/2014, 22h19
kiki29

Salut, dans la FAQ ou sinon une recherche
20/11/2014, 23h04
Leonor714

Merci pour cette réponse rapide ,

Mais j'ai bien rechercher pendant des heures sur tous les forums possible la solution à mon problème et j'ai déjà regardé les liens que tu proposes.
Ce n'est pas fainéantise que je me suis décidé à vous poser cette question.
C'est uniquement par ce que je n'ai pas trouvé ou compris comment faire.

C'est pour cela que je vous présente mon problème et espère une vrai réponse.
21/11/2014, 01h11
kiki29

Salut, regarde ici

Bonjour,
Comme cela si tu as OUTLOOK

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Export_Xls_to_PDFmail()
'---------------------------------------------------------------------------------------
' Procedure : Export_Xls_to_PDFmail
' Author    : oliv-
' Date      : 21/11/2014
' Purpose   :
'---------------------------------------------------------------------------------------
'
 PathPDF = "d:\Temp\Classeur2.pdf"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                      PathPDF, Quality:=xlQualityStandard, IncludeDocProperties:= _
                                       False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Dim ol As Object
    Set ol = CreateObject("outlook.application")
    Dim objMail As Object
    Set objMail = ol.CreateItem(0)
    objMail.attachments.Add PathPDF
    objMail.to = "toto.toto.fr"
    objMail.Subject="test envoi excel en pdf"
    objMail.Display
End Sub

21/11/2014, 18h22
Leonor714

Merci à vous pour ces réponses :D,
Je vais donc tester tous cela ce week-end et vous tiendrais au courant :P.

Bonne journée