Отправка почты через Outlook в Delphi.

Простой пример отправки почты через программу написанную на Delphi. В интернете не смог найти более элегантного способа отправки писем, чтобы письма сохранялись в “Отправленных”. На форму надо поместить кнопку с кодом.

{$R *.dfm}
uses
ComObj;

var
OutlookApp, SpamNameSpace, MyLetter: OleVariant;

procedure TfmSender.btSendClick(Sender: TObject);
begin


try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;

try
SpamNameSpace := OutlookApp.GetNameSpace('MAPI');
MyLetter := OutlookApp.CreateItem(0);
MyLetter.To := 'to@email.ru';
MyLetter.HTMLBody := 'Body';
MyLetter.Subject := 'Subject ';
//MyLetter.DeleteAfterSubmit := True;
MyLetter.Send;
finally
end;
end;