![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправка писем [D2005]
Петюха © (2006-08-05 02:04:00)Я пытаюсь отправить письмо на почту, с помощью DELPHI, вот код:
procedure TForm6.Button1Click(Sender: TObject);
var
Msg: TIdMessage;
begin
Msg.Subject:='тема сообщения'; //текст темы сообщения
Msg.Recipients.EMailAddresses:='bbbbb51@mail.ru'; //указываем адрес получателя
Msg.From.Address:='batya15@rambler.ru'; //указываем автора письма
Msg.Body.Text:='текст сообщения'; //размещаем текст сообщения
Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой
IdSMTP1.Connect;
if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
Form6.Caption:='Конец';
IdSMTP1.Disconnect;
end;
А он мне выбрасывает ошибку, вот:
Access violation at address 00415482 in module 'project.exe'. read of address 003a0042
Помагите мастера, заранее благодарен!
Rial (2006-08-05 03:52:00) [1]Msg:=TTdMesage.Create;
Try
Код
Finally
Msg.Free;
end;
Петюха (2006-08-05 02:52:00) [2]Пусик, ну пожалуйсто объясните что не так!
Пусик (2006-08-05 02:11:00) [3]Перед заполнением полей объект Msg надо создать.