This documentation is archived and is not being maintained.

Location Property

Office 2003

Returns or sets a String representing the specific office location (for example, Building 1 Room 1 or Suite 123) for the appointment. This property corresponds to the MAPI property PR_OFFICE_LOCATION. Read/write.

expression.Location

expression    Required. An expression that returns an AppointmentItem object.

Example

This Visual Basic for Applications example uses CreateItem to create an appointment and uses MeetingStatus to set the meeting status to "Meeting" to turn it into a meeting request with both a required and an optional attendee.

Sub ScheduleMeeting()
	Dim myOlApp As Outlook.Application
	Dim myItem as AppointmentItem
	Dim myRequiredAttendee As Recipient
	Dim myOptionalAttendee As Recipient
	Dim myResourceAttendee As Recipient
	Set myOlApp = CreateObject("Outlook.Application")
	Set myItem = myOlApp.CreateItem(olAppointmentItem)
	myItem.MeetingStatus = olMeeting
	myItem.Subject = "Strategy Meeting"
	myItem.Location = "Conference Room B"
	myItem.Start = #9/24/2002 1:30:00 PM#
	myItem.Duration = 90
	Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun")
	myRequiredAttendee.Type = olRequired
	Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy")
	myOptionalAttendee.Type = olOptional
	Set myResourceAttendee = myItem.Recipients.Add("Conference Room B")
	myResourceAttendee.Type = olResource
	myItem.Send
End Sub

If you use VBScript, you do not create the Application object, and you cannot use named constants. This example shows how to perform the same task using VBScript.

Set myItem = Application.CreateItem(1)
myItem.MeetingStatus = 1
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #9/24/97 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun")
myRequiredAttendee.Type = 1
Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy")
myOptionalAttendee.Type = 2
Set myResourceAttendee = myItem.Recipients.Add("Conference Room B")
myResourceAttendee.Type = 3
myItem.Send
		




Show: