Trouble editing a linked Outlook Contact list

[Salty Mariner]

I have an Outlook Contact as an External Data linked table. I have a form that displays a listbox with names in one column and email addresses in another. For mail recipients not in the contact list I have two textboxes...One for the recipients name and another for the email address. I then have a button that concatenates an email string in the format that outlook uses. after formatting is completed I pop a messagebox offering to add the contact to outlook using the following code.

Private Sub AddToOutlook(Name As String, eMail As String)


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim firstName As String
Dim lastName As String


Set db = Application.CurrentDb
Set rs = db.OpenRecordset("OutlookContacts", dbOpenDynaset)


    firstName = Split(Name, " ")(0) 'get the element before the space
    lastName = Split(Name, " ")(1) 'get the element after the space
        
        With rs
            .AddNew
            ![Display name] = Name
            ![E-mail address] = eMail
            ![First] = firstName
            ![Last] = lastName
            .Update
            .Close
        End With
    Me.Requery
End Sub

It all seems straightforward enough but when the code is run I get the following dialog telling me I do not have the proper permissions.


Here is the form




Any idea of what kind of permissions are needed to edit a linked Outlook table?

[Welshgasman]

Google is always my first point of call?
https://www.google.com/search?q=outl...hrome&ie=UTF-8


I would expect permissions be due to Excahnge Server?, is that the case with you?

Also Name is a reserved word, and if you are just adding records, better to open a empty recordset. There is actually a parameter to indicate this, but I cannot remember what it is. Amother way is to use criteria to return an empty set like WHERE 1 = 0.

Found it. https://learn.microsoft.com/en-us/of...numeration-dao

[Salty Mariner]

Google is always my first point of call?
https://www.google.com/search?q=outl...hrome&ie=UTF-8


I would expect permissions be due to Excahnge Server?, is that the case with you?

Also Name is a reserved word, and if you are just adding records, better to open a empty recordset. There is actually a parameter to indicate this, but I cannot remember what it is. Amother way is to use criteria to return an empty set like WHERE 1 = 0.

Found it. https://learn.microsoft.com/en-us/of...numeration-dao

Weslhgasman,

Thanks for the links on enumeration options. However I cannot even edit this table as a datasheet. I have tried deleting the link, going to Outlook, setting all permissions to "Owner", and relinking with no change in the outcome. Crazy because I watched a ew videos on this and in all of the tutorials they create the link and have no issues with permissions. They are able to edit straight away after creating the link. Oh, yes, I have searched a lot on this and have not yet found a resolution.

[Salty Mariner]

OK Folks,

I found a work around that will likely work for me. It's not quite what I wanted but it works just fine. I found some posts elsewhere with some code for manipulating the Outlook object and with some minor modifications for my application I came up with the following.

Private Sub AddToOutlook(strName As String, strEmail As String)
Dim strFirstName As String
Dim strLastName As String
Dim objOutlook As Outlook.Application
Dim objContact As Outlook.ContactItem
Dim Item As Outlook.ContactItem


    strFirstName = Split(strName, " ")(0) 'get the element before the space
    strLastName = Split(strName, " ")(1) 'get the element after the space




    'InitOutlook
    Set objOutlook = CreateObject("Outlook.application")
    Set Item = objOutlook.CreateItem(olContactItem)
    
    Item.FirstName = strFirstName & ""
    Item.LastName = strLastName & ""
    Item.Email1Address = strEmail & ""
    Item.Display
    
    Set objOutlook = Nothing
    Set Item = Nothing


End Sub

When the code completes it opens in Outlook as a contact card in "General" view. This is not altogether bad as it allows the user to add additional information if they so choose and my linked table still works fine in read only for populating the listbox with email adresses and contact names.

[Welshgasman]

I do not know what to say.
I linked to my outlook contacts and was able to amend just opening the table.

[Salty Mariner]

I do not know what to say.
I linked to my outlook contacts and was able to amend just opening the table.

Yes I know, that is why I was baffled. Some searches did reveal others experiencing similar issues but no solutions.

Interestingly I opened the db on my laptop which is mirrored through OneDrive and as expected the same issue there even though I was secretly hoping it was a local problem.