MyEmail 1.0°æÊ¹ÓÃ˵Ã÷
MyEmialÊÇÎÒ×Ô¼ºÐ´µÄÒ»¸öemail×é¼þ£¬ËµÊµ»°£¬½Ð1.0°æÓеã²ÑÀ¢£¬ÒòΪÓÐЩ
¹¦ÄÜ»¹Î´ÍêÉÆ£¬ÏÖÔÚµÄȱµãÊÇ»¹²»Ö§³Öhtml¸ñʽ£¬³Ëͼ°ÃÜËÍÖ»ÄÜÖ§³ÖÒ»¸öÓʼþ
µØÖ·£¬²»¹ýÎÒ½«ÔÚÒ»Á½ÌìÄÚÍê³ÉÕâЩ¹¦ÄÜ¡£
Õâ¸ö×é¼þ°üÀ¨ÒÔÏÂÊôÐÔ¼°·½·¨£º
ÊôÐÔ£º
MailServer : ÄãµÄÓʼþ·þÎñÆ÷£¬Ò²¿ÉÒÔÊÇIPÐÎʽ¡£
To: ÊÕ¼þÈË
From: ·¢¼þÈË
CC: ³ËÍ
BCC: ÃÜËÍ
Subject: Óʼþ±êÌâ
Body: ÓʼþÄÚÈÝ
Attachment: ¸½¼þ £¨Ä¿Ç°Ö»ÄÜ·¢ËÍÒ»¸ö¸½¼þ£©
IsHtml : ÊÇ·ñhtml¸ñʽ£¨Ä¿Ç°²»Ö§³Ö)
IfSuccess : ÊÇ·ñ³É¹¦
ErrText : ³ö´íÔÒò
·½·¨£º
Send() : ·¢ËÍÓʼþ
ÏÂÃæÊÇÒ»¸öÔÚaspÀïʹÓÃÕâ¸ö×é¼þµÄÀý×Ó¡£
<%@ Language=VBScript %>
<%
dim m_objMail
set m_objMail = server.CreateObject ("MyEmail.Email")
m_objMail.MailServer = "server1.domain"
m_objMail.From = "lyp@domain"
m_objMail.To = "lyp@domain"
m_objMail.Subject = "hello , just test my own email com "
m_objMail.Body = "just a text "
m_objMail.Attachment = "d:/bizen/getcategory.sql"
m_objMail.CC = "lyp@domain"
m_objMail.BCC = "lyp@domain"
//·¢ËÍ
m_objMail.Send ()
if m_objMail.IfSuccess then
Response.Write "·¢Ëͳɹ¦£¡"
else
Response.Write m_objMail.ErrText
end if
set m_objMail = nothing
%>
ÏÂÔØµØÖ·£ºhttp://homepage.qdcatv.com.cn/bigeagle/myemail.zip
bigeagle
bigeagle@163.net
http://bigeagle.yeah.net

