Option Explicit Const SMTP_SERVER = "mail.xxxxxx.co.jp" Const MAIL_TO = "xxxxx@xxxxx.co.jp;xxxxx@xxxxx.com" Const MAIL_CC = "" Const MAIL_FROM = "sakura-editor@localhost.localdomain" Call SendMail Private Sub SendMail() Dim oMsg Set oMsg = CreateObject("CDO.Message") oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'oMsg.Configuration.Fields.Item _ ' ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'oMsg.Configuration.Fields.Item _ ' ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ユーザー名" 'oMsg.Configuration.Fields.Item _ ' ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "パスワード" oMsg.Configuration.Fields.Update oMsg.From = MAIL_FROM oMsg.Subject = ExpandParameter(CStr("$g")) SelectAll oMsg.TextBody = GetSelectedString(CLng(0)) 'oMsg.AddAttachment "C:\添付.txt" If MAIL_TO <> "" Then oMsg.To = MAIL_TO If MAIL_CC <> "" Then oMsg.Cc = MAIL_CC oMsg.Send End Sub