Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Set Doc = nv.GetFirstDocument Do While (Not (Doc Is Nothing)) iCount = iCount + 1 If Len(Doc.NoteID) & Doc.NoteID = sMessageId Then 'Found! sSubject = Doc.GetItemValue("subject")(0) sText = Doc.GetItemValue("Body")(0) sAttachedFileNames = "" 'Extract all items. For Each domattachment In Doc.Items Set domNotesItem = domattachment If domNotesItem.Type = 1084 Then 'OK!!!!! We have the file, lets extract it and create our string sFileName = domNotesItem.Values(0) sAttachmentFiles = sAttachmentFiles & sFileName & "|" Call Doc.GetAttachment(sFileName).ExtractFile(sTempFilename) sAttachmentPaths = sAttachmentPaths & sTempFilename & "|" End If Next sMessageId = Len(Doc.NoteID) & Doc.NoteID ReadMessage = "SUCCESS" GoTo EXITFUNCTION End If Set Doc = nv.GetNextDocument(Doc) Loop
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Notepad++ how to remove delimiter : from beggning of the line?||3||136|
|How to set the row selection as it was prior leaving the datagrid in vb6||3||61|
|which modules are active in VB6 project?||6||57|
|Replace Database Design||8||19|
Join the community of 500,000 technology professionals and ask your questions.