|
|
|
sub smtp(email,bt,nr)<br>Set objMail = Server.CreateObject("CDONTS.NEWMAIL")<br>With objMail<br>.From = my_email '邮件发件人的地址 <br>.To = email '邮件收件人的地址<br>.Subject =bt '邮件的标题<br>.Body =nr '邮件的内容<br>.MailFormat=0<br>.BodyFormat=0<br>.Send '执行邮件发送<br>End With<br>Set objMail = Nothing '关闭对象<br>
end sub<br>
<br>
上面的代码是针对IIS自带的SMTP的吧?<br>
现在,我用MD做的邮件服务器,要想实现相同的功能,代码该如何改?<br>
<br>
<br>
谢谢! |
|