これは便利!メールの自動移動!Outlookのメールをマクロ(VBA)で移動させるの巻
公開日:
:
エクスペリエンス
はじめに
会社のメーラーはOutlookを利用しています
で、メール受信はIMAPサーバ経由でのアクセス
つまり、メール自身はローカルのPCに保存せずに、サーバにおきっぱなしという設定
が、このサーバ、2週間経ったら、メールを削除しちゃうんですよねw
だもんで、受信トレイからローカルフォルダにメールを保存される必要があります
受信トレイのメールを一個一個移動しても良いのだけど、人間様がやる話でないので、Outlookのマクロで一括してメール移動させてしまいます
流れ
流れというか、仕様というか、条件です
- Outlookのマクロ(VAB)を利用
- マクロ一発で受信フォルダのメールを全て任意のフォルダ(今回はINBOX)に移動
- 移動元は受信トレイ
- 移動先はINBOX
- メールは移動、コピーでない
- マクロ起動は手動で、いずれ自動化
ソース
マクロは、こちら
oFolderが受信トレイ、oDestがINBOXで、それぞれ移動元、移動先を設定しているので、必要に応じて変更してください
Sub ★inboxoutboxmove() Dim oNamespace As Outlook.NameSpace Dim oFolder As Outlook.MAPIFolder 'フォルダー Dim oDest As Outlook.MAPIFolder 'フォルダー Dim n As Integer 'ループのカウンター' NameSpace オブジェクトへの参照を取得します。 Set oNamespace = Application.GetNamespace("MAPI") ' 受信トレイの内容を移動 Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox) '受信トレイを指定 Set oDest = Application.Session.Folders("個人用 Outlook データ ファイル").Folders("INBOX") '受信トレイ直下のアイテム・メールの件名を表示 'メール数分ループ For n = (oFolder.Items.Count) To 1 Step -1 'アイテム数分ループ oFolder.Items(n).Move oDest Next
気をつけた点
気をつけたというより、難儀した点
メールの移動の仕方は移動元の全メールをカウントして、FOR文で添え字を指定して、配列のように扱います
その場合、添え字を先頭(0)から始めると、移動するそばから、元のメール指定の添え字が変更され、全て移動することができませんw
1つ移動したら、全体がリセット掛かるなど、添え字の固定化がされていませんでした
なので、添え字は最後尾から始め、一つずつ減らしていく(Step -1)手段を取りました
まとめ
気づいてしまえば簡単なのだけど、メール指定を逆順にするのに気づかなかったw
PC
関連記事
-
-
東京大阪往復はこれがお得かも! 日帰り1day大阪(東京地区出発) JR東海ツアーズ
仕事目的の東京大阪往復ではリーズナブルな手段は、これかなあ、と 明日、大阪出張 午後
-
-
木場公園でブログ書きのノマドをしてみたの巻
はじめに 近所の木場公園でノマドをやってみました 普段は自宅でブログを書くのですが、気分転換
-
-
年末の忙しい時期にふるさと納税で焼肉ジンギスカンセットとA4等級・鹿児島産黒毛和牛すき焼き&鹿児島県大隅産うなぎ2尾(無頭)セットを申し込んだの巻
写真提供:フリー写真素材ぱくたそ はじめに 年末の忙しい時期に、ふるさと納税を申し込みました
-
-
AviUtlを利用して動画作成、Youtubeに投稿したの巻
はじめに AviUtlを使って動画作成が簡単だったので、その内容となります 作成動画
-
-
エクスプロージョン 100%ナチュラルホエイプロテイン【プレーン味3kg】を買ったらデカかったの巻
商品名 エクスプロージョン 100%ナチュラルホエイプロテイン【プレーン味3kg】 一言
-
-
手続き簡単! UQ WiMAXで機器追加を解除してみたの巻
UQ WiMAXの機器追加の解除は簡単です 新しいWiMAXのモバイルルータAterm
-
-
やってきまっした、見積もり 車検のコバック
昨日頼んだ、車検の見積もりFAXが11時ごろ来ました 内容は、といっても、チラシの書き
-
-
【青春18きっぷ:2018年夏その1】座っていく東京→浜松の帰省ツアー
一言 始発が出る駅で乗り換えると座っていけます はじめに 今回、青春18きっぷで浜松まで帰
-
-
ケータイ841SHのバッテリがヘタってきたので互換バッテリを買ってみた!【実容量高】SoftBank ソフトバンク 841SH 943SH 001SH の SHBCU1 互換 バッテリー【ロワジャパンPSEマーク付】
はじめに 長年、使用しているソフトバンクのケータイのバッテリが持たなく、直ぐに電源オフとなって
-
-
静岡駅から渋谷マークシティまで初めて高速バスで帰ったの巻 渋谷・新宿ライナー静岡号 静岡駅
一言 静岡から東京までのバスの旅、快適でした はじめに 静岡県掛川市から東京に戻るのに利用