Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　OUTLOOKを使ってEXCELブックの添付メールを送信する
'
'  Copyright(C) 2000 Sunago
'
'　　OUTLOOK97(or 98,2000)を使ってEXCELブックを添付したメールを
'  送信するには、CreateItemメソッドを使って新規メールを作成し、
'　Attachmentsコレクションにブックへのリンクを追加します。
'　　EXCELブックを添付するには、作成済み（ディスクに保存された）
'  のブックでなければなりません。新規作成で未保存のブックを
'  添付することはできません。
'
'  ※このマクロを実行するにはOutlook97以降が必要です。
'  Outlook97はメールが送信できるように設定しておきます。

Option Explicit

Sub Macro1()
Dim myOlApp As Object
Dim myNamespace
Dim myItem
Dim myRecipient

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myItem = myOlApp.CreateItem(0)      'olMailItem
    ' 宛先を複数指定する時は ; で区切る(Ex. xxx1@yyy.zzz;xxx2@yyy.zzz)
    'myItem.To = "xxx1@yyy.zzz"         '宛先(TO)
    'myItem.CC = "xxx1@yyy.zzz"         '宛先(CC)
    'myItem.BCC = "xxx1@yyy.zzz"        '宛先(BCC)
    ' Outlookアドレス帳の名前を使って宛先を指定する
    ' ※名前は表題もしくは姓、名形式で設定する
    '（アドレス帳から検索できる形式であればＯＫ）
    Set myRecipient = myItem.Recipients.Add("任意の名前")
    If myRecipient.Resolve = True Then
        myRecipient.Type = 1            '1:=TO,2:=CC,3:=BCC
        ' 件名および本文
        myItem.Subject = "ここに件名を設定する"
        myItem.Body = "ここに本文を文字列で設定する"
        ' ブックを添付する（添付ブック名および表示名称の設定）
        ' ※ここでは自ブックを添付ブックするためマクロを含んだ
        '   ブックを添付するが、実際の運用ではデータのみの
        '   ブックを指定すべきである。
        myItem.Attachments.Add ThisWorkbook.FullName, , , ThisWorkbook.Name
        ' メールを送信する
        myItem.Send
      Else
        MsgBox "正しい宛先を指定してください"
    End If
    'myOlApp.Quit
    Set myItem = Nothing
    Set myNamespace = Nothing
    Set myOlApp = Nothing
    
End Sub