これは便利!メールの自動移動!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
関連記事
-
-
リーガルの靴を修理に出してきたの巻 リーガル日本橋店
はじめに リーガルのかかとが壊れちゃったので修理に出してきました 流れ 修理する靴を店舗に
-
-
早い! 車検証と車検を入手 車検のコバック
やってきました、車検証 車検のコバックで先日、検査を受けました 無事通過で、あとは車検が
-
-
予約は簡単! 車検のコバック
車検の季節です 我が家の愛車、アルデオ そんなに乗っていませんが、車検が来月やってきます
-
-
今回もお得にお買い物! 2016年春夏 第74回岩本町・東神田ファミリーバザールに行ってきて戦利品公開の巻
はじめに 今年も岩本町のファミリーバザールの季節となりました 例年楽しみにしています 早速
-
-
ふるさと納税で鹿児島県垂水市からA4等級・鹿児島産黒毛和牛すき焼き&鹿児島県大隅産うなぎ2尾(無頭)セットがやって来たの巻
はじめに 年末に頼んだ鹿児島県垂水市のふるさと納税、A4等級・鹿児島産黒毛和牛すき焼き&鹿児島
-
-
オークション写真の背景にピッタリ! プリントグラデーションバクペ60cmグレー(23933)開封の儀
簡単に言うと色つき厚紙です 断捨離で、いろいろ不要なものが出てきます と、同時に、こ
-
-
WAONがお得!イオンカード入会の巻 マックスバリュー
はじめに WAONのポイント還元がお得です どのくらいお得? 消費税が5%から8%にアップ
-
-
特集ページのホットケーキが美味しそう! 再び! 楽天マート
混乱があった楽天マートが再び送られてきました 楽天マートのカタログは先週、送られてきま
-
-
静岡、浜松ぶらり旅!東京→浜松 青春18きっぷ 2014年冬 その1
一言 今回は静岡、浜松で途中下車しました はじめに 今年もお正月の帰省は青春18きっぷで、
-
-
2017夏 超特急東名ライナーで東京から浜松まで高速バスで帰省してみた
はじめに 超特急東名L207号 2017/8/13に高速バスで東京から浜松まで移動しました


