Create an Account
The following C# and Visual Basic for Applications (VBA) examples show how to create a new Account object and assign to it some basic information about the account, such as the Account name, primary contact, business address, telephone, and e-mail address.
C#
private void CreateAccount()
{
Outlook.ApplicationClass _app = new Outlook.ApplicationClass();
Outlook.Application olApp = (Outlook.Application)_app;
Outlook.NameSpace olNameSpace = _app.GetNamespace("MAPI");
Outlook.Folders folders = olNameSpace.Session.Folders;
Outlook.Folder bcmRootFolder = (Outlook.Folder)folders["Business Contact Manager"];
Outlook.Folder accounts = (Outlook.Folder)bcmRootFolder.Folders["Accounts"];
Outlook.UserProperty userProp;
Outlook.ContactItem newAccount = (Outlook.ContactItem)accounts.Items.Add("IPM.Contact.BCM.Account");
newAccount.FullName = "Wide World Importers";
newAccount.FileAs = "Wide World Importers";
newAccount.BusinessAddressStreet = "4567 Main Street, Suite# J 225";
newAccount.BusinessAddressCity = "Redmond";
newAccount.BusinessAddressState = "Washington";
newAccount.BusinessAddressPostalCode = "07457";
newAccount.BusinessAddressCountry = "United States";
newAccount.BusinessTelephoneNumber = "+1-425-555-0100";
newAccount.Email1Address = "someone@example.com";
newAccount.WebPage = "www.wideworldimporters.com";
if (newAccount.UserProperties["Account Name"] == null)
{
userProp = newAccount.UserProperties.Add("Account Name", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
userProp.Value = "Wide World Importers";
}
if (newAccount.UserProperties["Source of Lead"] == null)
{
userProp = newAccount.UserProperties.Add("Source of Lead", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
userProp.Value = "Advertisement";
}
if (newAccount.UserProperties["Territory"] == null)
{
userProp = newAccount.UserProperties.Add("Territory", Microsoft.Office.Interop.Outlook.OlUserPropertyType.olText, false, false);
userProp.Value = "North";
}
newAccount.Save();
}
VBA
Sub CreateAccount()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim bcmRootFolder As Outlook.Folder
Dim olFolders As Outlook.Folders
Dim bcmAccountsFldr As Outlook.Folder
Dim newAcct As Outlook.ContactItem
Dim userProp 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 bcmAccountsFldr = bcmRootFolder.Folders("Accounts")
Set newAcct = bcmAccountsFldr.Items.Add("IPM.Contact.BCM.Account")
newAcct.FullName = "Wide World"
newAcct.FileAs = "Wide World"
newAcct.Email1Address = "someone@example.com"
If (newAcct.UserProperties("Source of Lead") Is Nothing) Then
Set userProp = newAcct.UserProperties.Add("Source of Lead", olText, False, False)
userProp.Value = "Advertisement"
End If
If (newAcct.UserProperties("Territory") Is Nothing) Then
Set userProp = newAcct.UserProperties.Add("Territory", olText, False, False)
userProp.Value = "North"
End If
newAcct.Save
Set newItemProp = Nothing
Set newAcct = Nothing
Set bcmAccountsFldr = Nothing
Set bcmRootFolder = Nothing
Set olFolders = Nothing
Set objNS = Nothing
Set olApp = Nothing
End Sub
See Also
Select an Account | Edit an Account | Delete an Account | Link Business Contacts to an Account | Create a Business Project linked to a Primary Account | Create an Opportunity linked to an Account | 2007 Office System: Updated Developer Content