atlantique444
XLDnaute Nouveau
Bonjour
J'ai récupéré un code VB qui me permet d'envoyer un fichier depuis EXCEL par IBM LOTUS NOTES 8.
Cela fonctionne très bien mais ce code envoie à la fois le fichier TEST.DOC ainsi qu'une page de garde qui indique le contenu du message.
Je souhaite ne pas envoyer la page de garde mais UNIQUEMENT fichier TEST.DOC.
Voici le code que j'utilise :
Sub SendMeEmail()
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
Call oDoc.ReplaceItemValue("SendTo", Range("b1").Text) 'Le texte en B1 est le N° de Télécopie'
Call oDoc.ReplaceItemValue("Subject", "Test Email")
'create body text
Set oRichTextItem = oDoc.CreateRichTextItem("Body")
sMsg = ""
Call oRichTextItem.AppendText(sMsg)
'attach attachment
sMyAttachment = "c:\test.DOC" 'Chemin et nom complet du fichier envoyé'
Call oRichTextItem.EmbedObject(EMBED_ATTACHMENT, "", sMyAttachment)
'send
oDoc.SaveMessageOnSend = True
Call oDoc.Send(False)
Set oSession = Nothing
MsgBox "Email sent.", vbOKOnly + vbInformation
End Sub
En vous remerciant d'avance.
J'ai récupéré un code VB qui me permet d'envoyer un fichier depuis EXCEL par IBM LOTUS NOTES 8.
Cela fonctionne très bien mais ce code envoie à la fois le fichier TEST.DOC ainsi qu'une page de garde qui indique le contenu du message.
Je souhaite ne pas envoyer la page de garde mais UNIQUEMENT fichier TEST.DOC.
Voici le code que j'utilise :
Sub SendMeEmail()
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
Call oDoc.ReplaceItemValue("SendTo", Range("b1").Text) 'Le texte en B1 est le N° de Télécopie'
Call oDoc.ReplaceItemValue("Subject", "Test Email")
'create body text
Set oRichTextItem = oDoc.CreateRichTextItem("Body")
sMsg = ""
Call oRichTextItem.AppendText(sMsg)
'attach attachment
sMyAttachment = "c:\test.DOC" 'Chemin et nom complet du fichier envoyé'
Call oRichTextItem.EmbedObject(EMBED_ATTACHMENT, "", sMyAttachment)
'send
oDoc.SaveMessageOnSend = True
Call oDoc.Send(False)
Set oSession = Nothing
MsgBox "Email sent.", vbOKOnly + vbInformation
End Sub
En vous remerciant d'avance.