*

これは便利!メールの自動移動!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

関連記事

スマホでハード・キーボード打ちは楽! Nexus7のキーボードインプレッション&設定【Google NEXUS7専用】Bluetooth接続キーボード兼スタンド兼カバー

やっぱりPCでキーボードを打ちなれているので、スマホでのキーボード打ちも楽です さて、

記事を読む

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

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

記事を読む

2017夏 超特急東名ライナーで東京から浜松まで高速バスで帰省してみた

はじめに 超特急東名L207号 2017/8/13に高速バスで東京から浜松まで移動しました

記事を読む

年末の忙しい時期にふるさと納税で焼肉ジンギスカンセットとA4等級・鹿児島産黒毛和牛すき焼き&鹿児島県大隅産うなぎ2尾(無頭)セットを申し込んだの巻

写真提供:フリー写真素材ぱくたそ はじめに 年末の忙しい時期に、ふるさと納税を申し込みました

記事を読む

WAONがお得!イオンカード入会の巻 マックスバリュー

はじめに WAONのポイント還元がお得です どのくらいお得? 消費税が5%から8%にアップ

記事を読む

爆安!第73回2015年冬 岩本町・東神田ファミリーバザールに参戦して来たの巻

はじめに 今年も岩本町で行われるファミリーバザールに行ってきました お天気が良くてよかった

記事を読む

【公開】ファミリーバザール2016年冬の陣!衣料、日用雑貨がリーズナブル!第75回岩本町・東神田ファミリーバザールで買ってきたの巻

はじめに 今回も2016/11/25~11/27に開催された第75回岩本町・東神田ファミリ

記事を読む

WordPressのLightBoxが、おかしくなったので直してみたの巻

どうも一時期、プラグインのアップデートでプラグイン同士の齟齬が発生したようです ちょっ

記事を読む

断捨離で不要になったスキャナをソフマップに売りに行ったの巻

結論から言うと、売れませんでした、残念 この連休は部屋のプチ断捨離中 そんでもって、

記事を読む

実録!リアルタイム!AliExpressで帽子が発送されたの巻き

はじめに AliExpressで注文した帽子が発送されたようです 目的 AliExpres

記事を読む

PC

PC

PAGE TOP ↑