-1

我的目标是加快发送电子邮件的过程，因为当收件人列表很大时，仅使用 1 个电子邮件帐户发送会延迟很长时间。

然后我有一个带有多个电子邮件帐户的 txt 文件，每行等于：

  • smtp.company.fr | 营销@company.fr | 电子邮件通行证| 587

然后我想创建一个等于这个txt文件的行数的线程数（如果大于它，会导致错误:-)）在“|”之间传递每个信息 分隔符作为每个线程的参数。

所有电子邮件收件人都将出现在唯一的Memo（逐行）中，并且我的应用程序不必在已发送后将相同的消息发送给同一收件人。

我有一个关于如何创建多个线程的示例，但我不知道如何将这些参数传递给创建的每个线程：

type 
   TMyThread = class(TThread) 
   private 
   protected 
      procedure Execute; override; 
   public 
      constructor Create; 
   end; 

constructor TMyThread.Create; 
begin 
   inherited True; 
   FreeOnTerminate := True; 
   Priority := tpNormal; 
end; 

//=================================================================

var 
   I: Integer; 
   MyThreadList: array [0..2] of TMyThread; // creates two threads
begin 
   for I := 0 to High(MyThreadList) do 
   begin 
      MyThreadList[I] := TMyThread.Create(True); 
      MyThreadList[I].FreeOnTerminate := True; 
      MyThreadList[I].Priority := tpNormal; 
      MyThreadList[I].Resume; 
   end; 
end;

此外，如果存在一些更好的想法来加快仅使用 1 个电子邮件帐户发送电子邮件的过程，将受到欢迎。

4

1 回答 1

1

要将参数传递给线程，只需将输入参数添加到TMyThread的构造函数。可以作为单独的string值（Host、Port、Username、Password等），也可以作为 aTStringList或 a record，无论您愿意传递什么。然后，构造函数可以将数据保存在类的成员中，Execute()以便根据需要使用。在这方面，线程的工作方式与任何其他类没有任何不同。只有Execute()在与构造函数不同的上下文中运行。

我建议您使用带有几个线程安全列表的线程池。一份 SMTP 提供商列表和一份收件人列表。创建一个线程池，其线程数与已安装的 CPU 数相同（如果超过发送到的收件人数）。

然后每个线程可以执行以下操作：

  1. 从收件人列表中提取收件人。或者少数，因为可以一次将一封电子邮件发送给多个收件人，特别是如果多个收件人位于同一个电子邮件域中。如果没有可用的收件人，请退出。

  2. 然后，从提供程序列表中提取一个空闲的 SMTP 提供程序。如果尚未连接到它，请根据需要连接并登录。

  3. 然后，向收件人发送电子邮件。

  4. 然后，将 SMTP 提供程序放回提供程序列表中（或者，将其一直保留在列表中，并将其标记为空闲）。保持连接打开，这样另一个线程（甚至同一个线程）可以在下一次迭代中使用同一个连接。

  5. 回到#1。

所有线程完成后，根据需要进行清理。

现在，话虽如此，请注意 SMTP 提供商以多种方式阻止垃圾邮件发送者，包括：

  • 仅将已知的良好发件人列入白名单，例如其他合法的 SMTP 提供商。您可以使用自己的电子邮件提供商的 SMTP 服务器发送电子邮件，但您不能总是直接将电子邮件发送到收件人的 SMTP 服务器（如果他们与您在不同的电子邮件提供商上）。

  • 限制您可以同时打开多少个 TCP 连接

  • 限制您一次可以发送多少封电子邮件

  • 限制您在给定时间段内可以发送的电子邮件数量

  • 限制您发送电子邮件的频率。

再多的线程也不会让你超越这些限制。如果有的话，您通常需要支付额外费用才能删除它们。

处理这种情况的最佳方法是设置一个在线邮件列表（例如使用 Yahoo Groups），然后您可以将 1 封电子邮件发送到 1 个地址，并让邮件列表提供商为您分发电子邮件给订阅的会员。

于 2017-10-04T22:02:02.690 回答