vb点虐 电子邮件 vbs邮件送信

关于vb点虐 发送邮件附件的问题，大家帮忙！！！

相当多的邮件服务器不支持大附件，一般为32MB，网易的是50MB。参照链接：

10年积累的成都网站制作、网站建设经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站策划后付款的网站建设流程，更有南华免费网站建设让你可以放心的选择与我们合作。

所以发送失败未必是你代码的问题。很有可能是你服务器的问题。请找一个支持大附件的邮箱试一试，找不到的话看能不能把附件拆到32M以下，然后多次发送。

点虐 环境下五种邮件发

1、使用outLook提供的发送

如：我见过的通过调用outLook的ActiveX组件

优点：开发简单

缺点：依赖outlook组件，SMTP 邮件服务

2、WEB开发，在ASP.NET中引用System.Web.Mail类

System.Web.Mail 命名空间包含使您可以使用 CDOSYS（Windows 2000 的协作数据对象）消息组件来构造和发送消息的类。邮件消息是通过内置在 Microsoft Windows 2000 中的 SMTP 邮件服务或任意的 SMTP 服务器来传送的。此命名空间中的类可以在 ASP.NET 或任何托管应用程序

MailAttachment提供用于构造电子邮件附件的属性和方法。

MailMessage提供用于构造电子邮件的属性和方法。

SmtpMail提供用于使用 Windows 2000 的协作数据对象 (CDOSYS) 消息组件来发送消息的属性和方法。

邮件可以通过 Microsoft Windows 2000 中内置的 SMTP 邮件服务或任意 SMTP 服务器来传送。System.Web.Mail 命名空间中的类型可以在 ASP.NET 或任何托管应用程序使用。

Smtp服务器的设置，现在一些免费邮件提供商是不再提供针对所有邮件提供Smtp服务，在发送邮件的时候，需要验证用户信息，考虑Smtp用户验证问题

如果Smtp服务器在本地计算机，发送速度很快的，基本上不用担心，如果不是本地服务器，那么发送的时候最好不要以此太多，一是速度问题，二是以此发送太多邮件，Smtp服务器可能认为是垃圾邮件而拒绝服务

3、在VB.NET或C#开发Windows 应用程序中使用System.Net.Sockets

也是基于SMTP协议

一、SMTP协议简介

1、 客户端通过服务器的25端口建立TCP/IP连接

服务器端： 220 server点抗 Simple Mail Transfer Service Ready

2、 客户端使用“HELO”命令标识发件人

客户端：HELO server点抗

服务器端：250 server点抗

3、 客户端发送MAIL命令，服务器端以OK作为响应表明准备接收

客户端： MAIL FROM: A@B点抗

服务器端： 250 OK

4、 客户端发送RCPT命令标识收件人，服务器端回应是否愿意为收件人接受邮件

客户端：RCPT TO: c@d点抗

服务器端：250 OK

5、 协商结束后用命令DATA发送发送邮件

客户端：DATA

服务器端：354 Start mail input: end with CRLF.CRLF

6、 客户端以.表示结束输入内容一起发送出去

客户端：Subject: CRLF

内容CRLF

.CRLF

7、客户端用QUIT命令退出。

客户端：QUIT

服务器端：250 server点抗 closing transmission channel

优点：可以在此基础上开发出自己的组件，利用Sockets我们可以进行网络编程开发

缺点：程序量相对较多，

4、IIS SMTP自带的基本的发信组件CDONTS

你不必专门下载，微软已经提供了这个组件，只要安装了2000，NT的SMTP就会有的。

优点：组件由操作系统自带

缺点：功能比较差，可扩展性不强

5、使用JMail组件

Jmail具有以下特点：

（1）可以发送附件；

（2）详细日志能力，便于你查看问题所在；

（3）设置邮件发送的优先级；

（4）支持多种格式的邮件发送，比如说以HTML或者TXT的方式发送邮件。这是个免费的组件。

（5）密件发送/(CC)抄送/紧急信件发送能力；

（6）最关键的就是--免费的组件，不必发钱，所以非常值得使用。

如何用VB.Net收发邮件

在Identity2.0里面封装了IIdentityMessageService接口，可以用来发送接收邮件。

看看

Imports System.Threading.Tasks

Imports System.Security.Claims

Imports Microsoft.AspNet.Identity

Imports Microsoft.AspNet.Identity.EntityFramework

Imports Microsoft.AspNet.Identity.Owin

Imports Microsoft.Owin

Imports Microsoft.Owin.Security

public function SendAsync(message as IdentityMessage) as task

dim credentialUserName = "邮箱登录名"

dim sentFrom = "你的邮箱地址"

dim pwd= "邮箱登录密码";

dim client as new System.Net.Mail.SmtpClient("smtp服务器地址")

client.Port = 25'mtp邮件服务器端口

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

client.UseDefaultCredentials = false

dim credentials as new System.Net.NetworkCredential(credentialUserName, pwd)

client.EnableSsl = true

client.Credentials = credentials

dim mail as new System.Net.Mail.MailMessage(sentFrom, message.Destination)

mail.Subject = message.Subject

mail.Body = message.Body

return client.SendMailAsync(mail)

end function