Как отправить письмо?????????????

← →
Александр (2004-02-01 19:23) [0]

Немогу отправть письмо? Не подскажите не правильно
IdSMTP1.QuickSend("ramblre.ru","tema","winsmike@rambler.ru","sashadon@rambler.ru","text");

← →
Nigthevil (2004-02-02 23:13) [1]

IdSMTP1.QuickSend("smtp.ramblre.ru","tema","winsmike@rambler.ru","sashadon@rambler.ru","text");

Попробуй так! ;)

← →
Wm.DIGGER © (2004-02-03 08:09) [2]

Удалено модератором
Примечание: Дубль...

← →
Wm.DIGGER © (2004-02-03 08:09) [3]

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);
Вот и всё! и не каких IdSMTP1 ! :)))
Кстати, вот только сейчас подумал, по-мойму Rambler требует для отправки письма аутентификацию! (короче, отправить письмо может только тот кто у них зарегистрирован и при отправке вводит свой пароль ...)

← →
csr © (2004-02-03 11:35) [4]

А может лучше так попробуешь :))

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;

← →
Александр (2004-02-03 13:16) [5]

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:<sashadon@rambler.ru>" + #13 + #10);
ClientSocket.Socket.SendText("RCPT TO:<winsmike@rambler.ru>" + #13 + #10);
ClientSocket.Socket.SendText("DATA" + #13 + #10);
// ñîáñòâåííî ïèñüìî
ClientSocket.Socket.SendText("To: Òåáå <winsmike@rambler.ru>" + #13 + #10);
ClientSocket.Socket.SendText("From: Îò ìåíÿ <sashadon@rambler.ru>" + #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 – это длинная сообщения –количество символов в сообщении.
И ещё не знаете как присоединить файл к письму. Мне фактически нужно чтобы отправлялись не, сколько письма, сколько файлы.
СПАСИБО ВСЕМ!!!!!!!!!!!!!!!!

← →
Andersen © (2004-02-03 13:32) [6]

ClientSocket.Port := 25. Вот эту штуку менять бы не советовал

← →
able © (2004-02-03 16:12) [7]

>> 25 – это длинная сообщения –количество символов в сообщении.
орешник отдыхает :)

← →
Fay © (2004-02-03 17:45) [8]

25 - это орех 8)

← →
Александр (2004-02-04 08:39) [9]

А как насчёт того, сколько времени необходимо для отправки письма. Чёто ждал, ждал. А потом надоело и вырубил интернет, и прога сразу ошибку вывила???

← →
Digitman © (2004-02-04 09:20) [10]

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

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

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

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

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

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

← →
Александр (2004-02-05 10:57) [11]

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

← →
Александр (2004-02-05 11:01) [12]

И ещё нельзя ли как-нибуть зделать так, чтобы можно было бы узнать о том, когда отправка завершится, ну т.е. можно прекращать тратить деньги и разрывать связь с интернетом??????????

← →
Александр (2004-02-05 18:07) [13]

Удалено модератором
Примечание: Создание пустых сообщений ...

← →
Verg © (2004-02-05 18:26) [14]

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

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

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

← →
Александр (2004-02-06 07:59) [15]

Незнаю пишет ошибку Socket Error #11001

← →
Digitman © (2004-02-06 08:23) [16]

WSAHOST_NOT_FOUND = (WSABASEERR+1001);

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

← →
Александр (2004-02-07 17:49) [17]

Ну так как всётаки. Почему не работает7

> Александр
Поменяйте длину сообщения в строке ClientSocket.Port := 25; с 25 на... ну например 21... Чтобы поменьше отсылать... И тогда всё должно быть чуть по быстрее...

← →
Александр (2004-02-09 15:18) [19]

Походу дела через рамблер письма не отправить "smtp.rambler.ru" - не работает. Подскожите название каких нибуть других сервиров??????????

mail.ru
yandex.ru
hotmail.ru
.....
Продолжать...??

Надо писать так грамотем.
TIdSMTP.QuickSend(здесь работаюшей SMTP,"tema","winsmike@rambler.ru","sashadon@rambler.ru","text");

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

← →
Александр (2004-02-12 11:44) [22]

А так и писать hotmail.ru или там надо добавлять вроде
smtp или как??????????

Ты хоть знаеш, что такое серевер и его адресс? Ничего кроме адреса сервера писать ненадо. А какой у него адрес ты лучше должен знать. У каждого провайдера свой, посмотри в Mail клиенте.

Как отправить письмо????????????? Найти похожие ветки