kyran29

"Как можно реализовать выше изложенное."
Можно за денежку - тогда вопрос в оплате )

если хочешь по другому -
тогда вопрос в получении навыка отправки )

IdSMTP.Host := MyHost;
 IdSMTP.Port := MyPort;
 IdSMTP.UserName := MyUser;
 IdSMTP.ConnectTimeout := 10000;
 IdSMTP.Connect;
     with IdMsg do
     begin
       From.Text := MyFromEmail;
       ReplyTo.EMailAddresses := MyFromEmail;
       Recipients.EMailAddresses := MyToEmail;
       ReceiptRecipient.Text := '';
       MessageParts.Clear;
       TIdAttachmentFile.Create(MessageParts, MyFile);
       Subject := MySubject;
     IdSMTP.Send(IdMsg);
   end;