4/29/2023 0 Comments Sorry for the unreplied messages![]() ![]() If (cdoField.Value "RE: ") And (cdoField. 'Corresponds to the MAPI property indicating that a message was replied to and/or forwarded. The script doesn't seem to flag all the messages that meet the age criteria, it stops after a while. Sadly, this didn't work either - what am I not considering? ![]() MsgBox strTemp, vbOKOnly, "Unanswered Messages Over " & intDays & " Days Old" would using a third party messaging app circumnavigate this potentially huge flaw in. 'If InStr(1, objItem.Body, "Some word or phrase") > 0 Then im no tech guy so apologies if this short term solution is way off. 'If InStr(1, objItem.Subject, "Some word or phrase") > 0 Then 'To add tests for subject or body content use the following syntax StrTemp = strTemp & intAge & vbTab & objItem.Subject & vbCrLf 'The following line builds the contents of the pop up dialog-box youll then create a custom view with that field in the view. If (cdoField.Value 102) And (cdoField.Value 103) Then Answer Diane Poremsky Independent Advisor Replied on SeptemReport abuse hi Holly, You need to install a CFG file to show the lastverb value - this is used to identify the message replied to and forwarded. If (cdoField Is Null) And (intAge >= intDays) Then '*******modified below test to check for NULL instead of Is Nothing ******* IntAge = DateDiff("d", objItem.ReceivedTime, Now) Set cdoField = cdoMessage.Fields(cdoPR_SU BJECT_PREF IX) Set cdoMessage = cdoSession.GetMessage(strE ntryID, strStoreID) StrTemp = "Age" & vbTab & "Message Subject" & vbCrLf Set cdoSession = CreateObject("MAPI.Session ") Set objFolder = Application.ActiveExplorer. IntDays = Val(InputBox("What message age (in days) shall I use?", "Find Unread Messages", "30")) Khan Academy is a nonprofit with the mission of providing a free, world-class education for anyone, anywhere. We are deeply saddened to hear about your loss. Learn for free about math, art, computer programming, economics, physics, chemistry, biology, medicine, finance, history, and more. Sending my sincere sympathy and love to you and your family. ![]() May the memories of name forever bring you peace. 'and flags them with a purple flag as well as displaying them in a pop-up dialog box. Our sincerest condolences to the entire family during this sad time. Languages are a learn by doing kind of thing. 'This subroutine finds a list of unanswered messages in a specified time period The language learning app where millions of people teach each other. I tried using PR_SUBJECT_PREFIX instead, and modified the script as follows: In the meantime, I ran MFCMAPI and discovered much to my chagrin, that the PR_LAST_VERB_EXECUTED property is not available for the messages that I'm trying to run this macro on. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |