ItemChange Event to Propagate Contacts

Status
Not open for further replies.
C

C. Collings

Hi,

I am trying to use the ItemChange event on Contacts.Items to execute VBA

code that will propagate the change to a contacts folder in my local PST file.

My question is two-part:

1. When I delete a contactitem from the contacts folder, the ItemChange

event fires and copies the deleted item to my PST file. How can I

distinguish the difference between changing an item or deleting an item using

VBA? If I also add code for the ItemRemove Event, will both events still

fire?

2. When I manually copy a contactitem from one folder to another it asks if

I want to update with changes or copy as a new item? When I propagate a

changed item using VBA, it adds the changed item as a new item rather than

merging the changed item with the existing item and doesn't give me an

option? Is there something I can do differently?

Sub ContactsFolder_ItemChange(ByVal Item As Object)

If InStr(Item.Categories, "Keyword") > 0 Then

Dim Destination_Folder As MAPIFolder

Set Destination_Folder = GetFolder("Mailbox - Keyword\Contacts")

Set ContactItemCopy = Item.Copy

ContactItemCopy.Move Destination_Folder

Else

Set Destination_Folder = GetFolder("Mailbox - Local\Contacts")

Set ContactItemCopy = Item.Copy

ContactItemCopy.Move Destination_Folder

End If

End Sub

Thanks,

Collings
 
1. I do not see ItemChange event firing whe na contact is deleted., no

matter whether I simply hit Delete or Shift+Delete. What do you see in

OutlookSpy (url below) if you go to the Contacts fodler, click Folde rbutton

on the OutlookSpy toolbar, select the Items property, click Browsse.

In the Items window, go to the Events tab. Now delete a contact. What do do

you see in the log?

2. Outlook performs the duplicate check only when you add a contact through

the UI. If you go through the Object Model, it never checks for duplicates

(not should it IMHO). Any duplicate checks are your reponsibility.

Dmitry Streblechenko (MVP)

-

"C. Collings" <CCollings> wrote in message

news:40242236-0E46-47DB-A86C-32EC4DA7D2CB@microsoft.com...
> Hi,

> I am trying to use the ItemChange event on Contacts.Items to execute VBA
> code that will propagate the change to a contacts folder in my local PST
> file.

> My question is two-part:
> 1. When I delete a contactitem from the contacts folder, the ItemChange
> event fires and copies the deleted item to my PST file. How can I
> distinguish the difference between changing an item or deleting an item
> using
> VBA? If I also add code for the ItemRemove Event, will both events still
> fire?

> 2. When I manually copy a contactitem from one folder to another it asks
> if
> I want to update with changes or copy as a new item? When I propagate a
> changed item using VBA, it adds the changed item as a new item rather than
> merging the changed item with the existing item and doesn't give me an
> option? Is there something I can do differently?

> Sub ContactsFolder_ItemChange(ByVal Item As Object)
> If InStr(Item.Categories, "Keyword") > 0 Then
> Dim Destination_Folder As MAPIFolder
> Set Destination_Folder = GetFolder("Mailbox - Keyword\Contacts")
> Set ContactItemCopy = Item.Copy
> ContactItemCopy.Move Destination_Folder
> Else
> Set Destination_Folder = GetFolder("Mailbox - Local\Contacts")
> Set ContactItemCopy = Item.Copy
> ContactItemCopy.Move Destination_Folder
> End If
> End Sub

> Thanks,
> Collings
 
Status
Not open for further replies.
< Redemption MessageItem SaveAs problem | Outlook eating up delete keypress Options >
Similar threads
Thread starter Title Forum Replies Date
J ItemChange event Outlook VBA and Custom Forms 11
P Aborting ItemChange if ItemRemove Event Handler will be called nex Outlook VBA and Custom Forms 1
J Calendar events created on iPhone automatically changing default alert from 'None' to 'Time of Event' Using Outlook.com accounts in Outlook 0
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
J Cannot edit a calendar event received as an invitation Using Outlook 2
T Event Error on non existent Event. Using Outlook 2
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
P Calendar Day View only shows 1 all day event Using Outlook 0
G Event when creating task from mailitem Outlook VBA and Custom Forms 2
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
J Outlook 2010 Outlook/Win7 Client logging Event ID 36887 Using Outlook 0
K Recurring all day annual event Using Outlook 3
P Restore an individual all-day recurring event Using Outlook 2
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
K Working with Explorer.Close event Outlook VBA and Custom Forms 3
F Outlook 2016 call to Stop Timer Event Outlook VBA and Custom Forms 4
D Event ID issues Exchange Server Administration 2
T Outlook 2016 Calendar multiday event display Using Outlook 4
oliv- Treat once an email with the ItemAdd event in a shared mailbox Outlook VBA and Custom Forms 2
M Automatically create event in calendar when task is created Outlook VBA and Custom Forms 1
A UID field in iCal files - unique per-event or per-user or both? Using Outlook 2
D help with Item/Inspector close event Outlook VBA and Custom Forms 1
B on flag message event - create task Outlook VBA and Custom Forms 22
Diane Poremsky Change the All Day Event Default Free/Busy to "Busy" Using Outlook 3
C Calendar - Centering an event in Outlook? Using Outlook 1
J Outlook calendar...How to add an event or appointment without a border around it? Using Outlook 9
J Create Calendar Alert Event form Mail Subject line? Using Outlook 4
S Item Add Event fires intermittently Outlook VBA and Custom Forms 3
R Why is a meeting organizer me and not the creator of the event? Using Outlook 1
V Calendar event acting odd Using Outlook 7
G Capture "forward event" ? Outlook VBA and Custom Forms 11
P Change the Outlook.com "from" address for calendar event invites Using Outlook 9
20 Ton Squirrel Detect Application_Startup event completion Outlook VBA and Custom Forms 1
L Outlook 2007 All Day Event Using Outlook 27
I Event listener for deleted items Using Outlook 6
M Save Attachments Event? Using Outlook 0
Commodore Calendar Folder property is missing - Event 27 Using Outlook 11
G Quit event code - 2007 Using Outlook 3
J Capturing forward event when multiple items are selected Using Outlook 0
P Trying to get 'Calendar Name' to appear like 'Subject' and 'Location' in event Using Outlook 0
G What event happens when you open 2 copies of your inbox? Using Outlook 5
D Adding a participant automatically to a calendar event Using Outlook 1
H Changing Organizer of event (for single to total calendar move; long way ) Exchange Server Administration 4
N Combobox in outlook add ons toolbar not firing event on main window resized Using Outlook 3
D Extracting Location info from All Day Event in mailboxes into webpage Exchange Server Administration 3
H Conflicts with other event in calendar ( outlook 2007 &amp; 2010) Using Outlook 0
B Restoring Deleted Recurring Event AND Notes Using Outlook 8
Q Looking for Outlook 2010 Close Event Id Exchange Server Administration 1
S Outlook Recurring event Using Outlook 1
D Task and Event View in Outlook 2010? Using Outlook 3

Similar threads

Back
Top