XL 2010 VBA Envoi impression PDF LOTUS Notes 8.5

[chris6999]

Bonjour

Je souhaite envoyer depuis une macro, une impression de ma feuille en PJ par mail.
J'ai trouvé un code qui fonctionne à la perfection mais avec Outlook.
Pensez-vous qu'il serait possible de l'adapter pour faire la même chose avec LOTUS (8.5).

Merci d'avance
Bonne journée

Sub Mail()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object


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

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
' Définit le nom du fichier à enregistrer
sNomFic = Range("B5").Value & ".pdf" '"Nom à définir.pdf"
' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Range("B6").Value '"adresse@mail.fr"
.Cc = ""
.Attachments.Add (sRep & "\" & sNomFic)
.Subject = Range("C3").Value '"Sujet à définir"
.Display
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub