ExcelVBAでOutlookを使ってメールを送信するやり方。
┌──────────────────────────────────────┐
│' 事前に「ツール＞参照設定」で                                              │
│' 「Microsoft Outlook 14.0 Object Library」を追加しておく                   │
├──────────────────────────────────────┤
│' メールの生成                                                              │
│    Dim objOutlook As Outlook.Application                                   │
│    Dim objメール As Outlook.mailItem                                       │
│    Set objOutlook = CreateObject("Outlook.Application")                    │
│    Set objメール = objOutlook.CreateItem(olMailItem)                       │
│    objメール.BodyFormat = 1           ' プレーンテキスト                   │
│    objメール.To = "xxxx@xxxx.co.jp"   ' 宛先TO                             │
│    objメール.CC = "xxxx@xxxx.co.jp"   ' 宛先CC                             │
│    objメール.BCC = "xxxx@xxxx.co.jp"  ' 宛先BCC                            │
│    objメール.Subject = "件名"                                              │
│    objメール.Body = "本文"                                                 │
├──────────────────────────────────────┤
│' ファイルの添付                                                            │
│    Dim obj添付 As Outlook.Attachments                                      │
│    Set obj添付 = objメール.Attachments                                     │
│    obj添付.Add "C:\添付ファイル.txt"                                       │
├──────────────────────────────────────┤
│' メールの送信                                                              │
│''''objメール.Save      ' 下書き保存                                        │
│    objメール.Display   ' メーラ表示(送信ボタンを押させる)                  │
│''''objメール.Send      ' 送信                                              │
└──────────────────────────────────────┘