Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

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

 
Александр   (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);
// &#241;&#238;&#225;&#241;&#242;&#226;&#229;&#237;&#237;&#238; &#239;&#232;&#241;&#252;&#236;&#238;
ClientSocket.Socket.SendText("To: &#210;&#229;&#225;&#229; <winsmike@rambler.ru>" + #13 + #10);
ClientSocket.Socket.SendText("From: &#206;&#242; &#236;&#229;&#237;&#255;  <sashadon@rambler.ru>" + #13 + #10);
ClientSocket.Socket.SendText("Subject: &#210;&#229;&#236;&#224;" + #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(" &#209;&#238;&#225;&#241;&#242;&#226;&#229;&#237;&#237;&#238; &#242;&#229;&#234;&#241;&#242; &#239;&#232;&#241;&#252;&#236;&#224; " + #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


 
DeadMeat ©   (2004-02-08 16:35) [18]

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


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

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


 
DeadMeat ©   (2004-02-09 18:11) [20]

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


 
Erik ©   (2004-02-10 12:17) [21]

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

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


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

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


 
Erik ©   (2004-02-13 14:24) [23]

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



Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.037 c
3-1080099460
Andy 1
2004-03-24 06:37
2004.04.18
Excel


4-1074765750
Vova_2004
2004-01-22 13:02
2004.04.18
прозрачный Static


6-1076919580
Leech
2004-02-16 11:19
2004.04.18
Передача файла средствами TCP/IP


3-1079574205
Sliski Slimak
2004-03-18 04:43
2004.04.18
Как избавиться от сортировки?


1-1080803620
ivc_andr
2004-04-01 11:13
2004.04.18
список в комбобоксе