Set oMsg = CreateObject("CDO.Message")
oMsg.MimeFormatted = True
oMsg.BodyPart.Charset = "ISO-2022-JP"
oMsg.From = "hoge1@hoge1"
oMsg.To = "hoge2@hoge12"
oMsg.Subject = "Test"
oMsg.TextBody = "テストメッセージです" & vbCrLf & Now

'外部SMTPは2
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'SMTPサーバ
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.asahi-net.or.jp"
'SMTPポート
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
'認証を使う ('1はbasic認証、2はNTLM認証)
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'ユーザー名
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'パスワード
oMsg.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
oMsg.Configuration.Fields.Update
oMsg.Send

'添付ファイル
'oMsg.AddAttachment("添付ファイルのパス")