Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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