Issue with where Outlook saves new contacts

Not open for further replies.


Outlook version
Email Account
In Outlook 2016, I have multiple email accts: 2 that use MS Exchange (2 separate employers' emails), and several others using POP3 (1 Yahoo, 2 gmail, and 1 other).

I use iCloud for syncing contacts across my PC, laptop, iPhone, and iPad.

The problem I'm having is that all new contacts - created on any of my 4 devices - is saved to my Exchange acct rather than my iCloud contacts acct (see image).


For clarity, I like all my contacts stored in "Contacts - iCloud", but all new contacts saved on any of my 4 devices are all saved to one of my Exchange accts for my work email address. I don't know why - it's just where new contacts show up when they're saved.

My issue with that is that my employer monitors my Exchange acct and I don't want them seeing my contacts, many of which are not work-related. All my devices are my own and not company-issued or owned.

The work-around I've been trying to use is:

  1. Save the contact, which I know will be saved to the one Exchange contacts location.
  2. Manually move the new contact from the Exchange contacts location to the iCloud contacts location.
  3. Hit the Outlook iCloud refresh button that pushes out a sync.

It would be so much nicer if all new contacts - saved on any device - were automatically saved to the iCloud contacts location. Can I change to this? Is it a setting?
Outlook should save new contacts to the account you are viewing when you create it. You can use the move to folder command as you save the contact so you don't need to close it then find and move it.

Depending on your method to create new contacts, a macro that saves contacts to icloud might be helpful.

Not tested so i might have forgotten something... but this should work. Add it as a button to the ribbon and when you want to create a contact, click the button to get a new form.

(Just tested it - it works.)

Public Sub CreateContactiCloud()

Dim objContact As Outlook.ContactItem
Set contactFolder = GetFolderPath("icloud\contacts")
Set objContact = contactFolder.Items.Add(olcontactItem)

End Sub

Function GetFolderPath(ByVal FolderPath As String) As Outlook.Folder
    Dim oFolder As Outlook.Folder
    Dim FoldersArray As Variant
    Dim i As Integer
    On Error GoTo GetFolderPath_Error
    If Left(FolderPath, 2) = "\\" Then
        FolderPath = Right(FolderPath, Len(FolderPath) - 2)
    End If
    'Convert folderpath to array
    FoldersArray = Split(FolderPath, "\")
    Set oFolder = Application.Session.Folders.item(FoldersArray(0))
    If Not oFolder Is Nothing Then
        For i = 1 To UBound(FoldersArray, 1)
            Dim SubFolders As Outlook.Folders
            Set SubFolders = oFolder.Folders
            Set oFolder = SubFolders.item(FoldersArray(i))
            If oFolder Is Nothing Then
                Set GetFolderPath = Nothing
            End If
    End If
    'Return the oFolder
    Set GetFolderPath = oFolder
    Exit Function
    Set GetFolderPath = Nothing
    Exit Function
End Function
Last edited:
BTW, i also have a macro at Save appointments to a non-default Outlook calendar folder that will watch the default contacts folder and move contacts that are dropped into it. This will only work for you if you never want to save contacts in the default mailbox. (That macro uses the same function as the macro i posted above - the macros can share it.)
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
Z Hotmail account deleted from outlook and issue with account not exist Using Outlook 0
mrrobski68 Issue with Find messages in a conversation macro Outlook VBA and Custom Forms 1
H Outlook 365 issue getting details from embedded files, crashing routine Outlook VBA and Custom Forms 0
O Mail rule issue Using Outlook 3
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
e_a_g_l_e_p_i Gmail in Outlook 2010 preview issue Using Outlook 4
M Issue transferring Outlook 2016 email accounts & settings onto new computer Using Outlook 8
P Forwarding emails issue with special characters replacing text body Using Outlook 1
S Excel VBA and shared calendar issue Outlook VBA and Custom Forms 3
A Clipboard Resize Issue Using Outlook 7
J O365 - Adding Shared Google Calendar ICS link issue in O365 Using Outlook 0
P Outlook 2013 "Item could not be moved - still an issue for Outlook 2013 Using Outlook 0
E Mail sorting view issue Using Outlook 1
D hide messege issue Using Outlook 1
B Outllok 2007 License Expired issue Using Outlook 0
ManaarZakaria I'm afraid of this issue, cause of strange error Exchange Server Administration 2
e_a_g_l_e_p_i Another reinstall of Outlook 2010 issue Using Outlook 10
Justo Horrillo Issue with rules in Outlook 2010 Using Outlook 4
G Icloud Contacts With Outlook Issue Using Outlook 4
J Contact Sync Issue Using accounts in Outlook 9
M Calendar Time Zone issue Using Outlook 0
B My outlook calendar edit issue Outlook VBA and Custom Forms 0
D Unusual calendar issue Exchange Server Administration 0
D Multiple Accounts Issue Receiving Emails in 2016 Using Outlook 0
B Winmail.dat Issue Using accounts in Outlook 0
K Outlook with MDaemon Connectivity Issue Using Outlook 4
G .ost file corrupted / solved the issue with some posts already said, but .ost file is corrupted agai Using Outlook 2
D Resizing issue for message field Outlook VBA and Custom Forms 0
P Outlook hanging issue Using Outlook 0
K Outlook 2013 calendar issue with Using accounts in Outlook 2
J Favorites in Public Folders issue Outlook VBA and Custom Forms 0
K Insert screenshots issue Using Outlook 2
T issue changing [Type] in dbo.ContactMainTable/ contacts seem to be deleted BCM (Business Contact Manager) 5
B Sub Calendar-Color Coding Issue Using Outlook 4
T Using Outlook 2007 with Comcast (.pst inbox issue) Using Outlook 1
Brendan.Z Outlook 2013 signature editing issue Using Outlook 3
F Custom contact form icon issue Using Outlook 1
A Autocomplete issue Using Outlook 6
wallisellener Synch issue BCM (Business Contact Manager) 2
H Outlook 2013 size issue Using Outlook 1
C Voting Issue with Shared Inbox Using Outlook 1
J Outlook 2013 Forms Issue Using Outlook 1
M BCM remote database connection issue BCM (Business Contact Manager) 1
A How are you handling category issue and syncing Using accounts in Outlook 2
J EAS Issue Using accounts in Outlook 6
santheocles Issue in Outlook 2013 - cannot reschedule single task Using Outlook 0
P Outlook ruler issue Using Outlook 3
K Different kind of issue related to creation of archive after one has been deleted Exchange Server Administration 1
JR Ryan Outlook marks all as "Read" issue Exchange Server Administration 2

Similar threads