Oprette i anden outlook

Hej

Jeg har følgende kode i et excel ark:

Private Sub Command1_Click()
Set OutL = New Outlook.Application
Set Item = OutL.CreateItem(OLMeeting)

With Item
    .Subject = "Deadline for Tilbud"
    .Body = ""
    .Start = "18/06/2004"
    .Save
End With

Set Item = Nothing

End Sub

Det jeg ønsker er at oprette aftalen i min makkers kalender som jeg har tilknyttet i min Outlook - hvordan gør jeg dig?