Outlookで、予定の件名をVBAから書き換えたいのですが

質問

Outlookで、予定の件名をVBAから書き換えたいのですが
うまくいきません。
環境は、OS:Win2000、Ver: Outlook2000 SP3です（古いですが）。

今のところ、ネット上で拾ったコードを元に、

Dim colAppts As Items

Set colAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items
For i = 1 To colAppts.Count
MsgBox colAppts.Item(i).Subject
colAppts.Item(i).Subject = "ほげ"
colAppts.Item(i).Save
MsgBox colAppts.Item(i).Subject
Next

というようなことをやってみたのですが、Subjectプロパティへの代入前後で、
内容がまったく変わりません。
どうやったらいいのでしょうか？

回答No.2

10CubeLeaf · ベストアンサー

以下でどうでしょうか?

Dim colAppts As Items
Dim apptItem As Appointmentitem

Set colAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items
For i = 1 To colAppts.Count
Set apptItem = colAppts(i)
MsgBox apptItem.Subject
apptItem.Subject = "ほげ"
apptItem.Save
MsgBox apptItem.Subject
Next

お礼

カンペキです。
いったんAppointmentitemオブジェクトに書き出すのがポイントなんですね。

ありがとうございました。

回答No.1

Wendy02

こんな風にしたらいかがでしょうか？

Sub OutlookTest1()
　　Dim colAppts As Items
　　Set colAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items
　　For i = 1 To colAppts.Count
　　　　MsgBox colAppts.Item(i).Subject
　　　　colAppts.Item(i).Display
　　　　colAppts.Item(i).Subject = "ほげ"
　　　　colAppts.Item(i).Close olSave
　　　　MsgBox colAppts.Item(i).Subject
　　Next
End Sub

お礼

すみません。環境の違いかもしれませんが、
私のところではこれでは前後で変化なしでした。

ご回答ありがとうございました。