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

Вниз

Отправить Письмо (Имея только E-mail)   Найти похожие ветки 

 
Dennisius   (2004-06-16 14:53) [0]

Здрасти мастера нужн отправлять письма не зная заранее куда
имея один только E-mail который вводиться в Edit,
раньше я отправлял изпользую NMSMTP, но в данном случае он не подходит. Подскажите как это можно реализовать.


 
Anatoly Podgoretsky ©   (2004-06-16 15:01) [1]

Используй TNMSMTP и Edit,


 
Dennisius   (2004-06-16 15:04) [2]


> Anatoly Podgoretsky ©   (16.06.04 15:01) [1]
> Используй TNMSMTP и Edit,


А как же устанавка предворительного подключения к серверу ???


 
Anatoly Podgoretsky ©   (2004-06-16 15:16) [3]

А зачем?


 
Dennisius   (2004-06-16 15:56) [4]


> А зачем?


with NMSMTP1 do
begin
 Host:="smtp.yandex.ru";
 Port:=25;
 UserID:="test";
 Connect;
 if not connected then StatusCaption.Caption:="Операция неудачна, попробуйте еще раз"
                  else
  begin
   ClearParams:=true;
   PostMessage.FromAddress:="dennisius@yandex.ru";
   PostMessage.FromName:=diller;
   PostMessage.ToAddress.Text:="test@yandex.ru";
   PostMessage.Body.AddStrings(Memo1.lines);
   PostMessage.Date:=DateToStr(Date);
   PostMessage.Subject:="test";
   PostMessage.ReplyTo:="dennisius@yandex.ru";
   NMSMTP1.SendMail;
   NMSMTP1.Disconnect;
  end;
end;


Без этого кода :
 
 Host:="smtp.yandex.ru";
 Port:=25;
 UserID:="test";
 Connect;


используя SendMail; Ошибка : Not Connected


 
Dennisius   (2004-06-16 17:02) [5]

Все РАЗОБРАЛСЯ такую чушь нес :((( самому стыдно


 
Dennisius   (2004-06-17 17:02) [6]


> PostMessage.FromAddress:="dennisius@yandex.ru";


Но все-таки странно если в этой строке E-mail адрес не принадлежит серверу с которым соеденяюсь

>  Host:="smtp.yandex.ru";


то ошибка 503 5.5.2 , кто нибудь обяснит в чем дело ?????????


 
Dennisius   (2004-06-17 17:08) [7]

Кстати еще один казус пробую отправить несколько копий :

PostMessage.ToAddress.Text:=Email2Edit.Text;
PostMessage.ToCarbonCopy.Text:=EmailEdit.Text;


Ошибки не дает но вторая копия не приходит (проверял)

мастера уважительно-убедительная просьба ПОМОГИТЕ !!!!!!!!!!!



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

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

Наверх




Память: 0.48 MB
Время: 0.212 c
1-1091199487
Studentik
2004-07-30 18:58
2004.08.15
Стиль XP в WinXP


14-1091028135
Anatoly Podgoretsky
2004-07-28 19:22
2004.08.15
Фотографии лунных экспедиций, очень много


6-1086865103
alexdosh
2004-06-10 14:58
2004.08.15
SNMP


1-1091434395
AlexXn
2004-08-02 12:13
2004.08.15
Есть последовательност чисел 1, 2, ... , n


4-1080805108
shiller
2004-04-01 11:38
2004.08.15
Скрытие процесса в NT