本ページには広告が含まれています。
メッセージの差出人（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使用関数
解説
参考文献
関連記事
- MailItem オブジェクト
- メールメッセージを表します。
- Items.Restrict メソッド (Outlook)
- MailItem.Attachments プロパティ (Outlook)
- MailItem.BodyFormat プロパティ (Outlook)
- MailItem.CC プロパティ (Outlook)
- MailItem.To プロパティ (Outlook)
- MailItem.HTMLBody プロパティ (Outlook)
- MailItem.Parent プロパティ (Outlook)
- MailItem.ReceivedTime プロパティ (Outlook)
- MailItem.SenderEmailAddress プロパティ (Outlook)