![]() |
#6 |
Участник
|
Пробую на mail.ru
урезал до минимума Код: SMTPServer := 'smtp.mail.ru'; UserName := 'hexersoft'; Password := '######'; CREATE(Mail); Mail.From := 'hexersoft@mail.ru'; Mail.FromName := 'hexersoft@mail.ru'; Mail.Subject := 'Subject'; Mail.AddRecipient('k0al1984@mail.ru'); Mail.MailServerUserName := UserName; Mail.MailServerPassWord := Password; IF NOT Mail.Send(SMTPServer,FALSE) THEN MESSAGE(Mail.ErrorMessage()); |
|