outlook 実際のアイテム数より１多い数が取得

質問

http://www.geocities.co.jp/SiliconValley-Bay/3475/outlook_vba.html
の
フォルダ内のすべてのメールを処理 　
Dim ns As NameSpace
Dim mf As MAPIFolder
Dim x As Integer

Set ns = GetNamespace("MAPI")
Set mf = ns.Folders("個人用フォルダ").Folders("test")

For x = 1 To mf.Items.Count
　　' ここに処理を記述
Next
MsgBox x & "件の処理が終了しました。"

を実行すると、実際のアイテム数より１多い数が取得されるのですが
なぜでしょうか？

回答No.2

osamuy · ベストアンサー

＞For x = 1 To mf.Items.Count
は、以下のコードと一緒だから：
Dim x as Integer
x = 1
While x <= mf.Items.Count
' ここに処理を記述
x = x + 1
Wend

上記コードでのWhileループ終了時のxの値がいくつになるかに注目してください。

参考URL：

http://msdn.microsoft.com/en-us/library/5z06z1kb.aspx

お礼

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

回答No.1

fujillin

Dim i As Integer

For i = 1 To 10
Next i

MsgBox i

で「11」が表示されるのと同じです。
（i＝11の時にループを抜けるから）

お礼

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