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 = 587
client.Username = "[e-mail]"
client.Password = "password"
client.ConnectionProtocols = ConnectionProtocols.Ssl
client.SendSome(msgs)
Console.WriteLine("Message sent")

慧都控件网

---