Save e-mail outbox

3

I would like to know if you can save an email in the outbox of the default email manager (Outlook, live mail, etc.) using Indy10.

Today I already have a function to send e-mail, but it calls the new e-mail screen of the manager for each message. This for a single email works fine, but if it is a mail merge it already gets bad as it will open a new window for each email.

Below is the routine for sending the email.

IdMessage.Clear;
IdMessage.Subject := 'Assunto teste';
idMessage.ContentType := 'multipart/mixed';;
IdMessage.Body.Text := 'texto do email';
AdicionarDestinario(IdMessage.Recipients, '[email protected]');

Arquivo := 'c:\emails\email.eml';
IdMessage.SaveToFile(Arquivo);

ShellExecute(0, 'open', PChar(Arquivo), '','', SW_SHOWNORMAL);
    
asked by anonymous 18.03.2016 / 19:03

0 answers