The Message ID is contained in the $MessageID field. For example, a newsletter from SearchDomino.com had the message ID "<20030702151524.57275282A@mailhost11.lists.techtarget.com>". To get a handle on this document in a users inbox, you could use the following code:
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim docNext As NotesDocument Dim item As NotesItem Dim strMessageID As String strMessageID = "<20030702151524.57275282A @mailhost11.lists.techtarget.com>" Set db = s.GetDatabase("server", "mailfilename") Set view = "($InBox)" Set doc = view.GetFirstDocument While Not(doc Is Nothing) Set item = doc.GetFirstItem("$MessasgeID") If item.text = MessageID Then ' --- add whatever code you need to 'process the document the way you wish ' --- possibly : Call doc.Remove Goto singleExit End If Set doc = dc.GetNextDocument(doc) Wend singleExit: End Sub
Related Q&A from Brian Mahoney
Find out what types of calculations can be computed for a column in a Lotus Notes view and the best way to go about it with this expert response.continue reading
Find out why you can't use Formula language to include a doclink to a specific Lotus Notes view or database and need to use LotusScript instead.continue reading
Discover the reasons behind a Notes/Domino admistrator having trouble with disabled options in the "customize this view" section of his Lotus Notes ...continue reading
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.