Faxer excel ibm lotus notes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
17 K
Compte Supprimé 979
C
C
  • Question Question
Réponses
3
Affichages
3 K
Retour