Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отправка писем [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 надо создать.


Наверх

Титульная страница Поиск, карта сайта Написать письмо