| | |
|
|
|
Creating an Outlook appointment |
|---|
| message from Michael D. Wallen on 28 May 2004 |
I am able to create and Outlook appointmernt (as shown in
Microsoft Knowledge Base Article - 160502) but this
creates the appointment in myu own calendar. does anyone
know how to create an apointment in someone else's
calendar?
|
| DDM replied to Michael D. Wallen on 28 May 2004 |
Michael, this is a newsgroup devoted to Microsoft Access. You should post
this question to microsoft.public.outlook.calendaring.
User's Folder. Enter the name of the other user, and select their calendar.
When it opens, create an appointment in it as if it were your calendar.
|
| Cheryl Fischer replied to DDM on 28 May 2004 |
DDM,
Respectfully disagree. I think this falls under the general area of
"Automation", which is definitely possible/doable with Access
|
| DDM replied to Cheryl Fischer on 28 May 2004 |
Mea culpa. Should have looked at the KB article. Michael, way to go.
|
| Cheryl Fischer replied to Michael D. Wallen on 28 May 2004 |
Dim objOApp As New Outlook.Application
Dim objAppt As AppointmentItem
Dim oExp As Outlook.Explorer
Dim objRecipient As Recipient
Dim strOptionals As String
Dim strAddressee As String
Dim strSubject As String
Dim lngDuration As Long ' represents duration of event in minutes/
database has it in hours.
Dim strLocation As String
Dim strAdditCases As String
Dim strAdditInfo As String
' Initialize selected variables
strAddressee = "SomeOtherUser@SomeDomain.com"
strSubject = "Appointment for your IRS Audit"
lngDuration = 90
strLocation = "IRS Office"
strAdditInfo = "They want you to be on time."
Set objOApp = New Outlook.Application
Set objAppt = objOApp.CreateItem(olAppointmentItem)
Set oExp = objOApp.Session.GetDefaultFolder(olFolderInbox).GetExplorer
With objAppt
.RequiredAttendees = strAddressee
.Subject = strSubject
.Importance = 2 ' high
.Start = Me!Date & " " & IIf(IsNull(Me!Time), " 8:00", Me!Time)
.Duration = lngDuration
.Location = strLocation
If Len(Trim(strAdditInfo)) > 0 Then
.Body = strAdditInfo
End If
.ResponseRequested = True
.Send
MsgBox "Item sent."
End With
hth,
|
|
Archived message: Creating an Outlook appointment (MS Access)
