了解必要的属性及方法后,余下的部分接收使用者输入的Email,当成参数传给AddRecipient方法,然后根据需要填上其余属性,最后以Execute方法寄出。例如:
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.ServerAddress="202.96.144.48"
JMail.Sender="pagezone@dcb.swatou.com"
JMail.Subject="Here is the subject."
JMail.Body="Here is the body."
JMail.AddRecipient "pagezone@dcb.swatou.com"
JMail.AddAttachment "../images/logo.gif"
JMail.Priority=3
JMail.Execute
Set JMail=nothing