特定のキーワードを含む件名の会議出席依頼を返信せずに辞退するマクロ


コメントにて以下のようなご要望をいただきました。


会議の出席依頼メールを受信すると、
承認未状態ではあるものの
予定表に自動的に予定が組み込まれます。

この出席依頼メールのうち特定の出席依頼メールのみ
無条件に「(返信せず)辞退」したいのです。

上記のようなマクロを組みたいのですが、
どのように組めば良いでしょうか?

[背景]
メーリングリスト宛てに会議の出席依頼メールが送信されると
情報入手のためだけに参加しているメーリングリストであっても
予定表に会議予定(仮の予定)が追加されてしまいます。

仮の予定ですから無視しておけば良いのですが、
会議にアラームが設定されている場合は、
仮の予定であってもアラームが通知されるため非常に煩雑です。

なので、サブジェクトから特定のメーリングリストを判別し、
無条件に「返信せず、辞退」したいと考えました。


ご要望のマクロは以下のようになります。
会議出席依頼のメールを残しておくと、そのメールをプレビューしたタイミングで仮承諾の会議が作成されてしまいますので、会議出席依頼自体も削除しています。
KEYWORD で自動的に削除する件名の文字列を指定してください。

' ここをトリプルクリックでマクロ全体を選択できます。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Const KEYWORD = "[DL]"
    Dim objItem As Variant
    Set objItem = Session.GetItemFromID(EntryIDCollection)
    If objItem.MessageClass = "IPM.Schedule.Meeting.Request" Then
        If objItem.Subject Like "*" & KEYWORD & "*" Then
            Dim apptItem As AppointmentItem
            Set apptItem = objItem.GetAssociatedAppointment(False)
            apptItem.Delete
            objItem.Delete
        End If
    End If
End Sub

マクロの登録方法やメニューへの追加について

広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中