From

メッセージの差出人(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
  1. CDO.From
  2. CDO.To
  3. CDO.Subject
  4. CDO.TextBody
  5. CDO.Configuration
  6. CDO.Fields
  7. CDO.Send
解説
  1. 16行目
    	.From = "***@yahoo.co.jp"
    送信元のメールアドレスを指定。
  2. 17行目
    	.To = "info@example.com"
    送信先のメールアドレスを指定。
  3. 18行目
    	.Subject = "件名"
    メールの件名を指定。
  4. 19行目
    	.TextBody = "本文"
    メールの本文を指定。
  5. 20行目
    	WITH .Configuration.Fields
    設定項目。
  6. 21行目
    		.Item(cdoSendPassword).Value = "password"
    送信パスワード。Yahoo! JAPANのログインパスワード。
  7. 22行目
    		.Item(cdoSendUserName).Value = "***@yahoo.co.jp"
    送信ユーザー名。Yahoo! JAPANのメールアドレス。
  8. 24行目
    		.Item(cdoSMTPConnectionTimeout).Value = 100
    タイムアウト時間(秒)。
  9. 25行目
    		.Item(cdoSMTPAuthenticate).Value = 1
    認証メカニズムを指定。
  10. 26行目
    		.Item(cdoSMTPServer).Value = "smtp.mail.yahoo.co.jp"
    送信メール(SMTP)サーバー名。Yahoo! JAPANは「smtp.mail.yahoo.co.jp」。
  11. 27行目
    		.Item(cdoSMTPServerPort).Value = 465
    送信メール(SMTP)ポート番号。
  12. 28行目
    		.Item(cdoSMTPUseSSL).Value = True
    SSLを使用。
  13. 29行目
    		.Update
    設定内容を更新します。
  14. 31行目
    	.Send
    メッセージを送信します。

参考文献

  1. From Property | Microsoft Docs https://docs.microsoft.com/ja-jp/previous-versions/exchange-server/exchange-10/ms527318(v%3Dexchg.10)