Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next
Subject: Conector for Outlook Business Contact Manager
Feedback Type: Question
Product Area: Notes Client
Technical Area: New Features
Platform: ALL
Release: 8.5.2
Reproducible: -Reproducibility-

Hi!
I need to write a connector for transferring data from Notes to MS Outlook Business Contact Manager 2010. I got this example and need to modify it for Lotus Notes agent.

Sub CreateBusinessContactWithFavoriteRestaurant()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmContactsFldr As Outlook.Folder
Dim newContact As Outlook.ContactItem
Dim nationality As Outlook.UserProperty

Set olApp = CreateObject("Outlook.Application")
Set objNS = olApp.GetNamespace("MAPI")
Set olFolders = objNS.Session.Folders
Set bcmRootFolder = olFolders("Business Contact Manager")
Set bcmContactsFldr = bcmRootFolder.Folders("Business Contacts")

Set newContact = bcmContactsFldr.Items.Add("IPM.Contact.BCM.Contact")
newContact.FullName = "Jeff Smith"
newContact.FileAs = "Jeff Smith"

newContact.BusinessAddressStreet = "6789 S Lawrence Street"
newContact.BusinessAddressCity = "Roaring Fork Valley"
newContact.BusinessAddressState = "Colorado"
newContact.BusinessAddressPostalCode = "98052"
newContact.BusinessAddressCountry = "United States"

newContact.BusinessTelephoneNumber = "+1-800-123-4567"
newContact.Email1Address = "someone@example.com"
newContact.WebPage = "http://www.margiestravel.com"

Set nationality = newContact.UserProperties.Add("Favorite restaurant", olText)
favoriterestaurant.value = "Coho Vineyard"
newContact.Save

Set newContact = Nothing
Set bcmContactsFldr = Nothing
Set bcmRootFolder = Nothing
Set olFolders = Nothing
Set objNS = Nothing
Set olApp = Nothing
End Sub

Do you have any idea?

Thank you

Roman


Feedback number WEBB8G9SZK created by ~Karl Fezwegenader on 04/25/2011

Status: Open
Comments:





Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS