Spire.Email 教程2：如何在C＃，VB.NET 中发送批量电子邮件

工具：Spire.Email for .NET

代码演示：

Step 1:创建MailMessage类的实例并指定发件人和收件人。

MailMessage message1 = new MailMessage("[e-mail]", "[e-mail]");MailMessage message2 = new MailMessage("[e-mail]", " [e-mail]");MailMessage message3 = new MailMessage("[e-mail]", " [e-mail]");

Step 2:设置消息的主题和正文。

message1.Subject = message2.Subject = message3.Subject = "Subject";message1.BodyText = message2.BodyText = message3.BodyText = "This is body text.";

Step 3:初始化MailMessageCollection类的对象，并将MailMessage类的实例添加到对象中。

List msgs = new List();msgs.Add(message1);msgs.Add(message2);msgs.Add(message3);

Step 4:使用主机，端口，用户名和密码创建SmtpClient实例，并使用SendSome方法发送批量的电子邮件。

SmtpClient client = new SmtpClient();client.Host = "smtp.outlook.com";client.Port = 587;client.Username = "[e-mail]";client.Password = "password";client.ConnectionProtocols = ConnectionProtocols.Ssl;client.SendSome(msgs);Console.WriteLine("Message sent");

完整代码：

[C#]

MailMessage message1 = new MailMessage("[e-mail]", "[e-mail]");MailMessage message2 = new MailMessage("[e-mail]", " [e-mail]");MailMessage message3 = new MailMessage("[e-mail]", " [e-mail]");message1.Subject = message2.Subject = message3.Subject = "subject";message1.BodyText = message2.BodyText = message3.BodyText = "This is body text.";List msgs = new List();msgs.Add(message1);msgs.Add(message2);msgs.Add(message3);SmtpClient client = new SmtpClient();client.Host = "smtp.outlook.com";client.Port = 587;client.Username = "[e-mail]";client.Password = "password";client.ConnectionProtocols = ConnectionProtocols.Ssl;client.SendSome(msgs);Console.WriteLine("Message sent");

[VB.NET]

Dim message1 As New MailMessage("[e-mail]", "[e-mail]")Dim message2 As New MailMessage("[e-mail]", " [e-mail]")Dim message3 As New MailMessage("[e-mail]", " [e-mail]")message1.Subject = InlineAssignHelper(message2.Subject, InlineAssignHelper(message3.Subject, "subject"))message1.BodyText = InlineAssignHelper(message2.BodyText, InlineAssignHelper(message3.BodyText, "This is body text."))Dim msgs As New List(Of MailMessage)()msgs.Add(message1)msgs.Add(message2)msgs.Add(message3)Dim client As New SmtpClient()client.Host = "smtp.outlook.com"client.Port = 587client.Username = "[e-mail]"client.Password = "password"client.ConnectionProtocols = ConnectionProtocols.Sslclient.SendSome(msgs)Console.WriteLine("Message sent")

慧都控件网

---