用indy的stmp实现邮件的群发

最新推荐文章于 2025-03-10 16:32:39 发布

rznice

最新推荐文章于 2025-03-10 16:32:39 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： string exception function dll

本文链接：https://blog.youkuaiyun.com/rznice/article/details/7968063

delphi 专栏收录该内容

64 篇文章

订阅专栏

本文介绍了一个使用Indy10实现的群发邮件功能的DLL封装方法。该DLL接受邮件列表、主题及附件等参数，并通过163邮箱发送。文章详细展示了如何解析参数并设置邮件属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前段时间由于业务的需要，需封装一个能群发邮件的dll供系统调用。于是考虑到indy了。Indy 10 version 10.5.8.3。
调用者提供收信人列表（邮件之间用;分割），邮件主题，附件列表（附件之间用;分割）。
function sendmail(v_mails,v_subject,v_files:PAnsiChar):Integer;stdcall;
var
   idsmtp2: TIdSMTP;
   idmsg1: TIdMessage;
   IdEmailAddressItem: TIdEmailAddressItem;
   lst : TStringList;
   v_i:Integer;
begin
   idsmtp2:=TIdSMTP.Create(nil);
   idmsg1 :=TIdMessage.Create(nil);
   lst:=TStringList.Create;

   lst.Delimiter:=';';
   lst.DelimitedText:=string(v_mails);
    //添加收信人。
   for v_i := 0 to lst.Count-1 do
   begin
     if Trim(lst[v_i])<>'' then
     begin
       with idmsg1 do
       begin
         From.Name:='☆';
         From.Address:='☆@163.com';
         IdEmailAddressItem := Recipients.Add;
         IdEmailAddressItem.Address := lst[v_i]+'@163.com';
         IdEmailAddressItem.Name:=lst[v_i];
         Subject :=string(v_subject);
       end;
     end;
   end;
   lst.Clear;
   lst.Delimiter:=';';
   lst.DelimitedText:=string(v_files);
   //添加附件
   for v_i := 0 to lst.Count-1 do
   begin
     if FileExists(lst[v_i]) then
     begin
       tidattachmentFile.Create(idmsg1.MessageParts,lst[v_i]);
     end;
   end;

   idsmtp2.AuthType := satDefault;
   idsmtp2.Username :='☆☆';
   idsmtp2.Password :='☆☆☆';
   idsmtp2.Host := 'mail.163.com';
   idsmtp2.Port := 25;
   try
     idsmtp2.Connect;
     try
       idsmtp2.Send(idmsg1);
       Result:=1;
     finally
       idsmtp2.Disconnect;
     end;
   except
     on e:Exception do
     begin
       Result:=0;
     end;
   end;
end;