*

これは便利!メールの自動移動!Outlookのメールをマクロ(VBA)で移動させるの巻

公開日: : エクスペリエンス

2014052402

はじめに

会社のメーラーは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

2014052401

PC

関連記事

静岡駅から渋谷マークシティまで初めて高速バスで帰ったの巻 渋谷・新宿ライナー静岡号 静岡駅

一言 静岡から東京までのバスの旅、快適でした はじめに 静岡県掛川市から東京に戻るのに利用

記事を読む

ケータイ841SHのバッテリがヘタってきたので互換バッテリを買ってみた!【実容量高】SoftBank ソフトバンク 841SH 943SH 001SH の SHBCU1 互換 バッテリー【ロワジャパンPSEマーク付】

はじめに 長年、使用しているソフトバンクのケータイのバッテリが持たなく、直ぐに電源オフとなって

記事を読む

【青春18きっぷ:2018年夏その1】座っていく東京→浜松の帰省ツアー

一言 始発が出る駅で乗り換えると座っていけます はじめに 今回、青春18きっぷで浜松まで帰

記事を読む

キュウリの植替え成功!無事に生育中!今週のプチトマトとキュウリ 永田農法

今週のできごと 今週はプチトマトを収穫しました 丸くて小さい1個だけだけど、甘くて美

記事を読む

オークション写真の背景にピッタリ! プリントグラデーションバクペ60cmグレー(23933)開封の儀

簡単に言うと色つき厚紙です 断捨離で、いろいろ不要なものが出てきます と、同時に、こ

記事を読む

車検の前にオイル交換! オートバックス オイル交換

車検の前にオイル交換をします 久々のオートバックスへ 豊洲にあるスーパーオートバック

記事を読む

特集ページのホットケーキが美味しそう! 再び! 楽天マート

混乱があった楽天マートが再び送られてきました 楽天マートのカタログは先週、送られてきま

記事を読む

マラニック開始!山手線一周ラン!東京駅から上野駅まで3.75kmを走ったの巻

はじめに この連休に山手線一周ランを計画しました 約40キロのランとなります 私の実力では一日

記事を読む

UQ WiMAXでAtermWM3800Rを機器追加してみたの巻

WiMAXの機器追加解除も簡単でしたが、機器追加も簡単でした さて、前回、WiMAXの

記事を読む

今年のふるさと納税はモンベルのバウチャーとカニ!長野県小谷村 北海道釧路市

はじめに 去年のふるさと納税は牛肉、うなぎ、ジンギスカンでしたが今年はモンベルとカニでした

記事を読む

PC

PC

PAGE TOP ↑