jmail寄信範例

[joe]

文章已刪除

[joe]

郵件主機需驗證範例，使用此範例請務必先再您的郵件管理介面開啟一各郵件帳號
<%
dim username, e_mail, tel, memo
username=Trim(request("username"))
e_mail=Trim(request("e_mail"))
tel=Trim(request("tel"))
memo=Trim(request("memo"))
%>

<%
Set msg=Server.CreateObject("Jmail.Message")
msg.silent=true
msg.Logging = true
msg.Charset = "BIG5"
msg.ContentType = "text/html"
msg.MailServerUserName = "xxxx@yourdomain.com"'您於本公司MAIL主機上的帳號如joe@abc.com請確定你已經有在MAIL主機上新增帳號
msg.MailServerPassword = "xxxx"'您於本公司MAIL主機上的帳號的密碼
msg.From = "xxxxx@yourdomain.com"'寄件人
msg.FromName = "威博達網路科技"'寄件人名稱
msg.AddRecipient e_mail'收件人
msg.Subject = "主旨"
Body= "連 絡 人：" & username & "
連絡電話：" & tel & "
電子郵件：" & e_mail & "
連絡事項：" & memo '郵件主要內容
msg.Body = Body
msg.Send ("mail.yourdomain.com")'您於本公司mail主機的位置，通常為mail.您的域名，如mail.abc.com
set msg = nothing
%>
<%
session.abandon
response.write "<script language=JavaScript>" & chr(13) & "alert('您的資料已發送成功 謝謝。');" & "location.assign('form.htm')" & "</script>"
Response.End
%>

[aaronchen]

<%
Sub Send_JMail()
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ISOEncodeHeaders = False
JMail.Charset = "BIG5"
JMail.ContentType = "text/html"
JMail.Logging = True
JMail.ServerAddress="[color="Red"]ms1.sparqnet.net[/color]"
JMail.Sender = "XXXXXXXX網站"
JMail.Subject = "XXXXXXXX網站-來訪者連絡事項"
JMail.AddRecipient "tea@ms82.url.com.tw"
JMail.AddRecipient Request("e_mail")
Body= "連 絡 人：" & username & " " & bg & "
公司名稱：" & coname & "
連絡電話：" & phone & "
連絡傳真：" & fax & "
行動電話：" & zip & " 地址：" & addr & "
電子郵件：" & e_mail & "
說明：" & memo '郵件主要內容
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing
End Sub
%>

[joe]

<%
Sub Send_JMail()
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ISOEncodeHeaders = False
JMail.Charset = "BIG5"
JMail.ContentType = "text/html"
JMail.Logging = True
JMail.ServerAddress="[color="Red"]ms1.sparqnet.net[/color]"
JMail.Sender = "XXXXXXXX網站"
JMail.Subject = "XXXXXXXX網站-來訪者連絡事項"
JMail.AddRecipient "tea@ms82.url.com.tw"
JMail.AddRecipient Request("e_mail")
Body= "連 絡 人：" & username & " " & bg & "
公司名稱：" & coname & "
連絡電話：" & phone & "
連絡傳真：" & fax & "
行動電話：" & zip & " 地址：" & addr & "
電子郵件：" & e_mail & "
說明：" & memo '郵件主要內容
JMail.Body = Body
JMail.Priority = 3
JMail.Execute
Set JMail = Nothing
End Sub
%>

請參考以下的回覆
http://forum.webdsn.net/showthread.php?t=888