发送邮件时，隐藏或更改“发信人”地址怎么实现？

[aiguo25]

我用以下代码发送电子邮件
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True
JMail.From = "[e-mail]" ' 发送者地址
JMail.FromName = "纬地科技" ' 发送者姓名
JMail.Subject = "您好!欢迎您注成为www.chilema.cn的会员" ' 邮件主题
JMail.MailServerUserName = "aiguo25"
JMail.MailServerPassword = "********"
JMail.Priority = 3
JMail.AddRecipient(rs("电子邮件"))
JMail.Body = rs("帐号") & ":您好!欢迎您注册成为www.chilema.cn的会员,您的帐号是:" & rs("帐号") & ",您的密码是:" & rs("密码") & ",请记住您的帐号和密码,谢谢"
JMail.Send("smtp.163.com")
JMail.Close()
Set JMail = Nothing

我想隐藏或者更改“发送者地址”怎么办啊？因为我是为公司做的，不能显示个人免费邮箱地址的。

[ydh1981]

JMail.From = "[e-mail]" ' 发送者地址

把它改掉就行了,不影响发送的.

[BillSmiph]

mark

[aiguo25]

ydh1981() :
不行，去掉后根本发送不出去

jmail.Message 错误 '8000ffff'

The message was undeliverable. All servers failed to receive the message

/dinning/dgetpassword.asp，行 38

[aiguo25]

不知道怎么隐藏，干脆不隐藏了