先日久々にmougの質問に回答しました。

マクロを使って、Exchangeで代理人アクセス権が設定されたユーザーから新規予定を作成したい、というもので、処理としてはNameSpace.GetSharedDefaultFolderメソッドを使って指定したユーザーのフォルダに切り替えた後、新規アイテムを作成すればOKです。

Public Sub Sample()
  Dim rp As Outlook.Recipient
  Dim itm As Outlook.AppointmentItem
  
  Set rp = Application.Session.CreateRecipient([代理人アクセスを付与されたアドレスや名前])
  rp.Resolve
  If rp.Resolved Then
    With Application.Session.GetSharedDefaultFolder(rp, olFolderCalendar)
      Set itm = .Items.Add(Type:=olAppointmentItem)
      With itm
        .Subject = "テスト予定"
        .Body = "予定本文"
        .Recipients.Add "[宛先]" '宛先追加
        .MeetingStatus = olMeeting
        .ResponseRequested = False
        .Send
      End With
    End With
  End If
End Sub

下記ページのようにすれば、共有している他の人の予定を取得することができるので、Exchange環境であれば比較的出番の多いメソッドかもしれません。

Outlook 研究所

Exchange 環境で共有されている他人の予定表のデータを取得するマクロ

https://outlooklab.wordpress.com/2008/02/23/exchange-%E7%92%B0%E5%A2%83%E3%81%A7%E5%85%B1%E6%9C%89%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E4%BB%96%E4%BA%BA%E3%81%AE%E4%BA%88%E5%AE%9A%E8%A1%A8%E3%81%AE%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92/

コメントで以下のようなご質問をいただきました。 Exchange サーバで共有している他の人の予定表から、予定…