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 回答日時： 2010/06/14 12:36

以下でどうでしょうか?

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オブジェクトに書き出すのがポイントなんですね。

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

お礼日時：2010/06/14 14:42

No.1 回答者： Wendy02 回答日時： 2010/06/14 12:26

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

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

この回答へのお礼

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

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

お礼日時：2010/06/14 14:43