Si se puede, utilizando el componente TNMSMTP, aquí tienes un ejemplo, los datos se toman de unos Edits en donde capturamos todo lo necesario.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
ExpFilter: TQRHTMLDocumentFilter;
begin
Form2 := TForm2.Create(nil);
try
ExpFilter := TQRHTMLDocumentFilter.Create('report.htm');
try
{Save to HTML}
Form2.Table1.Open;
Form2.QuickRep1.ExportToFilter(ExpFilter);
with SMTP do
begin
Host := HostEdit.Text;
UserID := USerEdit.Text;
PostMessage.ToAddress.Add(ToEmailEdit.Text);
PostMessage.FromAddress := FromEmailEdit.Text;
PostMessage.FromName := FromNameEdit.Text;
PostMessage.Body.Assign(BodyMemo.Lines);
PostMessage.Subject := SubjectEdit.Text;
PostMessage.Attachments.Add('report.htm');
Connect;
SendMail;
Disconnect;
end;
{Delete the finished HTML file}
DeleteFile('report.htm');
finally
ExpFilter.Free;
end;
finally
Form2.Free;
end;
end;
Un Saludo.