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ベストアンサー
- 回答日時:
以下でどうでしょうか?
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
No.1
- 回答日時:
こんな風にしたらいかがでしょうか?
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- PHP 10文字以降は非表示にしたいんですが、文法が分かりませんアドバイスお願い致します 1 2022/07/10 20:37
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- その他(Microsoft Office) outlook vba 予定表 3 2022/11/20 14:51
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
次の関数の組が線形独立である...
-
恒等的に正しいとはどういう意...
-
SPIの問題
-
X^nをX^2-X-2で割ったときの...
-
w=1/z−iのときz平面上の図形は...
-
数Bの数列の問題です。 正の奇...
-
x+y/5=y+z/6=z+x/7 x+y+z=27 xy...
-
至急!数学の基本問題、助けて...
-
TextBox1とTextBox2の数値の大...
-
実数x,yが2x+y=1,x>0,y>0を満...
-
数学の質問です。 3で割ると2余...
-
「Access」のフォームで、同じ...
-
高校数1についての質問です。 ...
-
xの2n乗 を積分するとどうなり...
-
SETとSELECTの違い(Transact-SQL)
-
単位法線ベクトルの求め方
-
Access VBA クリップボードの内...
-
数学の二次関数のグラフと最大...
-
土木工学、構造力学の梁の変位...
-
マクローリン展開がわかりません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恒等的に正しいとはどういう意...
-
SPIの問題
-
数Bの数列の問題です。 正の奇...
-
数学の質問です。 3で割ると2余...
-
高2数学 軌跡
-
平衡定数の求め方について、ΔG=...
-
次の関数の組が線形独立である...
-
計算問題
-
数Ⅰ 2X-3>a+8Xについて次の問い...
-
「Access」のフォームで、同じ...
-
ライニプッツの公式に関してで...
-
3で割ると2余り,5で割ると3余...
-
TextBox1とTextBox2の数値の大...
-
7で割ると2余り、11で割ると3余...
-
エクセル 2/3乗
-
w=1/z−iのときz平面上の図形は...
-
円の方程式
-
A,Bをn次正方行列とする場合、...
-
Excel VBAで1行に2つのコードを...
-
4元連立方程式の解き方を教えて...
おすすめ情報