'调用说明：
strHTML = "" %26amp;chr(13) %26amp;chr(10) '这里需要加上两个"
strHTML = strHTML %26amp; " " %26amp;chr(13) %26amp;chr(10) 'chr(13)硬回车chr(10)软回车
strHTML = strHTML %26amp; "HELLO~!
" %26amp;chr(13) %26amp;chr(10)
strHTML = strHTML %26amp; "" %26amp;chr(13) %26amp;chr(10)
strHTML = strHTML %26amp; ""
smtpserver="mail.sh163.net:25"
sender="juliet@sh163.net"
subject="HEY!"
msg="" %26amp; strHTML %26amp; ""
mailto=email'收信人email
call SendMail(SMTPServer,sender,mailto,subject,msg)'调用函数
%