第18回 OutlookVBA③

photo-1466096115517-bceecbfb6fde

メールに添付されたファイルを保存したい時、ボタン1つでできたら便利だと思いませんか?

今回は添付ファイルの操作について紹介します。

  • 今回ご紹介する方法はMicrosoft Outlook 2007 で実行しています。

以下のコードを入力し、添付ファイル付きのメールを選択した状態でマクロを実行して下さい。

Sub 添付ファイル保存()

Dim SI As Outlook.Selection

Dim MI As Attachments

Set SI = Application.ActiveExplorer.Selection

Set MI = SI.Item(1).Attachments

If MI.Count <> 0 Then

MI.Item(1).SaveAsFile “C:\test\” & MI.Item(1).DisplayName

End If

End Sub

Application.ActiveExplorer.Selection で SI に選択中のメールアイテムをセットし、SI.Item(1).Attachments で MI に添付ファイルをセットします。

添付ファイルの数が0でなければ、1つ目の添付ファイルを “C:\test\” フォルダ内に保存します。

添付ファイルが複数ある場合には以下のようにループ処理を追記すれば、全て取得することができます。

For i = 1 To MI.Count

MI.Item(i).SaveAsFile “C:\test\” & MI.Item(i).DisplayName

Next i

取得情報

ISO-27001

IS 578154 / ISO 27001

ISO認証取得

  • 立川本社
  • 鳥取支社
  • TWS総合研究所

認証範囲:

  • コンピュータソフトウェア受託開発
  • システムエンジニアリングサービス
  • 情報システムの運用・保守
  • パッケージソフトウェアの開発・保守
  • コンサルティング事業、トレーニング事業及び情報セキュリティ事業

ISO-9001

FS591336 / ISO 9001

ISO認証取得

  • 立川本社
  • 鳥取支社
  • TWS総合研究所

認証範囲:

本社及び鳥取支店にて行う以下の業務

  • コンピュータソフトウェア受託開発
  • 情報システムの運用・保守
  • パッケージソフトウェアの開発・保守
  • TWS総合研究所で行うコンサルティング事業、トレーニング事業及び情報セキュリティ事業

ISO-9001

EMS602917 / ISO14001

ISO認証取得

  • 立川本社
  • 鳥取支社
  • TWS総合研究所

認証範囲:

  • コンピュータソフトウェア受託開発
  • システムエンジニアリングサービス
  • 情報システムの運用・保守
  • パッケージソフトウェアの開発・保守
  • コンサルティング事業、トレーニング事業及び情報セキュリティ事業

ISO45001

OHS 692647 / ISO45001

ISO認証取得

  • 立川本社
  • 鳥取支社
  • TWS総合研究所

認証範囲:

  • コンピュータソフトウェア受託開発
  • システムエンジニアリングサービス
  • 情報システムの運用・保守
  • TWS総合研究所
    コンサルティング事業、トレーニング事業及び情報セキュリティ事業

プライバシーマーク

当社は、個人情報の適切な取り扱いを行う事業所にのみ許可される「プライバシーマーク」の付与認定を受けています。

セキュリティ対策自己宣言

株式会社テイルウィンドシステムは社員が働きやすい環境作りに取り組み、平成29年度の東京都ライフ・ワーク・バランス企業として認定を受けました。

テイルウィンドシステムグループ方針

プライバシーポリシー