Einzelnen Beitrag anzeigen

exilant

Registriert seit: 28. Jul 2006
134 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#10

AW: EMail-Versand via SMTP/Mapi

  Alt 29. Jun 2016, 16:15
Nach erfolgreichem Versand kopiert die Anwendung die generierte EMail in den "gesendet" Ordner des entsprechenden IMAP Kontos. Dazu reicht die Indy Funktionalität locker aus.
Ist zwar nicht mein Thread...aber
hast du noch einen paar Stichworte zum Speichern mit Indy!

Frank
Schnell aus dem Kopf:

Delphi-Quellcode:

function CopyToImapFolder(msg:TIdMessage; imapHost,imapFolder,imapUser,imapPassword:string):boolean;
begin
    result := false;
    i4 := TIdIMAP4.Create(NIL);
    try
      i4.Host := imapHost;
      i4.Password := ImapPassword;
      i4.Username := ImapUser;
      if i4.Connect() then begin
        result := i4.AppendMsg(imapfolder,msg,NIL,[mfseen]);
        i4.disconnect();
      end;
    finally
      i4.free;
    end;
end;
hth
Martin
Anything, carried to the extreme, becomes insanity. (Exilant)
  Mit Zitat antworten Zitat