Ready to get started with anonymous questions today? It's easy! Learn more.
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.
Join the community of 500,000 technology professionals and ask your questions.