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関連

    Excelを別インスタンスで起動する方法

    「Excel 別インスタンス 起動」といったキーワード検索でのアクセス…

  2. Office関連

    Word 2013のアクセス キー一覧

    2013/10/24 追記:下記一覧表をPDFファイルにしました。…

  3. Office アドイン

    [Officeアドイン]地図記号挿入アドイン

    ちょっとずつ作成していたWord用のOffice アドインがようやくO…

  4. Office関連

    Wikipediaの検索予測キーワードの一覧を取得するVBAマクロ

    Wikipediaのサーチボックスにキーワードを入力すると、入力したキ…

  5. Office関連

    「傍点をふる」をWord 2007/2010で簡単に使う方法

    Wordで文字列を強調したいときに便利なのが「傍点をふる」コマンド。…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP