outlook 選択したメールの書き出し

質問

こんばんわ。
Outlook2010で選択したメールの書き出しをするマクロを作成しました。
選択したメール数が少ない場合は問題なく動作するのですが、
メール数が多くなる（200件以上）の場合途中にスペースが入ってしまい、
１列目と２列目がずれることがあります。
どの部分を修正すればうまく動くでしょうか。（ずれているイメージは画像を添付しました）

また、以下のマクロで書き出したデータの１行目にタイトルを入れたいです。
excelのA1には【日時】
excelのB1には【送信者】
を入れたいと思っています。
どのように入れたらよいか分からず、困っています。

教えていただけると幸いです。
------------------------------------------
Sub メール書き出し日にちのみ()
On Error Resume Next
Set mySelection = Application.ActiveExplorer.Selection '変更
Set xlApp = CreateObject("Excel.Application")
Set myBook = xlApp.Workbooks.Add
xlApp.Visible = True
With myBook.Worksheets(1)
i = 1
For Each myItem In mySelection '変更

'受信日時
.Cells(i, 1) = myItem.ReceivedTime
'送信者名
.Cells(i, 2) = myItem.SenderName

i = i + 1
Next myItem
End With
Set xlApp = Nothing
End Sub

回答No.1

noname#232800

「i」はどこで宣言してんでしょ？

補足

ご回答ありがとうございます。
iを宣言というのはどういうことでしょうか？
ネットにのっていたマクロの書きだせる内容を受信日時と送信者名のみ残して削除したため、いまいちよくわかっておりません。
無知で申し訳ございません。可能であれば、おかしい部分を修正したマクロの内容を教えていただけると幸いです。