Update the existing Contact item

Status
Not open for further replies.
P

paresh

Hi,

Could anyone please tell me how to update the Contact item? the following

code doesn't work. I want to update the fullname of existing contact item.

(all messageboxes prints the same existing fullname even after changing and

saving it)

Dim defaultContactsFolder As Outlook.MAPIFolder

Dim ocontactItem As Outlook.ContactItem

Dim ocontactItems, i

Set defaultContactsFolder =

Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Set ocontactItems = defaultContactsFolder.Items

MsgBox ocontactItems(1).FullName

ocontactItems(1).FullName = "testing"

MsgBox ocontactItems(1).FullName

ocontactItems(1).Save

MsgBox ocontactItems(1).FullName

Thanks.
 
Got it working. I need to set ContactItem object.

Dim defaultContactsFolder As Outlook.MAPIFolder

Dim ocontactItem As Outlook.ContactItem

Dim ocontactItems, i

Set defaultContactsFolder =

Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Set ocontactItems = defaultContactsFolder.Items

Set ocontactItem = ocontactItems(1)

MsgBox ocontactItem.FullName

ocontactItem.FullName = "testing"

MsgBox ocontactItem.FullName

ocontactItem.Save

MsgBox ocontactItems(1).FullName

Thanks.

"paresh" wrote:


> Hi,

> Could anyone please tell me how to update the Contact item? the following
> code doesn't work. I want to update the fullname of existing contact item.
> (all messageboxes prints the same existing fullname even after changing and
> saving it)

> Dim defaultContactsFolder As Outlook.MAPIFolder
> Dim ocontactItem As Outlook.ContactItem
> Dim ocontactItems, i
> Set defaultContactsFolder =
> Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
> Set ocontactItems = defaultContactsFolder.Items
> MsgBox ocontactItems(1).FullName
> ocontactItems(1).FullName = "testing"
> MsgBox ocontactItems(1).FullName
> ocontactItems(1).Save
> MsgBox ocontactItems(1).FullName

> Thanks.
>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
J Updating existing entry on shared calendar wants to send update from delegate Using Outlook 0
Bachelle Macro to Update Existing Task from New Email Outlook VBA and Custom Forms 3
D Update existing rule using VBA Using Outlook 2
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 7
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
icacream New password won't update Using Outlook 2
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
O Batch update calendar Using Outlook 3
R Outlook 365 update sets delete from server flag Using Outlook 1
V Update new custom field Outlook VBA and Custom Forms 5
P Outlook 2019 UI changes after 20H2 update Using Outlook 1
D Change Microsoft Account password - what to do to update on all devices Using Outlook 4
K can't get custom form to update multiple contacts using VBA Outlook VBA and Custom Forms 3
B Outlook 2016 Retail C2R keeps logging since update? Using Outlook 0
C Not sync folders not found after MS Outlook 365 update Using Outlook 1
W September 2020 - No Default Email Client message after Office Update Using Outlook 1
D.Moore VBA script fail after Office 365 update Using Outlook 8
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
Jennifer Murphy Grant R/W (update) access to a friend Using Outlook 3
L Favorites don't update Using Outlook 1
F Copy and replace not update contact in another pst Using Outlook 0
M Message list font changed after update Using Outlook 2
M Quicken One Step Update Bill Reminders Not Syncing to Outlook Using Outlook 1
O Windows 1803 update : QAT and toolbar changed, language pack gone... Using Outlook 5
N Using email notification to update calendar events? Outlook VBA and Custom Forms 4
K Update Appointment category when changed in Excel Using Outlook 3
V Outlook 2003 problem with Windows 10 Creators Update 1709 Using Outlook 0
G Windows Update Causes BCM Database Access Problem? BCM (Business Contact Manager) 4
K Update subject based on text in body Outlook VBA and Custom Forms 3
A Creating Progress Bar or Status Bar Update Outlook VBA and Custom Forms 0
M Recent Update Did not Fix Search Problems Using Outlook 7
R Custom Contact Form how to update when loaded. Outlook VBA and Custom Forms 6
C Update Notes for Meeting Attendees Using Outlook 8
A Attendee Update Outlook Meeting Invite Using Outlook 0
Diane Poremsky Outlook Email Security Update Using Outlook 0
S Task Update coming as email and not updating task Using Outlook 3
Diane Poremsky Remove Office 2013 Update Banner Using Outlook 0
B IMAP folders don't update when Outlook 365 opens Using Outlook 0
J Outlook Macro to Update Sharepoint Excel File Using Outlook 1
Diane Poremsky Task Request Status Update Address Missing Using Outlook 0
CWM330 Importing from Eudora Update Using Outlook 5
Cameron Piper Automatically update custom forms across multiple computers Outlook VBA and Custom Forms 1
M Update field codes when opening Outlook Template Outlook VBA and Custom Forms 2
I Microsoft Security Update KB3097877 Using Outlook 14
S Outlook 2010: October 2015 Update Using Outlook 0
S Outlook 2013: October 2015 Update Using Outlook 0
Diane Poremsky Update Contacts with a New Company Name and Email Address Using Outlook 0
Diane Poremsky Update Contacts with a New Company Name and Email Address Using Outlook 0
F Update the notes field Exchange Server Administration 0

Similar threads

Back
Top