Outlook2010のメール書き出しVBAについ

質問

Outlook2010のメール書き出しVBAを作成しました。
１行目に見出しをいれたいのですがうまく入れられません。
また、800件程度のメールを書きだそうとすると、書き出したエクセルの途中の行に７行くらい空の行が入ってしまいます。

どこをどう直せばよいかよくわからず、
どなたか修正いただけると幸いです。

----------------------------
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

f272 · ベストアンサー

(1)１行目に見出しをいれたい
i = 1
のあとに
.Cells(i, 1) = "受信日時"
.Cells(i, 2) = ”送信者名”
i = i+1
とすればどうかな。

(2)７行くらい空の行が入ってしまいます。
7件くらい受信日時と送信者名がないメールがあるのではないですか？

お礼

ありがとうございました！無事作成できました。