LISTING 1: Code to Add Location Information to an Appointment's Subject

Dim WithEvents colCalendar As Outlook.Items

Private Sub Application_Startup()
    Dim objNS As Outlook.NameSpace
    Set objNS = Application.GetNamespace("MAPI")
    Set colCalendar = _
        objNS.GetDefaultFolder(olFolderCalendar).Items
    Set objNS = Nothing
End Sub

Private Sub colCalendar_ItemAdd(ByVal Item As Object)
    Call AddLocation(Item)
End Sub

Private Sub colCalendar_ItemChange(ByVal Item As Object)
    Call AddLocation(Item)
End Sub

Private Sub AddLocation(objItem As AppointmentItem)
    If objItem.Class = olAppointment Then
        If InStr(objItem.Subject, objItem.Location) = 0 Then
            objItem.Subject = objItem.Subject & " - " & objItem.Location
            objItem.Save
        End If
    End If
End Sub