Hoi allen,
Ik heb een heel raar probleem. Ik ben al dagen bezig om dit probleem op te lossen, maar tevergeefs.
ik wil een mail verzenden met TidSMTP en TIdMessage (indy versie 10.1.5). Alles werkt prima, maar de email die ik krijg, bevat geen onderwerp
Het is heel raar.
Code:MailMessages.Recipients.EMailAddresses := edtadrs.text; With MailMessages.Body Do Begin Clear; Add('Ls,'); Add(Body.Text); End; MailMessages.Subject := edtSubject.Text; try try SMTP.Connect('xxx.xx.nl',25); SMTP.Send(MailMessages) ; except on E:Exception do //todo: Write msg to log file end; finally if SMTP.Connected then SMTP.Disconnect; end;
Bookmarks