Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отправить письмо????????????? [D7, WinXP]

Страницы: 1 2 >
Александр © (2004-02-01 19:23:00)
Немогу отправть письмо? Не подскажите не правильно
IdSMTP1.QuickSend('ramblre.ru','tema','winsmike@rambler.ru','sashadon@rambler.ru','text');

Erik (2004-02-13 14:24:00) [1]
Ты хоть знаеш, что такое серевер и его адресс? Ничего кроме адреса сервера писать ненадо. А какой у него адрес ты лучше должен знать. У каждого провайдера свой, посмотри в Mail клиенте.

Александр (2004-02-12 11:44:00) [2]
А так и писать hotmail.ru или там надо добавлять вроде
smtp или как??????????

Erik (2004-02-10 12:17:00) [3]
Надо писать так грамотем.
TIdSMTP.QuickSend(здесь работаюшей SMTP,'tema','winsmike@rambler.ru','sashadon@rambler.ru','text');

QuickSend - это классовый метод и нетребует создания экзмпляра класса!

DeadMeat (2004-02-09 18:11:00) [4]
mail.ru
yandex.ru
hotmail.ru
.....
Продолжать...??

Александр (2004-02-09 15:18:00) [5]
Походу дела через рамблер письма не отправить 'smtp.rambler.ru' - не работает. Подскожите название каких нибуть других сервиров??????????

DeadMeat (2004-02-08 16:35:00) [6]
> Александр
Поменяйте длину сообщения в строке ClientSocket.Port := 25;с 25 на... ну например 21... Чтобы поменьше отсылать... И тогда всё должно быть чуть по быстрее...

Александр (2004-02-07 17:49:00) [7]
Ну так как всётаки. Почему не работает7

Digitman (2004-02-06 08:23:00) [8]
WSAHOST_NOT_FOUND = (WSABASEERR+1001);

запрос к DNS вернул результат : хост с указанным именем не найден

Александр (2004-02-06 07:59:00) [9]
Незнаю пишет ошибку Socket Error #11001

Verg (2004-02-05 18:26:00) [10]

> Nigthevil (02.02.04 23:13) [1]
> IdSMTP1.QuickSend('smtp.ramblre.ru','tema','winsmike@rambler.ru','sashadon@rambler.ru','text');

А чего так-то не получается?

Или все никак ramblre на rambler не можешь поменять?

Александр (2004-02-05 18:07:00) [11]
Удалено модератором
Примечание: Создание пустых сообщений ...

Александр (2004-02-05 11:01:00) [12]
И ещё нельзя ли как-нибуть зделать так, чтобы можно было бы узнать о том, когда отправка завершится, ну т.е. можно прекращать тратить деньги и разрывать связь с интернетом??????????

Александр (2004-02-05 10:57:00) [13]
Понимаешь Digitman ведь кодда отправляешь письмо непосредственно зайдя на rambler оно отправляется за 5-10 сек. Особенно если там напичатоно всего лишь несколько строчек. Почему же здесь так долго?
Ну да ладно! Сколько бы времени не потребовалось БУДИМ ЖДАТЬ.
Но вот ещё вопрос? Как прикрипить к письму ФАЙЛ?????????
Мне собственно не сколько письмо важно отослать (text), а ФАЙЛ????

Digitman (2004-02-04 09:20:00) [14]

> Александр (04.02.04 08:39) [9]
> А как насчёт того, сколько времени необходимо для отправки
> письма

никаких предположений на сей счет делать нельзя - сколько времени фактически потребуется на акт инф.обмена с smtp-сервером, столько и необходимо .. это м.б. и доля секунды, и десятки минут, и десятки суток, и ... до бесконечности ... пока не надоест ждать

> потом надоело и вырубил интернет

бедный-бедный интернет) ... надоело чего-то ждать - хрясь ! - и "вырубил" его

> прога сразу ошибку вывила

а что ты расчитывал еще увидеть-получить в результате "вырубания интернета" ?

Александр (2004-02-04 08:39:00) [15]
А как насчёт того, сколько времени необходимо для отправки письма. Чёто ждал, ждал. А потом надоело и вырубил интернет, и прога сразу ошибку вывила???

