Assign Outlook Appointments to other users.

[dichotomous]

Hi

I have researched the internet and am able to send an appointment to Outlook for re-scheduling expired training. I have used the following code.


Private Sub Reminder_Click()
Dim Outlookapp As Outlook.Application
Dim OutlookAppointment As Outlook.AppointmentItem
Set Outlookapp = CreateObject("outlook.application")
Set OutlookAppointment = Outlookapp.CreateItem(olAppointmentItem)
With OutlookAppointment
.Subject = "Reschedule Training for Employee: " & Me.Employee
.Body = "Employee training expires 14 days before due. Training Name: " & Me.Training & " Expires on" & Me.Expiry
.Importance = olImportanceHigh
.Start = Me.Expiry - 14 & " 8:00 AM"
.End = Me.Expiry - 14 & " 8:30 AM"
.Save
End With

End Sub

this is now working fine. but, it turns up in my calander.

What I want to do is assign this task to another user (our office administrator) in a Microsoft Exchange Environment.

I know it can be done, but it is beyond me. I would really appreciate some help.

 

[MrHans]

According to this link: https://msdn.microsoft.com/en-us/library/office/ff861308.aspx

You can simply use the ".recipients.add" method for inviting other users to your meeting.

 

[dichotomous]

According to this link: https://msdn.microsoft.com/en-us/library/office/ff861308.aspx

You can simply use the ".recipients.add" method for inviting other users to your meeting.

Like this...?

Sub CreateStatusReportToBoss()

Dim myItem As Outlook.MailItem

Dim myRecipient As Outlook.Recipient


Set myItem = Application.CreateItem(olMailItem)

Set myRecipient = myItem.Recipients.Add("Dan Wilson")

myItem.Subject = "Status Report"

myItem.Display

End Sub

How do i incorporate this into the procedure I posted earlier.....

 

[MrHans]

Not able to test it right now, but something Iike this should work.

Private Sub Reminder_Click()
Dim Outlookapp As Outlook.Application
Dim OutlookAppointment As Outlook.AppointmentItem
Set Outlookapp = CreateObject("outlook.application")
Set OutlookAppointment = Outlookapp.CreateItem(olAppointmentItem)

With OutlookAppointment
.Subject = "Reschedule Training for Employee: " & Me.Employee
.Body = "Employee training expires 14 days before due. Training Name: " & Me.Training " Expires on" & Me.Expiry
.Importance = olImportanceHigh
.Recipients.add("abc@def.com")
.Start = Me.Expiry - 14 & " 8:00 AM"
.End = Me.Expiry - 14 & " 8:30 AM"
.Save
End With

End Sub