これは便利!メールの自動移動!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
関連記事
-
デイリーポータルZの肉まつり@お台場に入ってきたの巻
会場は混雑していました よく見るサイトにデイリーポータルZがあります 面白いんですよ
-
でっかいけど便利! 大型断裁機 ペーパーカッター YG-LN BA58A4 開封の儀
はじめに 本が多くなり、整理しなければならなくなったので、遅ればせながら、断裁機を買いました
-
簡単でしたウェブチェックイン ジェットスター
ウェブチェックインは簡単でした LLCのジェットスター 事前にチェックインができます
-
簡単交換! オムロン 極細マイルドブラシ SB-080
歯ブラシ部分の交換は簡単です 歯磨きに電動歯ブラシを使用しています 使っている電動歯
-
楽しい絵と思い出をありがとう! 小学館ビル ラクガキ 神保町
隙間から覗く絵は躍動感溢れるものでした 夕方から内幸町で打合せ 早く終わったので、噂
-
アフェリエイトを少し有利に!もしもアフェリエイトを申請、カエレバ、ヨメレバを設定してみたの巻
ちょっとアフェリエイトが有利になりそうです はじめ ブログのアクセス数もちょこっと伸びて
-
やってきまっした、見積もり 車検のコバック
昨日頼んだ、車検の見積もりFAXが11時ごろ来ました 内容は、といっても、チラシの書き
-
木場公園でブログ書きのノマドをしてみたの巻
はじめに 近所の木場公園でノマドをやってみました 普段は自宅でブログを書くのですが、気分転換
-
あっという間に東京駅まで!関空→成田編 東京大阪日帰り ジェットスター
成田→関空よりも帰りの関空→成田の方があっという間に帰ってきた感じです 大阪出張、帰り
-
Web × モノ × くらしを見に行ってきたの巻 Mozilla Open Web Day in Tokyo 秋葉原
これはアンケート結果の御礼に頂いたクッキーです はじめに 久しぶりの更新です 仕事の関係で