邮件问题啊 简单邮件发送需要服务器验证

[mmiiaaoo]

大家能否给我事例 vb版啊


大出血啊 全压上50分 别说分少
我就怎么点啊
大家救命要紧啊

[carper]

vb.net 写的没有，C# 倒有一个，懒得转换了。

/// <summary>
/// 使用远程需要密码验证的mail服务器发送Email的函数
/// </summary>
/// <param name="strSmtpServer">远程服务器名</param>
/// <param name="strFrom">默认发送人</param>
/// <param name="strFromPass">发送人验证密码</param>
/// <param name="strto">发送到</param>
/// <param name="strSubject">主题</param>
/// <param name="strBody">内容</param>
/// <permission cref="System.Security.PermissionSet">private</permission>
private static void SMTPSendMail(string strSmtpServer,string strFrom,string strFromPass,string strto,string strSubject,string strBody)
{
MailMessage myMail=new MailMessage();
myMail.From = strFrom;
myMail.To = strto;
myMail.Subject = strSubject;
myMail.Priority = MailPriority.Low;
myMail.BodyFormat = MailFormat.Text;
myMail.Body = strBody;
// 每个值对应说明看：
//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_cdoconfiguration_module.asp
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/sendusing"] = 2;
//如果用smtp Server用外部的，请您把SendUsing设为2，内部设为1
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/sendemailaddress"] = strFrom;
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/smtpaccountname"] = strFrom;
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/sendusername"] = strFrom;
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/sendpassword"] = strFromPass;
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"] = 1;
//value=0 代表Anonymous验证方式（不需要验证）
//value=1 代表Basic验证方式（使用basic (clear-text) authentication.
//The configuration sendusername/sendpassword or postusername/postpassword fields are used to specify credentials.）
//Value=2 代表NTLM验证方式（Secure Password Authentication in Microsoft Outlook Express）
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/languagecode"] = 0x0804;
myMail.Fields["http://schemas.microsoft.com/cdo/configuration/smtpserver"] = strSmtpServer;
SmtpMail.Send(myMail);
}

[mmiiaaoo]

申明服务器不是本机啊

[cnhgj]

帮你转成VB的

public sub SMTPSendMail(strSmtpServer as String,strFrom as string strFromPass as string,strto as string,strsubject as string,strBody as string)
dim myMail as MaiMessage = new MailMessage
myMail.From = strFrom
myMail.To = strto
MyMail.Subject = strSubject
myMail.Priority = Mailpriority.Low
myMail.BodyFormat = MailFormat.Text
myMail.Body = strBody
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = strFrom
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = strFrom
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = strFrom
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strFromPass
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = 0x0804
myMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
SmtpMail.Send(myMail)
end sub

[mmiiaaoo]

("http://schemas.microsoft.com/cdo/configuration/smtpserver")
什么意思啊

[mmiiaaoo]

0x0804
什么意思啊
我做了出现代码错误啊
那用什么代码呢

[mmiiaaoo]

Dim objmailmessage As New MailMessage
Dim from As String
from = "[e-mail]"
objmailmessage.From = from
objmailmessage.To = TextBox2.Text
objmailmessage.Subject = "欢迎成为浙东商务网的会员,下面是你的登陆密码！你可以在我的办公室里修改密码!"
objmailmessage.Body = "请以" & "ID:" + TextBox1.Text + ",密码:" + strpasswd + ",登录浙东商务网"
'objmailmessage.BodyFormat = MailFormat.Html


objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'如果用smtp(Server用外部的, 请您把SendUsing设为2, 内部设为1)
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = from

objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = from
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = from
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/cdoSMTPServerPort") = 25
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "8833633"
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'value=0 代表Anonymous验证方式（不需要验证）
'value=1 代表Basic验证方式（使用basic (clear-text) authentication.
'The configuration sendusername/sendpassword or postusername/postpassword fields are used to specify credentials.）
'Value=2 代表NTLM验证方式（Secure Password Authentication in Microsoft Outlook Express）
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = " 0x0804"
objmailmessage.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "zdsw.com.cn"




SmtpMail.Send(objmailmessage)

[ArLi2003]

http://www.zpcity.com/arli/commonprj/cls_Mail.cs

ps: 0x0804 是语言代码，过去是没有内置const 的，都是自己const 或者 incude *.h 文件，所以有些人直接用int 值

[mmiiaaoo]

你的控件我已经使用过了啊
怎么不行啊

[Surpass]

友情UP

[waki]

使用这种方式实现有缺陷的，它的前提条件是邮件服务器上安装的是MS的EXCHANGE，这样才可以使用它的CDO对象来进行验证。而现在网上大部分的邮件服务器都装的不是这个，所以实际上是不可行的。除非是在企业应用中。
可以使用我做的邮件发送控件，支持验证，发送附件，可以使用VB或者C#语言调用。还可以得到我以后的更新升级。下载地址：www.aspxcontrol.com