Тема: JMail
Показать сообщение отдельно
Старый 10.11.2008, 09:26   #6  
by_HT is offline
by_HT
Участник
 
195 / 10 (1) +
Регистрация: 12.10.2007
Пробую на 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());
Через файл написанный на VB, отправляет! JMailExample.vbs