29.10.2008, 14:35 | #1 |
Участник
|
зарегил библиотеку,
написал код для отправки сообщения, обычный без атача.. запускаю пишет: The message was undeliverable. All servers falied to receive the message. Я думаю что выполняет он отправку от клиента!!!!! А как быть с тем, что все в Нет лезут через прокю! |
|
10.11.2008, 07:36 | #2 |
Участник
|
Что здесь не так? Ошибка таже в функции Send.
Код: SMTPServer := 'mail.tyumbit.ru'; UserName := 'byht'; Password := '######'; IF GUIALLOWED THEN window.OPEN('#1##########################################################'); IF GUIALLOWED THEN window.UPDATE(1,STRSUBSTNO(Text048,SMTPServer,UserName)); IF ISCLEAR(MailClient) THEN CREATE(MailClient); CREATE(Mail); Mail.From := 'byht@tyumbit.ru'; Mail.FromName := 'Description'; Mail.Subject := 'Subject'; Mail.AddRecipient('hexersoft@mail.ru'); IF GUIALLOWED THEN window.UPDATE(1,Text005); Mail.MailServerUserName := UserName; Mail.MailServerPassWord := Password; IF NOT Mail.Send(SMTPServer,FALSE) THEN MESSAGE(Mail.ErrorMessage()); IF GUIALLOWED THEN window.CLOSE; |
|
10.11.2008, 08:20 | #3 |
MCTS
|
Все работает.
Правда, я выкинул Код: IF GUIALLOWED THEN window.OPEN('#1##########################################################'); IF GUIALLOWED THEN window.UPDATE(1,STRSUBSTNO(Text048,SMTPServer,UserName)); IF ISCLEAR(MailClient) THEN CREATE(MailClient); ... IF GUIALLOWED THEN window.CLOSE; PS переменная mail у меня Message. |
|
10.11.2008, 08:31 | #4 |
Участник
|
Не понимаю, у меня не выходит
|
|
10.11.2008, 08:41 | #5 |
MCTS
|
Возможно проблема в самом сервере. Попробуйте на точно работающем mail.ru.
|
|
10.11.2008, 09:26 | #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()); |
|