Помогите отправить почту!!

← →
userrrrr (2005-08-23 20:59) [0]

помогите отправить писмо! рисую на форме IdSMTP, IdMessage и кнопку по нажатии на кнопку пишу
procedure TForm1.Button1Click(Sender: TObject);
var
Msg: TIdMessage;
begin
Msg.Subject:="тема сообщения";
Msg.Recipients.EMailAddresses:="qwerty@front.ru";
Msg.From.Adress:="qwerty@front.ru";
Msg.Body.Text:="текст сообщения";
IdSMTP1.Port:=25;
IdSMTP1.Host := "mail.pochta.ru";
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:="qwerty";
IdSMTP1.Password:="qwerty";
IdSMTP1.Connect(500);
if IdSMTP1.Connected
then IdSMTP1.Send(Msg);
end;
программа компилируется без проблем но потом возникает ошибка если сделать Trace into то это на строчке Msg.Subject:="тема сообщения"; если её убрать то потом на Msg.Recipients.EMailAddresses:="qwerty@front.ru"; если убрать все описание Msg то к smtp oн коннектится но письмо все равно не отправляется...

← →
Eraser © (2005-08-23 21:08) [1]

вставь вначале кода эту строку Msg := TIdMessage.Create;
...
не забудь потом освободить объект с пом. метода Free.

← →
userrrrr (2005-08-24 13:22) [2]

пишу Msg := TIdMessage.Create; а он мне Not enough actual parameters

← →
stone © (2005-08-24 13:31) [3]

> userrrrr (24.08.05 13:22) [2]
> пишу Msg := TIdMessage.Create; а он мне Not enough actual
> parameters

Конечно
TIdMessage.Create(Owner: TObject);

← →
userrrrr (2005-08-24 13:37) [4]

Owner: TObject это что???

← →
stone © (2005-08-24 13:45) [5]

> userrrrr (24.08.05 13:37) [4]
> Owner: TObject это что???

Указатель на владельца объекта, т.е. объект, при уничтожении которого твой TIdMessage будет автоматически уничтожен. В твоем случае им может являться форма (Form1). Соответствнно будет:
Msg := TIdMessage.Create(Form1);

← →
userrrrr (2005-08-24 14:15) [6]

спасибо а как освободить объект с пом. метода Free и зачем?

← →
stone © (2005-08-24 14:25) [7]

> userrrrr (24.08.05 14:15) [6]
> спасибо а как освободить объект с пом. метода Free и зачем?

Обычно это делается так:
Msg := TIdMessage.Create(Form1); try ... действия finally Msg.Free; end;

← →
userrrrr (2005-08-24 16:50) [8]

try finally обязательно? зачем это вообще надо и что означает? у меня подряд вроде работает:
Msg := TIdMessage.Create(Form1);
Msg.Subject:="тема";
...................
if IdSMTP1.Connected
а как присоеденить аттачмент из нескольких файлов вроде так но так только один файл
TIdAttachment.Create(Msg.MessageParts,"c:\file");
и можно ли какнибудь полегче средствами delphi их сжать?

← →
userrrrr (2005-08-24 20:59) [9]

ктонибудь ответит на мой вопрос пожалуйста!
msg.free; он пишет missing operator or semicolon

← →
userrrrr (2005-08-24 23:37) [10]

ну помогите-же...

>[9]
Перевод: не хватает точки с запятой в предыдущей строчке.
>[8]
try finally нужно писать тогда, когда не может предсказать появление ошибки.
в данном случае, на чужой почтовый сервер ты повлиять не можешь, а значит нужно защищаться от ошибок, которые он может (но не обязан) вызвать в твоей программе.

> userrrrr
Попробуй TNMSMTP он проще и легче.

Помогите отправить почту!! Найти похожие ветки