Outlook2010の添付ファイル保存マクロ

毎週１回スーパーパドックの馬場指数がメールの添付ファイルで送られてきます。添付ファイルを選択して保存先のフォルダを開いて保存する作業が必要となります。結構面倒くさいので、ワンクリックで保存出来るマクロを作りました。

ファイルのオプションを開きリボンのユーザー設定を開く。

開発にチェックを入れる。

開発という表示が出るのでここを開きVisual　Basicを開く。

Project1の下にThisOutlookSessionを表示させる。右の欄にVisual　Basicのコードを記入する。

記入後保存する。

任意の受信ファイルを開くと上のタブにメッセージが表示される。その後ファイル、オプション、リボンのユーザー設定をクリックする。

左上コマンドの種類ででマクロを選ぶ。メッセージを選択し新しいグループを追加。Project1を選択し中央の追加をクリックする。新しいグループのところの名前とアイコンを好きなものに変える。

メッセージのリボンにマクロの実行ボタンが追加される。マクロのセキュリティを変更して再起動させる。

今回のマクロのコードです。スーパパドックの添付ファイル以外に写真（JPG)、PDF、その他に分類して保存出来るようにしています。

テキストで表示（コピーペーストすれば使用可能。保存先は自分のコンピュータに合わせる。）
Public Sub SaveFile()
Dim myOlSel As Outlook.Selection
Dim j, x, cu As Integer
Dim strFolder As String
Set myOlSel = Application.ActiveExplorer.Selection
strFolder = "K:\KEIBA\SPDK2005\DAT"
strFolder1 = "E:\メール添付\JPEG"
strFolder2 = "E:\メール添付\PDF"
strFolder3 = "E:\メール添付\その他"
flag = 0
For x = 1 To myOlSel.Count
With myOlSel.Item(x)
cu = 0
cu = .Attachments.Count
If cu > 0 Then
For j = 1 To cu
If Right(.Attachments(j).DisplayName, 3) = "bab" Then
.Attachments(j).SaveAsFile (strFolder & "\" & .Attachments(j).DisplayName)
flag = flag + 1
Else
If Right(.Attachments(j).DisplayName, 3) = "pdf" Or Right(.Attachments(j).DisplayName, 3) = "PDF" Then
.Attachments(j).SaveAsFile (strFolder2 & "\" & .Attachments(j).DisplayName)
flag = flag + 1
Else
If Right(.Attachments(j).DisplayName, 3) = "jpg" Or Right(.Attachments(j).DisplayName, 3) = "JPG" Then
.Attachments(j).SaveAsFile (strFolder1 & "\" & .Attachments(j).DisplayName)
flag = flag + 1
Else
.Attachments(j).SaveAsFile (strFolder3 & "\" & .Attachments(j).DisplayName)
flag = flag + 1
End If
End If
End If
Next
End If
End With
If flag = 0 Then
MsgBox ("保存対象ファイルなし")
Else
MsgBox ("ファイルを保存しました")
End If
Next
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
参考資料
OUTLOOK VBA SAMPLE
Outlook研究所
Outlook 2010 VBA の基礎知識

お盆休みの金曜夜の外食

８月１４日（金曜）
下の娘が子供を連れて午後から伏見稲荷に遊びに行き、戻ってくると外食したいと言い出しました。金曜の夜６時です。多分回転寿司は大混雑のはずです。時々行く中華料理屋は普段は休日前でも予約なしでも空いていることが多いのですが、さすがに今日は１９：３０以降でないと空いていないとのことでした。娘がイタリアンが取れたと言って電話してきたのは「アマーク・ド・パラディ ICC」という関西外大の学食レストランです。この店は、昼食に時々利用したことがあり知っている店です。学食というイメージとはほど遠いお洒落なイタリアンです。昼間は料金も安く、関西外大の女子学生が多く利用しています、一般の方も利用可能です。

１８：５０に入店しました。意外なほど空いていました。学生が夏休みのこともあるからでしょうか。





２～３人用のセットメニューを頼みました。オードブル、サラダ、ピザ、スパゲッティ、豚肉ステーキを４人で分けて食べました。全部で4,320円でした。

帰る頃は外のテラスではビヤガーデンをやっていました。娘は大満足でした。盆休みの金曜夜にこんな穴場があるとは恐れ入りました。