Click here to Skip to main content
13,344,508 members (48,330 online)
Click here to Skip to main content
Add your own
alternative version


32 bookmarked
Posted 25 Aug 2009

How To Set An Appointment Using Microsoft Office Outlook 2003

, 5 Sep 2009
Rate this:
Please Sign up or sign in to vote.
This article is about how to create / place an appointment using Microsoft Office Outlook 2003 API


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:

  • Outlook.Application
  • Outlook.Namespace
  • Outlook.MAPIFolder
  • Outlook.Recipient
  • Outlook.AppointmentItem

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)
'Author: Md. Marufuzzaman
'Description: Set an appointment;

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
            With ObjApplicationt
                .strSubject = strSubject
                .strBody = strBody
                .Start = dtStartDate
                If Not IsNull(intReminder) Then
                    .ReminderSet = True
                    .intReminderBeforeStart = intReminder
                End If
                If Not IsNull(intDuration) Then
                    .intDuration = intDuration
                    .intDuration = 10
                End If
            End With
        End If
    End If
    Set ObjApplication = Nothing
    Set ObjNamespace = Nothing
    Set objFolder = Nothing
    Set ObjRecipient = Nothing
    Set ObjApplicationt = Nothing

        Exit Sub

        MsgBox Err.Description, vbCritical, "Error!"
        Resume Exit_myAppointment:

End Sub


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.


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Md. Marufuzzaman
Bangladesh Bangladesh
A well experienced leader with successful track record of software development, product innovations, brand management and corporate communication etc. Some successful product innovations have also achieved and awards “Most Valuable Professional” (MVP) at 2010 and 2011 by and also selected as a mentor of Published over 100 technical articles in various software development resource sites (i.e.,, Microsoft MSDN, and IEEE & IBM (In progress)) and various IT Forums, Blogs etc.

Over twelve years of professional experiences in ICT field having extensive experience in formulating corporate vision and long term strategy. Leading development related functions including design, development, services, data management and analytics, customer experience management, content services, digital analytics and optimization.I have also more than two years’ of strong experience in mobile-VAS (platform development).

An individual with results-driven approach and relentless in pursuit of excellence from a business and organizational standpoint.Honest, believes in transparency, commitment and teamwork.

Expertise: Software/Solution Architect, Research, MIS, Data Analytics, Data Mining, BI, SaaS platform base application development, Large scale Win32 Form/Web based business software solutions, Security, Enterprise applications development, integration, etc.

Technologies/Tools: Microsoft.Net version 05/08/10/12, Microsoft SQL Server version 7/2K/05/08/12/14 , Oracle version 10/11, MySql version 5.1, 5.5, 5.7, Visual C#, VB.NET, ASP.NET, API, MVC, WebAPI , WPF, WCF, PHP, Microsoft Power BI, SPSS, PS2, R, Add-In, Visual Basic etc.

.Net UI component: Telerik, DevExpress, Ext.Net.
Scripting language: JavaScript, AngularJS, node.JS.
Source control / Subversion: Git,SVN.
Development methodologies: Agile,RAD.
Project Management / Issues Tracking Tools: JIRA, ClockingIt.

You may also be interested in...


Comments and Discussions

GeneralMy vote of 4 Pin
Abinash Bishoyi16-Mar-12 4:40
memberAbinash Bishoyi16-Mar-12 4:40 
GeneralMy vote of 2 Pin
Jyothikarthk17-Apr-11 6:03
memberJyothikarthk17-Apr-11 6:03 
GeneralRe: My vote of 2 Pin
Md. Marufuzzaman5-Oct-11 23:55
mvpMd. Marufuzzaman5-Oct-11 23:55 
GeneralMy vote of 2 Pin
Pavelsua16-Feb-10 6:24
memberPavelsua16-Feb-10 6:24 
- poor to zero material explanation
GeneralRe: My vote of 2 Pin
Md. Marufuzzaman1-Oct-10 19:20
mvpMd. Marufuzzaman1-Oct-10 19:20 
Generalin c#a doubt Pin
pushpamca25-Aug-09 20:50
memberpushpamca25-Aug-09 20:50 
GeneralRe: in c#a doubt Pin
Md. Marufuzzaman25-Aug-09 20:59
groupMd. Marufuzzaman25-Aug-09 20:59 
GeneralRe: in c#a doubt Pin
fbi56fbi1-Sep-09 17:02
memberfbi56fbi1-Sep-09 17:02 
GeneralRe: in c#a doubt Pin
Md. Marufuzzaman2-Sep-09 1:25
groupMd. Marufuzzaman2-Sep-09 1:25 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.180111.1 | Last Updated 5 Sep 2009
Article Copyright 2009 by Md. Marufuzzaman
Everything else Copyright © CodeProject, 1999-2018
Layout: fixed | fluid