Sub myMailReply()
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem 返信メール一括作成処理
  Rem 記録者:Hitrock Camellia Shinopy
  Rem 言語:Outlook VBA
  Rem 機能...
  Rem   選択した受信トレイアイテム(複数可)を選択し、
  Rem   返信メールを作成する。
  Rem 注記:受信トレイのアイテムを選択した状態で実行する。
  Rem 履歴...
  Rem   第1版:2005/01/21:作成。
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Dim myMail As MailItem
  Dim myBody As String
  '
  If ActiveExplorer.CurrentFolder.Name <> "受信トレイ" Then
    MsgBox "受信トレイを選択して下さい。"
    Exit Sub
  End If
  '
  For Each myMail In ActiveExplorer.Selection
    With myMail.Reply
      Rem 重要度・フラグ・CC・件名。
      ' .Importance = olImportanceHigh  ' olImportanceHigh olImportanceLow olImportanceNormal
      ' .FlagRequest = "御確認ください。"
      .CC = myMail.CC
      .Subject = "Re:" & myMail.Subject
      Rem 本文。
      .Body = myMail.SenderName & " 様、" & vbCrLf
      .Body = .Body & "御照会の件、下記の通り回答いたします。" & vbCrLf & vbCrLf
      Rem 受信トレイアイテムの本文を引用する。
      myBody = ">" & myMail.Body
      myBody = Replace(myBody, vbCrLf, vbCrLf & ">")
      .Body = .Body & myBody
      Rem 返信メールを表示する。/保存する。
      .Display
      ' .Close olSave ' olPromptForSave olDiscard
    End With
  Next myMail
End Sub ' myMailReply *----*----*    *----*----*    *----*----*    *----*----*
inserted by FC2 system