您可以在您的asp程式中使用如下函數來進行線上發信

您可以在您的asp程式中使用如下函數來進行線上發信：
在伺服器支援Jmail的情況下:....................................
以下為Jmail發送郵件的函數From寄件者信箱 ,MailTo收件者,Subject 主題,Message發送內容：
FUNCTION Send_Mail(From,MailTo,Subject,Message)
Dim JMail, contentId,Domain,UserName,TextContent
Set JMail = Server.CreateObject("JMail.Message")
Domain="211.157.100.145" '有效郵件伺服器地址
UserName="沙洋網路" '寄件者的名稱
TextContent="請按HTML格式查看" '常值內容
JMail.Charset = "gb2312" ' 郵件字元集，預設為"US-ASCII"
' 寄件者資訊（可用變數方式賦值）
JMail.From = From
JMail.FromName = UserName
JMail.Subject = Subject
' 設定優先權，範圍從1到5，越大的優先順序越高，3為普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一個收件者【變數email：收件者地址】可以同一語句重複加入多個
JMail.AddRecipient(MailTo)
' 郵件主體（HTML(注意信件內連結附件的方式)）
JMail.HTMLBody = Message
' 郵件主體（文本部分）
JMail.Body = TextContent
' 發送【調用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send(Domain)
' 關閉並清除對象
JMail.Close()
Set JMail = Nothing
END FUNCTION
'以下是調用此函數的方法，其中chen@8q8.net是寄件者，your@mail.com是收件者
Call Send_Mail("chen@8q8.net","your@mail.com","Test","This is test mail!")