高难度问题，关于网页中采用winwebmail帐号发信验证问题。

李老实

1. <%
   
2. title = Trim(Request.Form("title"))
   
3. recadd = Trim(Request.Form("recadd"))
   
4. thtml = Trim(Request.Form("thtml"))
   
5. stradd = split(recadd,",")
   
6. For i = LBound(stradd) to UBound(stradd)
   
7. Next
   
8. 
   
9. If IsArray(stradd) Then
   
10. Set msg = Server.CreateObject("JMail.Message")
    
11. 
    
12. For i = LBound(stradd) to UBound(stradd)
    
13. 
    
14. msg.silent = true
    
15. msg.Logging = true
    
16. msg.Charset = "gb2312"
    
17. msg.MailServerUserName = "baiteng1223" ''此为您邮箱的登录帐号
    
18. msg.MailServerPassword = "baiteng1223" ''此为您邮箱的登录密码
    
19. msg.From = "baiteng1223@baiteng.com" ''发件人Email
    
20. msg.FromName = "系统自动发送" ''发件人姓名
    
21. msg.AddRecipient stradd(i) ''收件人Email
    
22. msg.Subject = title ''邮件主题
    
23. msg.ContentType = "text/html"
    
24. msg.Body = thtml ''邮件正文
    
25. msg.Send ("smtp.baiteng.com") ''SMTP服务器地址(关于这点,不同的提供商有不同的服务器)
    
26. msg.close()
    
27. 
    
28. Next
    
29. 
    
30. set msg = nothing
    
31. Response.Write "<SCRIPT language=JavaScript>alert('发送成功！');javascript:window.history.go(-1);</SCRIPT>"
    
32. End If
    
33. %>

复制代码

上面的代码是利用Jmail组件进行发送邮件的代码，其中要用到winwebmail的邮箱帐号。

现在产生的问题是，这段代码中：msg.From = "baiteng1223@baiteng.com" ''发件人Email地址必须是跟SMTP邮箱帐号地址完全相同才能发的出邮件，如果msg.From =“” 这里的值随便填写一个邮件地址的话，那么就绝对发不出去，无论你怎么改winwebmail的认证设置都不管用。

请问有什么办法能解决啊？因为我们开发的系统中发件地址是不可能完全不变的。

looboo

为什么你的发件人必须要随机而不固定下来呢？

coolglay

就是。。。楼主是不是要干什么WS的事情。。。哈哈。。

rayer

楼上说滴有道理