delphi jmail收邮件

原创于 2011-01-13 15:15:00 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #string

本文介绍了一段使用Delphi的JMail组件从POP3服务器上查找并删除指定主题邮件的代码实现。通过创建JMail对象并与邮件服务器建立连接，遍历邮件列表找到符合主题条件的邮件，并将其删除。

var
lCount:Integer;
count:Integer;
i:Integer;
subject:string;
body:string;
begin
try
    pop:=CreateOleObject('JMail.POP3');
    pop.Connect(MailUsername,MailPassword,PopHost,PopPort);
    pMessages:=CreateOleObject('jmail.messages');
    pMessages:=pop.Messages;
    pMessage:=CreateOleObject('jmail.message');
    lCount := pMessages.Count - 1;
   if(lCount > 0) then
    begin
      i:=1;
    while (i<=lCount) do
    begin
        pMessage:=pMessages.Item[i];
        subject:=pMessage.Subject;
     if (subject=DataSubject) then
     begin
          body := pMessage.Body;
          pop.DeleteSingleMessage(i);
          //i:=i-1;
          //lCount:=lCount-1;
     end;
        i:=i+1;
    end;
   end;
    finally
    begin
      pMessage.Close;
      pMessages.Clear;
      pop.Disconnect;

    end;
end;