質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Outlook

Microsoft OutlookはMicrosoft Officeの一部として組み込まれている、のユーザー管理とメーラーの機能を持ち合わせたソフトウェアです。

Windows 7

Microsoft Windows 7は過去にリリースされたMicrosoft WindowsのOSであり、Windows8の1代前です。2009年の7月にリリースされ販売されました。Windows7の前はWindowsVistaで、その更に3年前にリリースされました。

Q&A

0回答

3262閲覧

Outlook2010のVBAで承認した会議開催通知に対してキャンセルが来たら削除したい

TakefusaBoku

総合スコア41

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Outlook

Microsoft OutlookはMicrosoft Officeの一部として組み込まれている、のユーザー管理とメーラーの機能を持ち合わせたソフトウェアです。

Windows 7

Microsoft Windows 7は過去にリリースされたMicrosoft WindowsのOSであり、Windows8の1代前です。2009年の7月にリリースされ販売されました。Windows7の前はWindowsVistaで、その更に3年前にリリースされました。

0グッド

0クリップ

投稿2016/04/12 01:20

編集2022/01/12 10:55

Outlook2010のVBAで承認した会議開催通知に対してキャンセルがあった場合、自動的に予定表から削除をしたいと考えています。
以下のコードを書いてみたのですが・・・思った通りの挙動(予定表からの削除)にならないため詳しい方教えて頂けませんでしょうか?

Public Sub DisplaySubjectByRule2(ByRef objItem As MeetingItem)
Dim Session As Outlook.NameSpace
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim currentItem As Object
Dim oAppt As AppointmentItem
Dim oResponse

Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection

For Each currentItem In Selection
If currentItem.MessageClass = "IPM.Schedule.Meeting.Request" Then
Set oAppt = currentItem.GetAssociatedAppointment(True)
If oAppt.ResponseRequested Then
Set oResponse = oAppt.Respond(olMeetingDeclined, True, False)
oResponse.Delete
Else
Set oResponse = oAppt.Respond(olMeetingDeclined, True, False)
End If
currentItem.Delete

ElseIf currentItem.MessageClass = "IPM.Schedule.Meeting.Canceled" Then
'ElseIf currentItem.MessageClass = "IPM.Schedule.Meeting.Neg" Then
Set oAppt = currentItem.GetAssociatedAppointment(True)
If oAppt Is Nothing Then
currentItem.Delete
End If
ElseIf currentItem.MessageClass = "IPM.Note" Then
currentItem.Delete
End If

Next
End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問