Re: Is there any way to get the Outlook State Answered?

hello again.

this is my coding. looks very nice but the eventsink won`t start. im
searching the web for debbuging the com+ application but every result
i found don't work.

The absolute coding was done by the event sink wizard, the coding
between the brakets is mine.

the event sink was registered with the exchange explorer.



**************
Private Sub IExStoreSystemEvents_OnTimer(ByVal bstrURLItem As String,
ByVal lFlags As Long)
'{
Dim objSession As Session
Dim objFolder As MAPI.Folder
Dim objMessages As MAPI.Messages
Dim objMessage As MAPI.Message
Dim objFields As MAPI.Fields

' MAPI property tags used
Const PR_LAST_VERB_EXECUTED = &H10810003

' Constants for Reply actions
Const ACTION_REPLY_ALL = 261
Const ACTION_FORWARD = 262

' Get inbox
Set objFolder = objSession.Inbox

' Get first message
Set objMessage = objFolder.Messages.GetFirst

' Get fields collection
Set objFields = objMessage.Fields

If objFields.Item(PR_LAST_VERB_EXECUTED) <> ACTION_REPLY Or _
objFields.Item(PR_LAST_VERB_EXECUTED) <> ACTION_FORWARD Then

'Write to the log file that this event has been called.'}
Call EventLog("TEST", bstrURLItem, lFlags)

'{
End If
'}

It's only a part, not the complete coding.

how can i debug this s**t in Visual Studio 6 on an Exchange Server
2003?

thanks
Florian

###############################################################################
"Ken Slovak - [MVP - Outlook]" <kenslovak@xxxxxxxx> wrote in message news:<#m$rHkCQFHA.576@xxxxxxxxxxxxxxxxxxxx>...
> The property that can be used to see if an item was replied to or forwarded
> would be PR_LAST_VERB_EXECUTED (0x10810003).
>
> EXCHIVERB_REPLYTOALL = 103
> EXCHIVERB_REPLYTOSENDER = 102
> EXCHIVERB_FORWARD = 104
>
> That, combined with PR_MESSAGE_FLAGS (0x10960003) can be used to see what's
> what. PR_MESSAGE_FLAGS will have bit 0 set for a message that has been read,
> it will be 0 for an unread item.
>
> --
> Ken Slovak
> [MVP - Outlook]
> http://www.slovaktech.com
> Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
> Reminder Manager, Extended Reminders, Attachment Options
> http://www.slovaktech.com/products.htm
>
>
> "Mario Kropik" <mario.kropik@xxxxxxxxxxxxxxx> wrote in message
> news:d3ipj0$gk6$05$1@xxxxxxxxxxxxxxxxxxxx
> > Only a suggestion (don't know if it's possible):
> >
> > Check the MAPI property tags. (e.g. 0x47110815)
> > There should exist a property - readable also through ADO Record - that
> > holds the 'outlook read flag'.
> >
> > You can use
> > http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_viewing_mapi_properties.asp
> > as a start to gain information.
> >
> >> mails in der Inbox?
> > Grüße aus Stuttgart
> >
> > Mario
.

Relevant Pages

  • VBA Coding
    ... Needless to say my coding is a failure i.e. it does not work..... ... Dim StrDocName As String ... Dim stQryName As String ...
    (microsoft.public.access.modulesdaovba)
  • Re: Runs fast then slow
    ... Thank you for the quick response. ... I tried turning off screen updating and calculation and it seems to take as ... Can you explain "bad coding"? ... >> Dim BreakCounter As Integer ...
    (microsoft.public.excel.programming)
  • Re: Last Slide in presentation
    ... recognise some of the coding. ... Sub FormatSlides() ... Dim count As Integer ... When I run the macro it fails at the marked point. ...
    (microsoft.public.powerpoint)
  • Re: Coding a combo box
    ... This is the coding that I have used to add a value to a list when the "not ... Port is a 3 letter location for a town i.e. LAX is the IATA code for Los ... Dim rsy As DAO.Recordset ... > to open a subform called frm_AddRefSource. ...
    (microsoft.public.access.forms)
  • Re: Send email from VBA
    ... But I can't figure out the coding. ... Dim olApp As Outlook.Application ... Dim olMail As MailItem ... Dim Txtsubject As String ...
    (microsoft.public.excel.programming)
Loading