Lecture mail sous lotus notes

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 221 fois - Téléchargée 43 fois

Contenu du snippet

Imprimer dans la fenêtre d'exécution tous les items des mails recus et gérés par Lotus Notes

Source / Exemple :


Option Explicit

Sub Main()
    Dim Sess As Object
    Dim DB As Object
    Dim flag As Boolean
    
    Dim dc As Object
    Dim Doc As Object
    Dim item As Variant
    
    Set Sess = CreateObject("Notes.NotesSession")
    Set DB = Sess.GetDatabase("", "")
    DB.OpenMail
    flag = True
    If Not (DB.IsOpen) Then flag = DB.Open("", "")
    
    If flag Then
        Set dc = DB.AllDocuments
        Set Doc = dc.GetFirstDocument
        Do While Not (Doc Is Nothing)
            If Doc.GetItemValue("Form")(0) = "Memo" And Sess.UserName <> Doc.GetItemValue("From")(0) Then
                For Each item In Doc.Items
                    Debug.Print "Item=" & item.Name & " Text=" & item.Text
                Next
                Debug.Print "--------------------------"
            End If
            Set Doc = dc.GetNextDocument(Doc)
        Loop
    Else
        MsgBox "Echec "
        End
    End If
    
    Set Sess = Nothing
    Set DB = Nothing
End Sub

Conclusion :


Programme sans prétention. Juste parce que je ne trouve pas beaucoup de choses autour de Lotus Notes sur le Net. Je cherche pour l'instant à traiter que du courrier non encore lu alors ceux qui savent comment faire...

A voir également

Ajouter un commentaire

Commentaires

gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008
-
Merci, cela me donne des idées.
Aurais-tu des bonnes adresses Internet concernant l'automatisation de Notes ?

Regards

Gilardh
cs_Luong
Messages postés
30
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 janvier 2007
-
En fait, c'est assez dur de trouver des sites concernant Notes à part notes.net (site officiel de lotus). Sinon je suis inscrit au groupe Yahoo devlotusnotes (ou qcq dans ce genre). A mon avis tu peux poser des questions là bas... Bon courage.
gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008
-
Bonjour,

Apparement, tu liste tous les documents Notes "AllDocuments".
As-tu l'instruction qui recherche uniquement dans ceux qui ont été recus ?

Regards

Gilardh
cs_sadate
Messages postés
30
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
11 décembre 2009
-
Bonjour

Voici une adresse

http://cseh.best.vwh.net/lscrxref.htm

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.