VB6 リファレンス お品書き へ戻ります
Visual Basic6 リファレンス


VB6(VBA) メール操作 (Outlook)
Outlook を使ったメール送受信のリファレンス

Outlook.Application オブジェクト
Outlookを操作して、メール処理を行います。

[参照設定]
Microsoft Outlook 9.0 Object Library (MSOUTL9.OLB)

[変数宣言]
Dim OL As Outlook.Application
Dim ML As Outlook.MailItem

[オブジェクト生成]
Set OL = CreateObject("Outlook.Application")
Set ML = OL.CreateItem(olMailItem)

お品書き
● サンプルOutlook からメールを送信するサンプル プログラム
● CreateItem新しい Outlookアイテムを作成
● To送信先の設定
● CCCC送信先の設定
● BCCBCC送信先の設定
● Subject件名の設定
● Importance重要度の設定
● Attachments.Add添付ファイルの設定
● Body本文の設定
● Sendメールの送信
● Displayメール送信ウィンドウの表示
● QuitOutlook を終了させます
▲TOP


● Outlook からメールを送信するサンプル プログラム

'=================
' メールを送信する
'=================
Private Sub Sample()

    Dim OL As Outlook.Application
    Dim ML As Outlook.MailItem
    Set OL = CreateObject("Outlook.Application")
    Set ML = OL.CreateItem(olMailItem)

    ML.To = "tatsuya@red.oit-net.jp"                    'To
    ML.CC = ""                                                  'CC
    ML.BCC = ""                                                'BCC
    ML.Subject = "こんにちは"                               '件名
    ML.Importance = olImportanceHigh                 '重要度
    ML.Attachments.Add "C:¥TEST¥SAMPLE1.XLS"  '1個目の添付ファイル
    ML.Attachments.Add "C:¥TEST¥SAMPLE2.XLS"  '2個目の添付ファイル
    ML.Body = "はじめまして" & vbCrLf & "こんにちは" & vbCrLf  '本文

    ML.Send    'メール送信
    Set ML = Nothing
    Set OL = Nothing

End Sub
▲TOP


● CreateItem メソッド
【機能】新しい Outlook アイテムを作成して返します。
【書式】Set ML = OL.CreateItem (アイテムタイプ)
アイテムタイプ数値
olAppointmentItem1
olContactItem2
olDistributionListItem7
olJournalItem4
olMailItem0
olNoteItem5
olPostItem6
olTaskItem3
【 例 】 Set OL = CreateObject("Outlook.Application")
Set ML = OL.CreateItem (olMailItem)
▲TOP


● To プロパティ
【機能】送信先(メールアドレス)を設定します。
【書式】ML.To = 送信先
【 例 】ML.To = "tatsuya@red.oit-net.jp"

  ※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。
  ※ 名前表記にしたい場合は、ML.To = "Tatsuya管理人 <tatsuya@red.oit-net.jp>" のように記述します。
▲TOP


● CC プロパティ
【機能】CC送信先(メールアドレス)を設定します。
【書式】ML.CC = CC送信先
【 例 】ML.CC = "tatsuya@red.oit-net.jp"

  ※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。
  ※ 名前表記にしたい場合は、ML.CC = "Tatsuya管理人 <tatsuya@red.oit-net.jp>" のように記述します。
▲TOP


● BCC プロパティ
【機能】BCC送信先(メールアドレス)を設定します。
【書式】ML.BCC = BCC送信先
【 例 】ML.BCC = "tatsuya@red.oit-net.jp"

  ※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。
  ※ 名前表記にしたい場合は、ML.BCC = "Tatsuya管理人 <tatsuya@red.oit-net.jp>" のように記述します。
▲TOP


● Subject プロパティ
【機能】件名を設定します。
【書式】ML.Subject = 件名
【 例 】ML.Subject = "こんにちは"
▲TOP


● Importance プロパティ
【機能】重要度を設定します。
【書式】ML.Importance = 重要度
重要度数値説明
olImportanceHigh2高
olImportanceLow0低
olImportanceNormal1標準
【 例 】ML.Importance = olImportanceHigh
▲TOP


● Attachments コレクション
【機能】添付ファイルを設定します。
【書式】ML.Attachments.Add ファイル名
【 例 】 ML.Attachments.Add "C:¥TEST¥SAMPLE1.XLS" '1個目の添付ファイル
ML.Attachments.Add "C:¥TEST¥SAMPLE2.XLS" '2個目の添付ファイル

  ※ 指定したファイルが存在しなければ、エラーが発生します。
▲TOP


● Body プロパティ
【機能】本文を設定します。
【書式】ML.Body = 本文
【 例 】ML.Body = "はじめまして" & vbCrLf & "こんにちは" & vbCrLf
▲TOP


● Send メソッド
【機能】メールを送信します。
【書式】ML.Send
【 例 】ML.Send
【関連】ML.Display
▲TOP


● Display メソッド
【機能】メール送信のウィンドウを表示します。
【書式】ML.Display
【 例 】ML.Display
【関連】ML.Send
▲TOP


● Quit メソッド
【機能】Outlook セッションを終了させます。
【書式】OL.Quit
【 例 】 Dim OL As Outlook.Application
Dim ML As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set ML = OL.CreateItem(olMailItem)
ML.To = "tatsuya@red.oit-net.jp"
ML.Subject = "こんにちは"
ML.Body = "はじめまして" & vbCrLf & "こんにちは" & vbCrLf
ML.Send
Set ML = Nothing
OL.Quit
Set OL = Nothing
▲TOP