PDA

View Full Version : Outlook appointment deletion from MS Project



luminousplum
12-10-2013, 01:47 AM
Morning All

Need abit of your superior wisdom.
I currently have code to send out a Meeting/Appointment request for a highlighted task in Project to the resources/engineer.
This i have managed to do, but i am completely stuck on how to send out a cancel meeting/appointment request for the selected task(s).
Below is my meeting request code and i think i need to use the appointment.delete method but i fail miserably when trying to hit the jackpot.




Sub Export_Calender()
Dim myTask As Task
Dim myDelegate As Object
Dim myItem As Outlook.AppointmentItem

On Error Resume Next
Set myOLApp = CreateObject("Outlook.Application")
For Each myTask In ActiveSelection.Tasks
Set myItem = myOLApp.CreateItem(olAppointmentItem)
myItem.Assign
With myItem
Set myDelegate = myItem.Recipients.Add(myTask.Resources(1).EMailAddress)
myDelegate.Resolve
.Start = myTask.Start
.End = myTask.Finish
.subject = myTask.Name & " "
.Location = myTask.Text1
.OrderNumber = myTask.Text2
.IC = myTask.Text3
.Shift = myTask.Text5
.WorkType = myTask.Text4
.SiteContact = myTask.Text6
.Categories = myTask.Project
.Body = "Location - " & myTask.Text1 & vbNewLine & "Order Number - " & myTask.Text2 & vbNewLine & "IC - " & myTask.Text3 & vbNewLine & "Shift - " & myTask.Text5 & vbNewLine & "Work Type - " & myTask.Text4 & vbNewLine & "Site Contact - " & myTask.Text6 & vbNewLine & vbNewLine & "****************************" & vbNewLine & "Notes" & vbNewLine & myTask.Notes
.Display
.Send
MsgBox " Appointment sent"


End With
Next myTask

End Sub


Please please help