こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

また、以下のマクロで書き出したデータの1行目にタイトルを入れたいです。
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

投稿日時 - 2018-01-04 18:34:14

QNo.9414880

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

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

投稿日時 - 2018-01-04 19:04:12

補足

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

投稿日時 - 2018-01-06 08:52:25