<%
function SendMyMail(mailbody)
    From = owner&"@
    Reciever= tobe&"@
    MailBody=MailBody & "@message='helleo," & Chr(13) & Chr(13)
    MailBody=MailBody & "Please be informed that there is some barcode transfered to you,please visit htt://hzmot/m-track/transfer.asp to take some action"
    MailBody=MailBody & Date() & Chr(13) & "'"
 dim objSendMail
 set objSendMail = CreateObject("JMail.SMTPMail")
 objSendMail.silent = true
 objSendMail.logging = true
 objSendMail.ServerAddress= "hzexch01.
 objSendMail.Sender= From
 objSendMail.C
 objSendMail.Subject="M-Track system information"
 objSendMail.AddRecipient Reciever
 objSendMail.Charset = "gb2312"
 objSendMail.Body = MailBody
 objSendMail.Priority=1
 
 objSendMail.execute
 set objSendMail = nothing
   
end function
%>

很多mail服务器必须验证用户后才可以发邮件。应该在jmail里加上发件人验证，具体可以查查jmail说明.