VBA : E-mail avec PDF joint automatique

VBA Learner · 29 Février 2012

J'essaie de faire coexister une macro que j'ai et qui créé un e-mail en appuyant sur un "bouton" sur une feuille excel avec une macro qui me permettrait en même temps d'y joindre la feuille en question en PDF.

Voici la macro que j'ai pour l'instant concernant la création d'un e-mail :

Sub MailEnvoi()
' Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim WrdApp As Object

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")

If Worksheets("CBF").Range("E17").Value Like "?*@?*.?*" Then
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Worksheets("CBF").Range("E17").Value
.CC = "test@mail.com; test2@mail.com"
.BCC = ""
.Subject = Range("P5").Value
.Body = GetBoiler("adresse d'un fichier txt sur un serveur partagé")
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
End If

Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function

J'aimerai pouvoir faire en sorte qu'en appuyant sur le même bouton, la feuille en question puisse être mise automatiquement en pièce jointe sous format PDF. Le titre de cette pièce jointe peut être automatiquement mis en fonction de la valeur de certaine cellule (préférable).

J'ai regardé sur d'autre posts à ce sujet, mais je n'arrive pas à faire coexister leur macro dans la mienne sans altérer ce qui fonctionne déjà : la création du mail avec un message texte dans le corps du mail qui provient d'un docuement txt sur notre serveur.

Merci par avance de votre aide.

VBA : E-mail avec PDF joint automatique

VBA Learner

XLDnaute Nouveau

Discussions similaires