Fay (2004-02-03 17:45:00) [16]
25 - это орех 8)

able (2004-02-03 16:12:00) [17]
>> 25 – это длинная сообщения –количество символов в сообщении.
орешник отдыхает :)

Andersen (2004-02-03 13:32:00) [18]
ClientSocket.Port := 25. Вот эту штуку менять бы не советовал

Александр (2004-02-03 13:16:00) [19]
Nigthevil - твой чёто не работает

Попробовал я алгоритм Wm.DIGGER. Подключаю интернет запускаю программу:
ClientSocket.Host := 'smtp.rambler.ru';
ClientSocket.Port := 25;
ClientSocket.Active := true;

ClientSocket.Socket.SendText('HELO YouMailer' + #13 + #10);
ClientSocket.Socket.SendText('MAIL FROM:' + #13 + #10);
ClientSocket.Socket.SendText('RCPT TO:' + #13 + #10);
ClientSocket.Socket.SendText('DATA' + #13 + #10);
// ñîáñòâåííî ïèñüìî
ClientSocket.Socket.SendText('To: Òåáå ' + #13 + #10);
ClientSocket.Socket.SendText('From: Îò ìåíÿ ' + #13 + #10);
ClientSocket.Socket.SendText('Subject: Òåìà' + #13 + #10);
ClientSocket.Socket.SendText('Content-Type: text/plain; charset=Windows-1251' + #13 + #10);
ClientSocket.Socket.SendText('X-Priority: 1' + #13 + #10);
ClientSocket.Socket.SendText(' Ñîáñòâåííî òåêñò ïèñüìà ' + #13 + #10);
ClientSocket.Socket.SendText('.' + #13 + #10);
ClientSocket.Socket.SendText('QUIT' + #13 + #10);

Жду минут 5. Пока интернет бул подключен вроде все нормально. Как только интернет отключил, так он сразу ошибку выдаёт. Неужели ему больше 5-ти минут надо, чтобы отправить письмо длинной в 25 символов.
Кстати письмо так и не дошло!

Ещё вот че хотел спросить.
В строчке ClientSocket.Port := 25; 25 – это длинная сообщения –количество символов в сообщении.
И ещё не знаете как присоединить файл к письму. Мне фактически нужно чтобы отправлялись не, сколько письма, сколько файлы.
СПАСИБО ВСЕМ!!!!!!!!!!!!!!!!

csr (2004-02-03 11:35:00) [20]
А может лучше так попробуешь :))

uses
IdSMTP, IdMessage;

procedure SendMail(ASMTPHost, AFrom, ATo, AReplyTo, ASubject: string;
APriority: Integer; ACc, ABcc, Content: string; AWithRecipient: Boolean);
var
MsgSend: TIdMessage;
SMTP: TIdSMTP;

begin
MsgSend := TIdMessage.Create(nil);
SMTP := TIdSMTP.Create(nil);
try
with MsgSend do
begin
Body.Text := Content;
From.Text := AFrom;
ReplyTo.EMailAddresses := AReplyTo;
Recipients.EMailAddresses := ATo; { To: header }
Subject := ASubject; { Subject: header }
Priority := TIdMessagePriority(APriority); { Message Priority }
CCList.EMailAddresses := ACc; {CC}
BccList.EMailAddresses := ABcc; {BBC}
if AWithRecipient then
ReceiptRecipient.Text := From.Text {We set the recipient to the From E-Mail address }
else
ReceiptRecipient.Text := ''; {indicate that there is no receipt recipiant}
end;

SMTP.AuthenticationType := atNone;

//SMTP.Username := SmtpServerUser;
//SMTP.Password := SmtpServerPassword;

{General setup}
SMTP.Host := ASMTPHost;
SMTP.Port := 25;

{now we send the message}
SMTP.Connect;
try
SMTP.Send(MsgSend);
finally
SMTP.Disconnect;
end;
finally
MsgSend.Free();
SMTP.Free();
end;
end;

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »