[LOTUS NOTES] récup de piece jointe en VBA, une piste ?
5 réponses
francois
Bonjour,
Au boulot, j'ai Lotus Notes (j'aurais préféré Outlook ). Je reçois des
pieces jointes que j'aurais aimé traiter automatiquement. Avec Outlook et un
peu de VBA, c'eut été facile.
Je vous avais envoyé un msg il y a peu de temps et quelqu'un m'avait
indiqué un site qui donne des exemple d'envoi de message sous LOTUS en
utilisant VBA.
Mais mon besoin, c'est la récup de pieces jointe.
J'ai peu être une piste pour cette récup. J'ai vu sur un site le script
suivant.
Juste un petit pb, en début, il est indiqué Mettre la référence à Lotus
Domino Objects. Cobcrétement, que faut-il faire ?
' Mettre la référence à Lotus Domino Objects
Option Explicit
Sub Main()
Set Sess = CreateObject("Notes.NotesSession")
Dim Sess As New Domino.NotesSession
Dim dc As New NotesDocumentCollection
Dim DB As New Domino.NotesDatabase
Dim Doc As New Domino.NotesDocument
Dim Dir As New Domino.NotesDbDirectory
Dim item As NotesRichTextItem
Dim obj As Variant
Dim Compteur As Integer
Compteur = 0
Sess.Initialize ' password eventuel
Set Dir = Sess.GetDbDirectory("")
Set DB = Dir.OpenMailDatabase
If DB.IsOpen Then
Set dc = DB.AllDocuments
Set Doc = dc.GetFirstDocument
Do While Not (Doc Is Nothing)
Set item = Doc.GetFirstItem("Body")
If (item.Type = RICHTEXT) Then
If Not IsEmpty(item.EmbeddedObjects) Then
For Each obj In item.EmbeddedObjects
If (obj.Type = EMBED_ATTACHMENT) Then
Call obj.ExtractFile("c:\" + Format(Compteur, "00000.") +
obj.Name)
Compteur = Compteur + 1
End If
Next
End If
End If
Set Doc = dc.GetNextDocument(Doc)
Loop
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour François, Dans VBE tu ouvres Menu / Outils / Références et dans la liste tu coches Lotus Domino Objects. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"francois" a écrit dans le message de news:41566a4f$0$736$
Bonjour,
Au boulot, j'ai Lotus Notes (j'aurais préféré Outlook ). Je reçois des pieces jointes que j'aurais aimé traiter automatiquement. Avec Outlook et un peu de VBA, c'eut été facile.
Je vous avais envoyé un msg il y a peu de temps et quelqu'un m'avait indiqué un site qui donne des exemple d'envoi de message sous LOTUS en utilisant VBA. Mais mon besoin, c'est la récup de pieces jointe.
J'ai peu être une piste pour cette récup. J'ai vu sur un site le script suivant. Juste un petit pb, en début, il est indiqué Mettre la référence à Lotus Domino Objects. Cobcrétement, que faut-il faire ?
' Mettre la référence à Lotus Domino Objects
Option Explicit
Sub Main() Set Sess = CreateObject("Notes.NotesSession")
Dim Sess As New Domino.NotesSession Dim dc As New NotesDocumentCollection Dim DB As New Domino.NotesDatabase Dim Doc As New Domino.NotesDocument Dim Dir As New Domino.NotesDbDirectory
Dim item As NotesRichTextItem Dim obj As Variant
Dim Compteur As Integer
Compteur = 0
Sess.Initialize ' password eventuel Set Dir = Sess.GetDbDirectory("") Set DB = Dir.OpenMailDatabase
If DB.IsOpen Then Set dc = DB.AllDocuments Set Doc = dc.GetFirstDocument Do While Not (Doc Is Nothing) Set item = Doc.GetFirstItem("Body") If (item.Type = RICHTEXT) Then If Not IsEmpty(item.EmbeddedObjects) Then For Each obj In item.EmbeddedObjects If (obj.Type = EMBED_ATTACHMENT) Then Call obj.ExtractFile("c:" + Format(Compteur, "00000.") + obj.Name) Compteur = Compteur + 1 End If Next End If End If Set Doc = dc.GetNextDocument(Doc) Loop End If End Sub
Bonjour François,
Dans VBE tu ouvres Menu / Outils / Références et dans la liste tu coches Lotus Domino Objects.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"francois" <armel.francois.antiiiiiiii_spam@wanadoo.fr> a écrit dans le message de
news:41566a4f$0$736$8fcfb975@news.wanadoo.fr...
Bonjour,
Au boulot, j'ai Lotus Notes (j'aurais préféré Outlook ). Je reçois des
pieces jointes que j'aurais aimé traiter automatiquement. Avec Outlook et un
peu de VBA, c'eut été facile.
Je vous avais envoyé un msg il y a peu de temps et quelqu'un m'avait
indiqué un site qui donne des exemple d'envoi de message sous LOTUS en
utilisant VBA.
Mais mon besoin, c'est la récup de pieces jointe.
J'ai peu être une piste pour cette récup. J'ai vu sur un site le script
suivant.
Juste un petit pb, en début, il est indiqué Mettre la référence à Lotus
Domino Objects. Cobcrétement, que faut-il faire ?
' Mettre la référence à Lotus Domino Objects
Option Explicit
Sub Main()
Set Sess = CreateObject("Notes.NotesSession")
Dim Sess As New Domino.NotesSession
Dim dc As New NotesDocumentCollection
Dim DB As New Domino.NotesDatabase
Dim Doc As New Domino.NotesDocument
Dim Dir As New Domino.NotesDbDirectory
Dim item As NotesRichTextItem
Dim obj As Variant
Dim Compteur As Integer
Compteur = 0
Sess.Initialize ' password eventuel
Set Dir = Sess.GetDbDirectory("")
Set DB = Dir.OpenMailDatabase
If DB.IsOpen Then
Set dc = DB.AllDocuments
Set Doc = dc.GetFirstDocument
Do While Not (Doc Is Nothing)
Set item = Doc.GetFirstItem("Body")
If (item.Type = RICHTEXT) Then
If Not IsEmpty(item.EmbeddedObjects) Then
For Each obj In item.EmbeddedObjects
If (obj.Type = EMBED_ATTACHMENT) Then
Call obj.ExtractFile("c:" + Format(Compteur, "00000.") +
obj.Name)
Compteur = Compteur + 1
End If
Next
End If
End If
Set Doc = dc.GetNextDocument(Doc)
Loop
End If
End Sub
Bonjour François, Dans VBE tu ouvres Menu / Outils / Références et dans la liste tu coches Lotus Domino Objects. -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"francois" a écrit dans le message de news:41566a4f$0$736$
Bonjour,
Au boulot, j'ai Lotus Notes (j'aurais préféré Outlook ). Je reçois des pieces jointes que j'aurais aimé traiter automatiquement. Avec Outlook et un peu de VBA, c'eut été facile.
Je vous avais envoyé un msg il y a peu de temps et quelqu'un m'avait indiqué un site qui donne des exemple d'envoi de message sous LOTUS en utilisant VBA. Mais mon besoin, c'est la récup de pieces jointe.
J'ai peu être une piste pour cette récup. J'ai vu sur un site le script suivant. Juste un petit pb, en début, il est indiqué Mettre la référence à Lotus Domino Objects. Cobcrétement, que faut-il faire ?
' Mettre la référence à Lotus Domino Objects
Option Explicit
Sub Main() Set Sess = CreateObject("Notes.NotesSession")
Dim Sess As New Domino.NotesSession Dim dc As New NotesDocumentCollection Dim DB As New Domino.NotesDatabase Dim Doc As New Domino.NotesDocument Dim Dir As New Domino.NotesDbDirectory
Dim item As NotesRichTextItem Dim obj As Variant
Dim Compteur As Integer
Compteur = 0
Sess.Initialize ' password eventuel Set Dir = Sess.GetDbDirectory("") Set DB = Dir.OpenMailDatabase
If DB.IsOpen Then Set dc = DB.AllDocuments Set Doc = dc.GetFirstDocument Do While Not (Doc Is Nothing) Set item = Doc.GetFirstItem("Body") If (item.Type = RICHTEXT) Then If Not IsEmpty(item.EmbeddedObjects) Then For Each obj In item.EmbeddedObjects If (obj.Type = EMBED_ATTACHMENT) Then Call obj.ExtractFile("c:" + Format(Compteur, "00000.") + obj.Name) Compteur = Compteur + 1 End If Next End If End If Set Doc = dc.GetNextDocument(Doc) Loop End If End Sub
francois
Dans VBE tu ouvres Menu / Outils / Références et dans la liste tu coches Lotus Domino Objects.
--
Bonjour,
Merci pour la réponse.
Et ce n'est pas faisable en VBA ?
Francois Armel
Dans VBE tu ouvres Menu / Outils / Références et dans la liste tu coches
Lotus Domino Objects.
