Lecture mail sous lotus notes

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Luong)