AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |
Back to Blog
Convert outlook folder to pdf9/27/2023 ![]() MsgBox "The string not found in the PDF file." ' comment out or delete this line after testing. 'If text was not found, close the PDF file and perform clean-up If AVDocObj.FindText(arrSearch(i), False, True, True) = True Then ' search string, case sensitive, whole words only, start search on page 1 ' Go through the array and look for a match, then do somethingįor i = LBound(arrSearch) To UBound(arrSearch) ' Set up the array these are the words you are searching forĪrrSearch = Array("poremsky", "slipstick", "cdolive", "jackie", "s.smith", "jacksprat") If AVDocObj.Open(strSaveTemp, "") = True Then 'Open the PDF file and check if the open was successful. MsgBox "Error in creating the AVDoc object." Set AVDocObj = CreateObject("AcroExch.AVDoc") MsgBox "Error in creating the Adobe Application object." Set appObj = CreateObject("AcroExch.App") ![]() 'Set myForward = Application.CreateItem(olMailItem) ' create new message if forward contains external content 'If InStr(oAtt.FileName, "keyword") > 0 Then Sub CheckAttachment(Item As Outlook.MailItem) ' Need to set a reference to Acrobat Type Library If the user's full name as it appears in your contacts or global address list is in the attachment, you can use that as the address and Outlook will resolve it. ![]() In this example the word you are looking for is the user's alias. ![]()
0 Comments
Read More
Leave a Reply. |