SmtpMail 邮件操作

CreateObject("WWSCommon.SmtpMail")

该组件实现了SMTP协议发送邮件的功能，支持多个附件，并支持多个邮件地址群发。

属性

属性	说明
SenderName	发件人名称
SenderAddress	发件人邮件地址
Priority	邮件等级，有3个值可选 4 , 3, 2 分别表示 低、中、高三个等级
Subject	邮件标题
Mailer	设置邮件的Mailer信息

方法

方法	说明
AddReceiver	添加收件人地址
AddBCCRecipient	添加抄送人邮件地址 例如 mail.AddBCCRecipient("master@sina.com"),抄送人地址将是其他收件人看不到的
AddCCRecipient	添加抄送人邮件地址
AddTextContent	邮件中添加文本内容 例如 mail.AddTextContent("金字塔你好")
AppOctStrmContent	添加附件 例如 mail.AppOctStrmContent("c:\abc.txt")
Sender	开始发送邮件. 返回值：若成功返回1 失败返回0

示例

Sub mail()
    '实例化smtpmail对象
    Set smtpmail=CreateObject("wwscommon.smtpmail")

    '发件人信息
    smtpmail.sendername="jzt_mail"
    smtpmail.senderaddress="888888@139.com"
    smtpmail.subject="交易预警" 
    
    '收件人信息    
    Call smtpmail.addreceiver("666666","666666@139.com")
    Call smtpmail.AddTextContent("金字塔-无所不能")

    '执行发送邮件方法
    Call smtpmail.sender("smtp.139.com","888888@139.com","888888")    
End Sub