VB サンプル

【サンプルリスト】

'=================
' メールを送信する
'=================
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 = "tatsuya@red.oit-net.jp"                       'CC
  ML.BCC = "tatsuya@red.oit-net.jp"                      'BCC
  ML.Subject = "こんにちは"                              '件名
  ML.Importance = olImportanceHigh                       '重要度
  ML.Attachments.Add "C:\TEST\SAMPLE1.XLS" '1個目の添付ファイル
  ML.Attachments.Add "C:\TEST\SAMPLE2.XLS" '2個目の添付ファイル
  ML.Body = "はじめまして" & vbCr & "こんにちは" & vbCr '本文

  ML.Send    'メール送信

End Sub

●CreateItemメソッド

【機能】新しい Outlook アイテムを作成して返します。

【書式】Set ML = OL.CreateItem (アイテムタイプ)

【例】Set ML = OL.CreateItem (olMailItem)

olAppointmentItem	1
olContactItem	2
olDistributionListItem	7
olJournalItem	4
olMailItem	0
olNoteItem	5
olPostItem	6
olTaskItem	3

●Toプロパティ

【機能】送信先(メールアドレス)を設定します。

【書式】ML.To = 送信先

【例】ML.To = "tatsuya@red.oit-net.jp"

※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。

●CCプロパティ

【機能】CC送信先(メールアドレス)を設定します。

【書式】ML.CC = CC送信先

【例】ML.CC = "tatsuya@red.oit-net.jp"

※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。

●BCCプロパティ

【機能】BCC送信先(メールアドレス)を設定します。

【書式】ML.BCC = BCC送信先

【例】ML.BCC = "tatsuya@red.oit-net.jp"

※ 複数に送信する場合は、セミコロン ( ; ) で区切って指定します。

●Subjectプロパティ

【機能】件名を設定します。

【書式】ML.Subject = 件名

【例】ML.Subject = "こんにちは"

●Importanceプロパティ

【機能】重要度を設定します。

【書式】ML.Importance = 重要度

【例】ML.Importance = olImportanceHigh

olImportanceHigh	2	高
olImportanceLow	0	低
olImportanceNormal	1	標準

●Attachmentsコレクション

【機能】添付ファイルを設定します。

【書式】ML.Attachments.Add ファイル名

【例】
ML.Attachments.Add "C:\TEST\SAMPLE1.XLS" '1個目の添付ファイル
ML.Attachments.Add "C:\TEST\SAMPLE2.XLS" '2個目の添付ファイル

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

●Bodyプロパティ

【機能】本文を設定します。

【書式】ML.Body = 本文

【例】ML.Body = "はじめまして" & vbCr & "こんにちは" & vbCr

●Sendメソッド

【機能】メールを送信します。

【書式】ML.Send

【例】ML.Send

●Displayメソッド

【機能】メール送信のウィンドウを表示します。

【書式】ML.Display

【例】ML.Display