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

Отправка писем   Найти похожие ветки 

← →
Петюха   (2006-08-05 02:04) [0]

Я пытаюсь отправить письмо на почту, с помощью 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
Помагите мастера, заранее благодарен!

---

← →
Пусик ©   (2006-08-05 02:11) [1]

Перед заполнением полей объект Msg надо создать.

---

← →
Петюха   (2006-08-05 02:52) [2]

Пусик, ну пожалуйсто объясните что не так!

---

← →
Rial ©   (2006-08-05 03:52) [3]

Msg:=TTdMesage.Create;
Try
Код
Finally
Msg.Free;
end;

---

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

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



Память: 0.45 MB
Время: 0.033 c