Envoi d'un fichier pdf via lotus notes 8.5 [Fermé]

Signaler
Messages postés
3
Date d'inscription
lundi 28 juillet 2008
Statut
Membre
Dernière intervention
8 mars 2016
-
Bonjour,

Je travaille dans une entreprise qui utilise office 2003 et qui prévoit le basculement vers office 2010 en juin prochain.
J'ai réussi à coup de forum ;-) a programmer une macro qui permet d'enregistrer une feuille excel en pdf et de l'envoyer via lotus notes 8.5 à une liste de distribution

Or cette macro ne fonctionne plus avec office 2010 (des pc's sont en test pour pouvoir justement tester ce genre de bug)

Ci-dessous la macro fonctionnel sous office 2003

Sub EnvoiMail()
'
' EnvoiMail Macro
'
'

'J'ouvre Adobe Reader et j'enregistre le fichier en PDF sous mon disque c: avec le nom REGIES KTN.pdf
Shell """C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"""

Application.ActivePrinter = "PDFCreator sur Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne01:", Collate:=True

'J'envoie par mail avec Lotus Notes 8.5 le fichier REGIES KTN.pdf à ma liste de distribution ORDRE KTN
Dim oSession As Object
Dim oDB As Object
Dim oDoc As Object
Dim sMsg As String, sMyAttachment As String
Dim oRichTextItem As Object

Const EMBED_ATTACHMENT = 1454

'open mail session and set up mail document
Set oSession = CreateObject("Notes.NotesSession")
Set oDB = oSession.GetDatabase("", "")
Call oDB.OpenMail
Set oDoc = oDB.CreateDocument
'Liste d'envoi
Call oDoc.ReplaceItemValue("SendTo", "ORDRE KTN")
'Sujet
Call oDoc.ReplaceItemValue("Subject", "REGIE KTN " & Date & " " & Time)
'create body text
Set oRichTextItem = oDoc.CreateRichTextItem("Body")
sMsg = "VEUILLEZ TROUVER CI-JOINT ORDRE POUR UNE REGIE" & vbCrLf & vbCrLf
Call oRichTextItem.AppendText(sMsg)

'attach attachment
sMyAttachment = "c:\REGIES KTN.pdf"
Call oRichTextItem.EmbedObject(EMBED_ATTACHMENT, "", sMyAttachment)

'envoyé
oDoc.SaveMessageOnSend = True
Call oDoc.Send(False)
Set oSession = Nothing
MsgBox "Ordre envoyé.", vbOKOnly + vbInformation

End Sub

Pouvez-vous m'aider s'il vous plait ?

Un grand merci d'avance à mon sauveur