|
您可以在您的asp程序中使用如下函数来进行在线发信 以下为Jmail发送邮件的函数From发件人信箱 MailTo收件人Subject 主题Message发送内容 FUNCTION Send_Mail(FromMailToSubjectMessage) Dim JMail contentIdDomainUserNameTextContent Set JMail = ServerCreateObject(JMailMessage) Domain= 有效的邮件服务器地址 UserName=沙洋网络 发件人的名称 TextContent=请按HTML格式查看 文本内容 JMailCharset = gb 邮件字符集默认为USASCII 发送者信息（可用变量方式赋值） JMailFrom = From JMailFromName = UserName JMailSubject = Subject 设置优先级范围从到越大的优先级越高为普通 JMailPriority = JMailAddHeader OriginatingIP RequestServerVariables(REMOTE_ADDR) 加入一个收件人【变量email收件人地址】可以同一语句重复加入多个 JMailAddRecipient(MailTo) 邮件主体（HTML(注意信件内链接附件的方式)） JMailHTMLBody = Message 邮件主体（文本部分） JMailBody = TextContent 发送【调用格式objJMailSend([username:password@]SMTPServerAddress[:Port])】 JMailSend(Domain) 关闭并清除对象 JMailClose() Set JMail = Nothing END FUNCTION 以下是调用此函数的方法其中是发件人是收件人 Call Send_Mail(TestThis is test mail!) |
