Question often asked but not fully answered

Status
Not open for further replies.
M

Martin Teefy

Hi,

I'm using a free com dll from MAPILab in VB6 to get the extended properties of emails bypassing the outlook warning message but i'm having trouble getting the read/unread/replied status

As I said a frequent question but there doesn't seem to be a good answer as i've spent all afternoon reading the answers/questions to build up the following code but i'm obviously missing something...

Code is:

Private Const cdoPR_ICON_INDEX As Long = &H10800003

Private Const cdoPR_LAST_VERB_EXECUTED As Long = &H10810003

Private Const cdoPR_LAST_VERB_EXECUTION_TIME As Long = &H10820040

Private Const EXCHIVERB_REPLYTOSENDER = 102

Private Const EXCHIVERB_REPLYTOALL = 103

Private Const EXCHIVERB_FORWARD = 104

Set objProps = CreateObject("Mapiprop.MAPIPropWrapper")

objProps.Initialize

Set olApp = New Outlook.Application

Set olNameSpace = olApp.GetNamespace("MAPI")

Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox)

Set objItem = olFolder.Items.GetLast ' GetFirst

' PR_SENDER_NAME + PR_SENDER_EMAIL_ADDRESS

from_text.Text = objProps.getoneprop(objItem, CdoPR_SENDER_NAME) + " <" + objProps.getoneprop(objItem, CdoPR_SENDER_EMAIL_ADDRESS) + ">"

size_text.Text = objProps.getoneprop(objItem, CdoPR_MESSAGE_SIZE)

subject_text.Text = objProps.getoneprop(objItem, CdoPR_SUBJECT)

sent_text.Text = objProps.getoneprop(objItem, CdoPR_MESSAGE_DELIVERY_TIME)

If IsDate(objProps.getoneprop(objItem, CdoPR_LAST_MODIFICATION_TIME)) Then

Select Case IIf(IsEmpty(objProps.getoneprop(objItem, cdoPR_LAST_VERB_EXECUTED)), 101, objProps.getoneprop(objItem, cdoPR_LAST_VERB_EXECUTED))

Case 101

> CellDetails iRow, 1, , , 4 ' Read Icon

Case 102 ' Replied to

> CellDetails iRow, 1, , , 3 ' Reply Icon

Case 103 ' Replied to All

> CellDetails iRow, 1, , , 3 ' Reply Icon

Case 104 ' Forwarded to

> CellDetails iRow, 1, , , 2 ' Forward Icon

Case Else

> CellDetails iRow, 1, , , 1 ' Unread

End Select

End If

but the objProps.getoneprop(objItem, cdoPR_LAST_VERB_EXECUTED) step always give an automation error am I missing something?

Any advice appreciated.

Thanks

Martin
 
One thing you might be missing is that the property in question is not going

to be present on every item. Only items that have had an action executed on

them will have that property. Your code must handle the error that will

occur if it tries to access a property that is not present.

Sue Mosher

"Martin Teefy" <martin[dot]teefy[at]crosscompass[dot]com> wrote in message

news:uZ5niiOqKHA.1552@TK2MSFTNGP04.phx.gbl...
> Hi,

> I'm using a free com dll from MAPILab in VB6 to get the extended
> properties of emails bypassing the outlook warning message but i'm having
> trouble getting the read/unread/replied status

> As I said a frequent question but there doesn't seem to be a good answer
> as i've spent all afternoon reading the answers/questions to build up the
> following code but i'm obviously missing something...

> Code is:

> Private Const cdoPR_ICON_INDEX As Long = &H10800003
> Private Const cdoPR_LAST_VERB_EXECUTED As Long = &H10810003
> Private Const cdoPR_LAST_VERB_EXECUTION_TIME As Long = &H10820040

> Private Const EXCHIVERB_REPLYTOSENDER = 102
> Private Const EXCHIVERB_REPLYTOALL = 103
> Private Const EXCHIVERB_FORWARD = 104

> Set objProps = CreateObject("Mapiprop.MAPIPropWrapper")
> objProps.Initialize
> Set olApp = New Outlook.Application
> Set olNameSpace = olApp.GetNamespace("MAPI")
> Set olFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
> Set objItem = olFolder.Items.GetLast ' GetFirst
> ' PR_SENDER_NAME + PR_SENDER_EMAIL_ADDRESS
> from_text.Text = objProps.getoneprop(objItem, CdoPR_SENDER_NAME) + " <"
> + objProps.getoneprop(objItem, CdoPR_SENDER_EMAIL_ADDRESS) + ">"
> size_text.Text = objProps.getoneprop(objItem, CdoPR_MESSAGE_SIZE)
> subject_text.Text = objProps.getoneprop(objItem, CdoPR_SUBJECT)
> sent_text.Text = objProps.getoneprop(objItem,
> CdoPR_MESSAGE_DELIVERY_TIME)

