Outlook/VBA: メールをボタン１つで指定フォルダに保存するマクロ

開いているOutlookメールをボタン１つで指定フォルダに保存するプログラムです。

これを作った理由は、仕事で「あとでやる」と判断したメールを後になって一覧から探すのが面倒だったため、指定フォルダに保存しておこうと思ったからです。イチイチ「名前をつけて保存」なんてやったら面倒なので、Outlookのリボンにマクロボタンを仕込んで一発で保存するようにしました。

ボタン化についても最後に別記事のリンクになりますが紹介します。

[ad#top-1]

まずは完成したプログラムの動き

こちらが、あとで処理しようと思った受信メールだとします。添付ファイル付きです。リボンに「メール保存」というアイコンがあります。これにメール保存マクロが仕込まれています。これを押すと…、

…このように指定フォルダに保存されます。

開いてみると、Outlookから見たメールと同じものが参照できます。添付ファイルも見れます。

この業務が終わったらフォルダ内のメールを消せば良いわけで、仕事の効率は結構上がりましたので、このやり方はおすすめです。

ソースコード

Outlookに仕込んだマクロは以下のと通りです。

Sub メール保存()
  Dim myItem As Outlook.Inspector
  Dim objItem As Object

  Set myItem = Application.ActiveInspector
  Set objItem = myItem.CurrentItem
  strname = objItem.Subject

  strname = Replace(strname, " ", "")
  strname = Replace(strname, ":", "：")
  strname = Replace(strname, "\", "￥")

  objItem.SaveAs "C:\Users\...\メール保存\" & strname & ".msg"

End Sub
 

ポイントは、Replaceでスペースを消して、「:」と「\」を2バイト文字に置換している点です。タイトルがそのままファイル名になるのでパスに使うキーワードは別の文字に変換した方が良いでしょう。※スペースはもしかして消さなくてよかったかも。念の為です。

Outlookマクロの書き方とリボンへボタンを設置する方法

Outlookマクロの書き方についてはこちらの記事をご覧ください。

非IT企業に勤める中年サラリーマンのIT日記

 

2 Users

16 Pockets

OutlookでVBAを使ってみる（基本編）

VBAといえば、ほとんどがExcelマクロのことを示しています。たぶん、多くの人はExcel上でしかマクロを組んだことがないんじゃないかと思います。VBAはWordでもPowerPointでもMicrosoft Officeであれば組むことができます。ニーズがExcelに集中しているのでほとんどの情報がExcelマクロになってしまうのですが。Microsoft Officeの１つであるOutlookでもVBAを組むことができます。PowerPointでマクロを組む気にはなりませんが、Outlookの場合はいくつか便利な機能があります。今回は基本的な使い方を紹介します。まずはリボンの設定Outl...

リボンへのボタンを設置する方法はこちら。マクロを一発で実行できて便利です。

非IT企業に勤める中年サラリーマンのIT日記

 

1 User

10 Pockets

Outlook/VBA: 自作マクロをリボンにボタンとして設置する方法

Outlookでマクロを作ったらリボンにボタンを載せて使いやすくしましょう。今回はその方法を紹介します。リボンに自作マクロを追加する場合、リボンに独自のタブを追加する必要があります。デフォルトのタブにはボタンを追加できません。まずはそこから。Outlook/VBAの作り方はこちらを参照ください。まずは独自のタブを作成するOutlookの場合、メイン画面とメールアイテム画面とメール作成画面の3種類に分かれていますが、実行した画面のリボン上で右クリックし、「リボンのユーザー設定」を選択します。 すると、以下の画面とな...

[ad#ad-1]

 - Outlook, VBA