Sub MyOlMail()
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Rem 電子メール作成送信処理
  Rem 作譜：Hitrock Camellia Shinopy
  Rem 言語：Outlook VBA
  Rem 機能...
  Rem   決まった内容の電子メール新規作成し送信する。
  Rem 注記...
  Rem   1. Microsoft Outlookで[電子メールの編集にMicrosoft Wordを使用する]を指定しておくこと。
  Rem      Microsoft Outlookのメニューバーの[ツール]から[オプション...]をクリックし、
  Rem      [メール形式]タブの[電子メールの編集にMicrosoft Wordを使用する]チェックボックスを
  Rem      オンにする。
  Rem   2. Microsoft Wordの標準コマンドバーに<送信>コマンドボタンを追加しておくこと。
  Rem      Microsoft Wordのメニューバーの[ツール]から[ユーザー設定...]をクリックし、
  Rem      [ユーザー設定]ダイアログボックスから[コマンド]タブを選択し、
  Rem      [分類]の[すべてのコマンド]を選択して、[コマンド]の[EmailSend]を
  Rem      <標準>コマンドバーにドラッグし、<送信>コマンドボタンを追加する。
  Rem   3. 警告なしに送信する。
  Rem 履歴...
  Rem   第1版：2006/05/29：作成。
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  Dim myMail As MailItem
  Dim myAns As Integer
  Dim myCmmdBar As CommandBar
  Dim myCtrl As CommandBarControl
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  '
  Set myMail = Application.CreateItem(olMailItem)
  myMail.Subject = "マクロからのサンプルメッセージ"
  myMail.To = "xxxxxxxx@msn.com"
  myMail.Body = "テキストを自動的に追加する。"
  myMail.FlagRequest = "凄い！"
  myMail.Importance = olImportanceHigh
  Rem olImportanceHigh olImportanceLow olImportanceNormal
  myMail.Display
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  '
  Set myCmmdBar = Application.ActiveInspector.CommandBars("Standard") ' 標準
  Rem [電子メールの編集にMicrosoft Wordを使用する]場合
  Set myCtrl = myCmmdBar.FindControl(ID:=3708) ' 送信 ' WordBasic.Emailend
  Rem 電子メールの編集にMicrosoft Wordを使用しない場合、
  Rem 処理不能。↓「'Execute'メソッドは失敗しました。」になる。
  Rem Set myCtrl = myCmmdBar.FindControl(ID:=5469) ' 送信
  Rem Set myCtrl = myCmmdBar.FindControl(ID:=2617) ' 送信
  myCtrl.Execute
  Rem *----*----*    *----*----*    *----*----*    *----*----*
  '
  Set myMail = Nothing
  Set myCmmdBar = Nothing
  Set myCtrl = Nothing
End Sub ' MyOlMail *----*----*    *----*----*    *----*----*    *----*----*