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

関連記事

  1. Office関連

    格子状にガイドを追加するPowerPointマクロ

    前回の記事で、PowerPoint 2013で追加されたGuide、G…

  2. Office関連

    [Excel Services ECMAScript]ActiveWorkbookのシート数を取得す…

    埋め込んだExcelワークブックのシート数を取得するコードです。 …

  3. Office関連

    Office XP Developer Toolsでリボン対応のCOMアドインを作成する。

    「Visual Basic 6でリボン対応のアドインを作成する」ではV…

  4. Office関連

    「カレンダーから日付入力」をUserFormに移植してみました。

    前回の記事では、Office 用アプリ「カレンダーから日付入力」と同様…

  5. Office関連

    【2018年9月版】Microsoft Office関連の公式リンクまとめ

    Ignite 2018やOffice 2019のリリースがあり、Off…

  6. Office アドイン

    [Office用アプリ]カレンダーから日付を入力するコンテンツアプリ。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP