Office関連

代理人アクセスによって予定を追加するOutlookマクロ

先日久々に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環境であれば比較的出番の多いメソッドかもしれません。

【アイカツフレンズ!】かがやきのジュエルはじめました。前のページ

「【JCUEセミナー】ストランディング個体からのメッセージ」に参加しました。次のページ

関連記事

  1. Office関連

    Google Docs APIを使ってGoogle ドキュメントを操作するVBAマクロ

    前回の記事で新しく追加されたGoogle Docs APIを紹介しまし…

  2. Office関連

    Outlook REST APIに会議室情報を取得するAPIが追加されました。

    松崎さんのツイートで、Outlook REST APIのベータエンドポ…

  3. Office関連

    空白文字を一括置換するWordマクロ

    様々なWord文書を扱っていると、下図のように“同じ空白のように見えて…

  4. Office関連

    【2017年1月版】Microsoft Edgeを操作するVBAマクロ(DOM編)(2)

    昨日の記事で、Microsoft Edgeを操作するVBAコードを改め…

  5. アイコン一覧

    Office 2013 アイコン一覧(I)

    ・Office 2013 アイコン一覧 NUM…

  6. Office関連

    Evernote Cloud SDKを使ったVBAマクロ

    3年ほど前にEvernote for Windowsを操作するVBAマ…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP