第14回 OutlookVBAで仕事効率UP!②

photo-1474872650460-e86a5210ffee

今回は選択したメールへの返信用メールを自動作成する方法を紹介します。

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

以下のコードを入力し、返信したいメールを選択した状態でマクロを実行して下さい。

※マクロの動作方法等については 第3回 OutlookVBAで仕事効率UP!① を参照下さい。

Sub 返信メール自動作成()

Dim SI As Outlook.Selection
Dim ML As Outlook.MailItem

Set SI = Application.ActiveExplorer.Selection

Set ML = SI.Item(1).Reply

ML.BodyFormat = olFormatPlain
‘ 本文
ML.Body = “お世話になっております。ご注文を承りました。” & ML.Body
‘ メール表示
ML.Display

Set ML = Nothing

End Sub

Application.ActiveExplorer.Selection で選択中のメールアイテムを SI にセットし、SI.Item(1).Reply で返信メールを作成します。

メールを複数選択中の場合は並び順で一番上のアイテムを取得するようです。
Item(2)、Item(3)といった具合でそれぞれ別のメールを取得することもできますので、選択中の全てのメールに返信したい場合はItemの数だけループさせる処理を追加すれば可能となります。

また、宛先を追加する場合は ML.To 、 ML.CC 、 ML.BCC に追加すればOKです。

実行結果例

1

取得情報

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年度の東京都ライフ・ワーク・バランス企業として認定を受けました。

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

プライバシーポリシー