|
|
#1 |
|
Участник
|
зарегил библиотеку,
написал код для отправки сообщения, обычный без атача.. запускаю пишет: The message was undeliverable. All servers falied to receive the message. Я думаю что выполняет он отправку от клиента!!!!! А как быть с тем, что все в Нет лезут через прокю! |
|
|
|
|
#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; |
|
|
|
|
#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. |
|
|
|
|
#4 |
|
Участник
|
Не понимаю, у меня не выходит
|
|
|
|
|
#5 |
|
MCTS
|
Возможно проблема в самом сервере. Попробуйте на точно работающем mail.ru.
|
|
|
|
|
#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()); |
|
|