Create a Contact in Outlook from Access

[Jarmin]

The following code opens a new contact in Outlook and populates the fields with the data from my Access database.

How do I change the the default folder that this contact is saved to, at the moment it saves it to the default folder 'Contacts'? I want it to save these contacts in a folder called 'Agents'

================================================== ====

Public Function fncAddToOutlook()
On Error GoTo StartError

Dim objOutlook As Outlook.Application
Dim objItem As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olContactItem)

With objItem
.FullName = Me.Contact
.Email1Address = Me.Email
.CompanyName = Me.Agent
.BusinessAddress = Me.Address1 & vbCrLf & Me.Address2 & vbCrLf & Me.Address3
.BusinessAddressCity = Me.Town
.BusinessAddressPostalCode = Me.PostCode
.BusinessFaxNumber = Me.FaxNo
.BusinessTelephoneNumber = Me.TelNo
.BusinessHomePage = Me.Web
.MobileTelephoneNumber = Me.MobNo
.Categories = "Agent"
End With

objItem.Display


Set objOutlook = Nothing

Exit Function

StartError:
MsgBox "Error: " & Err & " " & Error
Exit Function
End Function

================================================== ======

Many thanks

Jarmin

[PEB]

Hi Jarmin,

Maybe if you transfer your file with contacts in the respective folder? But this isn't thing that you may change easily from Access...

I mean maybe this involves a change of registry keys for this file...

Best regards

:)