【发布时间】:2010-12-21 15:19:10
【问题描述】:
我的应用程序使用以下功能发送电子邮件。
函数 SendHTMLEMail (strFrom, strTo, strCC, strSubject, strBodyHTML)
' 创建 NewMail 对象
设置 objNewMail = Server.CreateObject("CDONTS.NewMail")
' 设置发件人和收件人(后者可以是 ';' 分隔的列表)
objNewMail.From = strFrom
objNewMail.To = "abc@xyz.com"
objNewMail.Cc = "def@stu.com"
' 设置电子邮件主题
objNewMail.Subject = strSubject
' 构造和设置邮件正文
strHTMLStart = "" & strSubject & ""
strHTMLEnd = ""
objNewMail.Body = strHTMLStart & strBodyHTML & "
To : " & strTo & "
CC :" & strCC & strHTMLEnd
' 将参数设置为正常重要性 MIME 编码和 HTML 格式的电子邮件
objNewMail.Importance = 1 '9-低,1-正常,2-高
objNewMail.BodyFormat = 0 '0-HTML, 1-文本
objNewMail.MailFormat = 0 '0-MIME, 1-文本
' 立即发送电子邮件
objNewMail.Send
' 释放 NewMail 对象
设置 objNewMail = 无
结束函数
我不希望自动发送电子邮件。它应该在 Outlook 中打开并允许我对其进行编辑。
任何人都可以帮助我更改我应该在代码中放入的更改,以便电子邮件打开而不是自动发送吗?
数据来自一个经典的asp页面,上面的函数在utils.inc中
【问题讨论】:
-
我想这样做的原因:应用程序向相关用户发送自动电子邮件。由于邮件格式相同,我们需要在发送邮件前添加一些文字。
标签: asp-classic .net-1.1 visual-studio-2003