サンプルソースっす

Sub vbsとかvbaでメール送信()
    
On Error Resume Next
'See http://www.atmarkit.co.jp/fwin2k/win2ktips/428wshmail/wshmail.html
 
    Set oMsg = CreateObject("CDO.Message")
    oMsg.From = "hogehoge<hogehoge@hoge.hoge.jp>"
    oMsg.To = "fugafuga<fugafuga@hoge.hoge.jp>"
    oMsg.Cc = "hogehoge@hoge.hoge.jp"
    oMsg.Subject = "[TEST.CDO.Message]くるま！くるま！"
    oMsg.TextBody = "テストメッセージです。Accessで稼働確認しました。" & vbCrLf & Now
    
    'SMTPサービスが提供されないWindows XP Home Editionを使っているか、
    '何らかの理由でSMTPサービスをインストールできない場合には、
    '自前のSMTPサービスを利用する代わりに、外部のSMTPサーバを利用してメッセージを送信することができる。
    'これにはCDOのConfigurationプロパティを使う。
    With oMsg.Configuration.Fields
        '送信方法
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTPポートに接続して送信する
        '送信サーバ／pop3(sending)server
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "100.200.100.200"
        '送信サーバのポート番号／smtp listening port
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
       
    End With
    oMsg.AddAttachment "c:\fugafuga.txt"
    
    oMsg.Send

    If Err.Number = 0 Then
        MsgBox "MAIL SENDED", vbInformation
    Else
        MsgBox Err.Description, vbInformation
    End If

End Sub