Outlook 2019 Macro to check Cursor & Focus position

[Witzker]

Hi, I'm working on a OL2019 custom contact form
for further macro operations, I need the Info in which field the cursor & focus is at the moment
To do This, I have now this code:

Private Sub CheckContactField()
    MsgBox "Checking contact field..."
    Dim currField As ContactItem
    Set currField = ActiveInspector.CurrentItem
    Dim prop As PropertyAccessor
    Set prop = currField.PropertyAccessor
    Dim schema As String
    schema = prop.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3A4F001E")
    MsgBox schema
End Sub

No errors, but MsgBox is empty!

Pls help with next steps
PS: This is connected with this

Set Cursor & Focus from any field to the body of a user Contact form in OL 2019​

 

[Diane Poremsky]

I see what the problem is here but not sure how to get the right value.

This is a specific schema - you want to get the prop and come back with the schema - or the value in the field, or field name.

schema = prop.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3A4F001E")

You want to do something like this
schema = prop.GetProperty(propschema)
You may need to use Redemption to get to field name -

 

[Diane Poremsky]

Also - this -
Set currField = ActiveInspector.CurrentItem

You're setting the contact form as the currfield, not the cursor position.

 

[Witzker]

Thanks, but I do not know How to
pls provide the whole corrected code
THX
PS: any other code to get Focus position also welcomed

 

[Diane Poremsky]

I'm not sure how to do it either - I tried a few things here and it failed. I'll take a look at it again tonight.

 

[Witzker]

Diane Many THX for taking care
in fact, it is a part of a macro to set date & time AND cursor AND focus to the body field of a user defined Contact form
As up to now nobody could tell me how to do this with VBA macro

Set Cursor & Focus from any field to the body of a user Contact form in OL 2019​

Set Cursor & Focus from any field to the body of a user Contact form in OL 2019

Sub SetCursorAndFocus() ' Cursor appears in body, but focus stays in field where it was when calling the macro Dim objItem As Object Set objItem = Outlook.Application.ActiveInspector.CurrentItem If objItem Is Nothing Then MsgBox "No item is open." Exit Sub End If Dim...

forums.slipstick.com

I need to check when calling the macro that sets date....
That the Cursor AND Focus is in the body field.
So in fact I do not need to know where the Cursor & focus is
BUT
I need to know if the Cursor & Focus is in The Body field!
So If not the macro then will stop and Says " pls move cursor to body field and try again or similar"

 

[Diane Poremsky]

That will be easier.... with the inspector, it should always be in the body. You use word vba command to put it at the top or bottom.

If you are adding a date stamp, that can be added using .body

item. Body = date & vbcrlf & item.body

This pastes the clipboard into an appointment but it works the same for contacts -

Set objAppt = Application.CreateItem(olAppointmentItem)
Set objInsp = objAppt.GetInspector
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Windows(1).Selection

With objAppt
objSel.PasteAndFormat (wdFormatOriginalFormatting)
.Display
End With

 

[Witzker]

item. Body = date & vbcrlf & item.body

THX, but This is I need to avoid because in ruins the formatted text (e.G. Text in red) body field.
also, HTML.body is not supported!
That's the reason I asked for a code as described above as a part of the macro to insert date in red and not ruining the forested body.

So pls can you give me the Code for this:
I need to know if the Cursor & Focus is in The Body field!
So If not it should Says " pls move cursor to body field and try again or similar"

 

[Witzker]

Any news on getting cursor position Pls?