Te envío parte de un código que he hecho hace poco para enviar mails utilizando el componente TNMSMTP; Está comentado, pero si tienes dudas ya dirás...
Código Delphi
[-]
NMSMTP.Host := EditHost.Text;
NMSMTP.PostMessage.Body.AddStrings(MemoCuerpo.Lines);
NMSMTP.PostMessage.FromAddress := EditFromAdress.Text;
NMSMTP.PostMessage.FromName := EditFromNAme.Text;
NMSMTP.PostMessage.ReplyTo := EditReplyTo.Text;
NMSMTP.PostMessage.Subject := EditSubject.Text;
if (EditDireccion.Text = '') then begin
end;
NMSMTP.PostMessage.ToAddress.Add(EditDireccion.Text);
NMSMTP.PostMessage.Attachments.Add(EditFichero.Text);
NMSMTP.Connect;
if (NMSMTP.Connected) then begin
try
NMSMTP.SendMail;
except
on E:Exception do begin
end; end; end else begin
end;
NMSMTP.Disconnect;
He retirado código que había entre medio para no entorpecer la comprensión de ésta parte, espero no haber quitado nada de más; Si hay algun error ya me lo dirás...