Creating outlook appointments

[AndyB63UK]

Hi everyone

Is it possible to creat an appointment in someone elses calendar?

My spreadsheet column B contains all the information needed, I just dont know how to do it.

B7 = Date of event
B8 = Name of event
B53 = Get-In Time (Start Time)
B60 = Get-Out time (Finish Time)
B90 = Duty Technician (from a dropdown list)

And thats all that is needed

We are being upgraded to Office 2010

Many thanks in advance

 

[s.ridd]

Not in a position to be able to test any of this so it might not work, but in theory the logic seems sound. It takes the data in cell B90 as the person whose calendar you want to add an appointment in to. This needs to be either the display name, the alias or the email address of this person for .CreateRecipient to work correctly.

Sub AddAppointmentToOtherCalendar()
Dim outApp As Outlook.Application
Dim outCal As Outlook.Folder
Dim outAppt As Outlook.AppointmentItem
Dim outRec As Outlook.Recipient


    Set outApp = Outlook.Application
    
    On Error GoTo Err
    Set outRec = outApp.Session.CreateRecipient(Range("B90"))
    Set outCal = outApp.Session.GetSharedDefaultFolder(outRec, olFolderCalendar)
    On Error GoTo 0
    
    Set outAppt = outCal.Items.Add
    
    With outAppt
        .Subject = Range("B8")
        .Start = Format(Range("B7") & " " & Range("B53"), "ddddd h:nn AMPM")
        .End = Format(Range("B7") & " " & Range("B60"), "ddddd h:nn AMPM")
        .Save
    End With
    GoTo CleanUp
    


Err:
    MsgBox "No appointment was saved"
    GoTo CleanUp


CleanUp:


Set outAppt = Nothing
Set outCal = Nothing
Set outRec = Nothing
Set outApp = Nothing


End Sub

Hope this helps

Simon