CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
Here is a simple CMapi Class
to help developers configure an Exchange Profile. By using this class
you can:
- Add/Delete Microsoft Exchange Profiles
- Configure Microsof t Exchange Profiles
- Add/Delete Microsoft Exchange Messaging Services
- Exchange
- MS Mail
- Lotus
- Personal Folders
- Personal Address Books
- Outlook Address Books
- Configure Message Services (Server name, User name)
- Set Default Messaging Stores (i.e. Setting the Exchange Mailbox as the Default
Messaging Store)
The project that is included is basically a simple dialog box that will show
the progress of the wizard. To use run the project you will need to have an
Exchange box on the network. Supply the Exchange server name in the code below
and make sure you have the user name correct. When you run this app it will
attempt to connect to the server when it tries to configure the messaging service
parts and set the default messaging stores. If the username is not correct,
it will stop. So verify the format that your Exchange server users for names
(i.e. Last Name, First Name OR First Name Last Name). This application has been
tested with Microsoft Windows NT 4.0 and Microsoft Visual C++ 6.0. Please don’t
forget to include MAPI32.LIB in the linker tab! Please feel free to modify this
code. This code is a good starting point for anyone who is going to be doing
any MAPI code – and there is some extra code that you can add (you find it!)
for some cool MAPI coding.
All the actual code is in the OnStart() Function – Please note that this code
does NOT create a NEW Microsoft Exchange Profile, it uses the default profile
(MAPI_USE_DEFAULT) – but this can easily be changed…
void CProfileDemoDlg::OnStart()
{
CMapi Mapi;
// Look in MAPISVC.INF for Service names (i.e. MSEMS)
LPSTR lpszAddService = "MSEMS", // Microsoft Exchange Service to Add (in this case Exchange)
lpszDelService = "MSFS", // Microsoft Exchange Service to Delete (in this case MSMAIL)
lpszServiceName = "Microsoft Exchange Server", // Exchange Service Official Name
lpszMailbox = "Christopher Backen", // Person to Configure
lpszMailStore = "Mailbox - Christopher Backen", // Message Store to Configure
lpszServerName = "CORDALEX1"; // Server to Configure
// Set Progress Bar
m_pBar.SetRange(0, 10);
m_pBar.SetStep(1);
// Start the session
m_Info.SetWindowText("Initializing MAPI Dynamic Link Library");
hr = Mapi.Initialize();
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
hr = Mapi.AdminProfiles();
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(2);
m_Info.SetWindowText("Logging on to the Default Profile");
hr = Mapi.LogonDefaultEx();
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
hr = Mapi.OpenAdminServices();
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(4);
m_Info.SetWindowText("Creating Microsoft Exchange Messaging Service");
hr = Mapi.CreateMessagingService(lpszAddService, lpszServiceName);
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(5);
m_Info.SetWindowText("Configuring Microsoft Exchange Messaging Service");
hr = Mapi.ConfigureMessagingService(lpszAddService, lpszMailbox, lpszServerName);
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(6);
m_Info.SetWindowText("Deleting Microsoft Mail Messaging Service");
hr = Mapi.DeleteMessagingService(lpszDelService);
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
hr = Mapi.GetMessageStoresTable();
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(8);
m_Info.SetWindowText("Setting the default mailbox to the server");
// More complex
hr = Mapi.SetDefaultMessagingStore(lpszMailStore);
if (HR_FAILED(hr)){ AfxMessageBox("Failed..."); return;}
m_pBar.SetPos(9);
Mapi.CloseMapi();
m_pBar.SetPos(10);
// DONE
return;
}
To find any service names – consult the MAPISVC.INF file. For Example:
[MAPI] ServiceOrder=AWFAX,MSEMS,MSFS,IMAIL,MSN [Services] MSEMS=Microsoft Exchange Server <--- Here is the name of the Exchange Service IMAIL=Internet E-mail MSPST AB=Personal Address Book MSPST MS=Personal Folders MSFS=Microsoft Mail CONTAB=Outlook Address Book MSN=The Microsoft Network Online Service [Default Services] MSEMS=Microsoft Exchange Server MSPST AB=Personal Address Book [MSEMS] ....Blah Blah Blah
This code really helped my group. I hope it helps you out just as much. If
you have any comments or suggestions please send them to the above address.
Or visit VIZ Group AppDev Division.
