Sending an email using Microsoft Outlook 2003 is nothing original for most of the VBA developers. It is very common and also a very good practice. I hope that most of the VBA developers are very much familiar with this one. This article is not about how to send an email from customized Microsoft Office Applications using Microsoft Outlook API, it’s about how to place / set an appointment using Microsoft Outlook 2003 API.
A large number of companies use the Microsoft Office application for their In/external office automation application. In this article, I would like to demonstrate how to set an appointment using Microsoft Outlook 2003 API.
Using the Code
Using the code is very simple. Before we start, I would like to share some objects of Microsoft Outlook 2003 API, which I used for this purpose. The objects list is given below:
More details on Microsoft Office Outlook 2003 Integration API Reference can be found at this link.
I wrote a very simple procedure for doing this. A sample code example is given below.
Sample Code Example
Public Sub myAppointment(strRecipient As String, _
strSubject As String, _
strBody As String, _
dtStartDate As Date, _
Optional intReminder As Variant, _
Optional intDuration As Variant)
On Error GoTo ErrorHandler:
Dim ObjApplication As Outlook.Application
Dim ObjNamespace As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim ObjRecipient As Outlook.strRecipient
Dim ObjApplicationt As Outlook.AppointmentItem
Dim apptDate As Date
Dim strContact As String
Set ObjApplication = CreateObject("Outlook.Application")
Set ObjNamespace = ObjApplication.GetNamespace("MAPI")
Set ObjRecipient = ObjNamespace.CreatestrRecipient(strRecipient)
Set objFolder = ObjNamespace.GetSharedDefaultFolder(ObjRecipient, olFolderCalendar)
If Not objFolder Is Nothing Then
Set ObjApplicationt = objFolder.Items.Add
If Not ObjApplicationt Is Nothing Then
.strSubject = strSubject
.strBody = strBody
.Start = dtStartDate
If Not IsNull(intReminder) Then
.ReminderSet = True
.intReminderBeforeStart = intReminder
If Not IsNull(intDuration) Then
.intDuration = intDuration
.intDuration = 10
Set ObjApplication = Nothing
Set ObjNamespace = Nothing
Set objFolder = Nothing
Set ObjRecipient = Nothing
Set ObjApplicationt = Nothing
MsgBox Err.Description, vbCritical, "Error!"
I hope that this article might be helpful to you. Enjoy!
- 26th August, 2009: Initial post.
- 5th September 2009: Use data type Variant instant of Integer type.
He is the founder & CEO of MNH Technologies and working for urban and rural sectors to improve people’s lifestyle, better medical facilities, education, social business etc. He has over ten years of professional experiences in design and developing Client-Server, Multi-Tier, Database, Web based business software solutions, Enterprise Applications, API, WebAPI, Google Analytics implementation, Add-In, Documentation & Technical Writing etc for Windows / Mac using Microsoft SQL Server, Oracle, MySql, PS, C#, VB.NET, ASP.NET, PHP, RoR, Visual Basic etc. He has also more than two years experience in Mobile-VAS (Platform Development).
He worked for various software development & technology consulting. His core focus on technologies to create dynamic data-driven systems that add value to your business and dynamic technology consulting that builds advanced solutions for the industries across the various vertices.
He also work as a Solution Architect at Dhrupadi Techno Consortium Limited (DTCL) and responsible for analyzing business requirements and offered optimum solutions (multiple options), which would address all current requirements, provide flexibility for future growth and allow smooth transition between old system and new system.
He graduated with honors from The University of Asia Pacific, in Computer Science and Engineering. He was awarded as “Most Valuable Professional” (MVP) at 2010 and 2011 by CodeProject.com and also selected as a Mentor of CodeProject.com
Specialties: Software Development Management, System Integration, Data Warehouse Architecture, Virtualization.