> If IsDate(objProps.getoneprop(objItem,
> CdoPR_LAST_MODIFICATION_TIME)) Then

> Select Case IIf(IsEmpty(objProps.getoneprop(objItem,
> cdoPR_LAST_VERB_EXECUTED)), 101, objProps.getoneprop(objItem,
> cdoPR_LAST_VERB_EXECUTED))
> Case 101
> .CellDetails iRow, 1, , , 4 ' Read Icon
> Case 102 ' Replied to
> .CellDetails iRow, 1, , , 3 ' Reply Icon
> Case 103 ' Replied to All
> .CellDetails iRow, 1, , , 3 ' Reply Icon
> Case 104 ' Forwarded to
> .CellDetails iRow, 1, , , 2 ' Forward Icon
> Case Else
> .CellDetails iRow, 1, , , 1 ' Unread
> End Select

> End If

> but the objProps.getoneprop(objItem, cdoPR_LAST_VERB_EXECUTED) step always
> give an automation error am I missing something?

> Any advice appreciated.

> Thanks
> Martin

>
 
Status
Not open for further replies.
< Google MAPI account | custom search outlook 2003 >
Similar threads
Thread starter Title Forum Replies Date
e_a_g_l_e_p_i Question about Outlook 2021 and Gmail Using Outlook 9
G Question marks in messages Using Outlook 2
e_a_g_l_e_p_i Question about calendar Using Outlook 5
e_a_g_l_e_p_i Question about installing my Gmail account on my iPhone but still getting messages downloaded to my desktop Outlook. Using Outlook 3
e_a_g_l_e_p_i Question about reinstalling Outlook 2021 Using Outlook 5
e_a_g_l_e_p_i question about 2-Step Verification with my gmail Using Outlook 0
D Question on removing an alias Using Outlook 1
O Newbie question: how to sync two Outlook -Exchange and IMAP- calendars? Using Outlook 4
D a general question re how backup programs handle pst files ... I have no problems, just curious Using Outlook 1
e_a_g_l_e_p_i A few question before I decide to switch to Pop from imap Using Outlook 9
D.Moore SendAndReceive question Outlook VBA and Custom Forms 2
J Transport Rule to detect Keyword question.. Exchange Server Administration 2
N Question Using Outlook 8
D Shared Mailbox question Exchange Server Administration 1
CWM030 Another Quarantine question Exchange Server Administration 0
E Outlook 2010 Can somebody tell me , the question associated with OST format Using Outlook 1
CWM030 A quick question for Diane about Exchange Exchange Server Administration 2
CWM030 Email Catagorties question Using Outlook 1
MahdeeyaAbdulla Friend's outlook question Using Outlook 1
e_a_g_l_e_p_i Question about address book in Outlook 2010 Using Outlook 9
M Question about nested distribution lists Outlook VBA and Custom Forms 3
e_a_g_l_e_p_i A question about installing office 2013 Pro and using my .pst from office 2010 Using Outlook 12
rerun101 Question about message options Outlook VBA and Custom Forms 4
M Question: Is there a rule that will save email in Windows Explorer Outlook VBA and Custom Forms 3
M Question on address book Using Outlook 1
e_a_g_l_e_p_i question about saving my .pst so I can import it to my Outlook after I build a new system Using Outlook 10
V Question on pop email Using Outlook 2
D a general question regarding data files Using Outlook 3
R Outlook 2007 - Email Question - POP3 to IMAP Outlook VBA and Custom Forms 11
D Advanced Search Question Using Outlook 1
adaminaus Quick question if i may Using Outlook 4
T Business Projects question BCM (Business Contact Manager) 0
V question about personal and shared calendars Exchange Server Administration 1
A Basic BCM question about sync to Outlook 2013 BCM (Business Contact Manager) 1
Jeff Rott Diane Question on "Use in a Run a Script Rule" Outlook VBA and Custom Forms 1
C Custom Forms: Question about retaining form information throughout the entire conversation Outlook VBA and Custom Forms 2
D OST question Exchange Server Administration 5
Mr Mayor Another recurring meeting question Using Outlook 1
V iCloud question Using Outlook 3
J "Specific word in body" question Using Outlook 1
A Newb-ish question Using Outlook 2
A The hardest VBA/Outlook question yet Using Outlook 1
S DAG question Exchange Server Administration 0
P Outlook File Extension Question Using Outlook 3
J Outlook 2010 Calendaring Question Using Outlook 0
K Syncing outlook with iCloud question Using Outlook 5
T Outlook Prf/Automation question Using Outlook 2
T Settings question Using Outlook 6
D Question re: Grouping by Due Date vs. Sorting by Due Date Using Outlook 1
IGWright Outlook 2013 .pst Question Using Outlook 10

Similar threads

Back
Top