Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c
3-1089966024
Reindeer Moss Eater
2004-07-16 12:20
2004.08.15
Доступ к TCP/IP из PL/SQL


14-1090705135
Soft
2004-07-25 01:38
2004.08.15
Был установлен Линукс.


1-1091380968
dracula
2004-08-01 21:22
2004.08.15
for i:=1 to N do if S[i]= / then S[i]:= ;


4-1088692618
Интересующийся
2004-07-01 18:36
2004.08.15
Как узнать какие сет. карты установлены?


1-1091029870
denissoft
2004-07-28 19:51
2004.08.15
сохранить/загрузить Компонент




   Наверх