メッセージの差出人(From)を指定します。
- 構文
- CDO.From = pVal
- 引数
- 戻り値
差出人の指定の仕方
メールアドレスのみを指定する。
CDO.From = “info@example.com”
名前とメールアドレスを指定するには「名前<メールアドレス>」の形式で記述します。
CDO.From = “名前<info@example.com>”
プログラム実行例
メールの送信
CONST cdoBasic = 1
CONST cdoSendUsingPort = 2
CONST Schemas = "http://schemas.microsoft.com/cdo/configuration/"
CONST cdoSendPassword = Schemas + "sendpassword"
CONST cdoSendUserName = Schemas + "sendusername"
CONST cdoSendUsingMethod = Schemas + "sendusing"
CONST cdoSMTPConnectionTimeout = Schemas + "smtpconnectiontimeout"
CONST cdoSMTPServer = Schemas + "smtpserver"
CONST cdoSMTPServerPort = Schemas + "smtpserverport"
CONST cdoSMTPUseSSL = Schemas + "smtpusessl"
CONST cdoSMTPAuthenticate = Schemas + "smtpauthenticate"
DIM CDO = CREATEOLEOBJ("CDO.Message")
WITH CDO
.From = "***@yahoo.co.jp"
.To = "info@example.com"
.Subject = "件名"
.TextBody = "本文"
WITH .Configuration.Fields
.Item(cdoSendPassword).Value = "password"
.Item(cdoSendUserName).Value = "***@yahoo.co.jp"
.Item(cdoSendUsingMethod).Value = 2
.Item(cdoSMTPConnectionTimeout).Value = 100
.Item(cdoSMTPAuthenticate).Value = 1
.Item(cdoSMTPServer).Value = "smtp.mail.yahoo.co.jp"
.Item(cdoSMTPServerPort).Value = 465
.Item(cdoSMTPUseSSL).Value = True
.Update
ENDWITH
.Send
ENDWITH
解説
- 16行目
- 送信元のメールアドレスを指定。
.From = "***@yahoo.co.jp"
- 17行目
- 送信先のメールアドレスを指定。
.To = "info@example.com"
- 18行目
- メールの件名を指定。
.Subject = "件名"
- 19行目
- メールの本文を指定。
.TextBody = "本文"
- 20行目
- 設定項目。
WITH .Configuration.Fields
- 21行目
- 送信パスワード。Yahoo! JAPANのログインパスワード。
.Item(cdoSendPassword).Value = "password"
- 22行目
- 送信ユーザー名。Yahoo! JAPANのメールアドレス。
.Item(cdoSendUserName).Value = "***@yahoo.co.jp"
- 24行目
- タイムアウト時間(秒)。
.Item(cdoSMTPConnectionTimeout).Value = 100
- 25行目
- 認証メカニズムを指定。
.Item(cdoSMTPAuthenticate).Value = 1
- 26行目
- 送信メール(SMTP)サーバー名。Yahoo! JAPANは「smtp.mail.yahoo.co.jp」。
.Item(cdoSMTPServer).Value = "smtp.mail.yahoo.co.jp"
- 27行目
- 送信メール(SMTP)ポート番号。
.Item(cdoSMTPServerPort).Value = 465
- 28行目
- SSLを使用。
.Item(cdoSMTPUseSSL).Value = True
- 29行目
- 設定内容を更新します。
.Update
- 31行目
- メッセージを送信します。
.Send