→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Ребята, помогите отладить программу... 
Автор Сообщение
Начинающий

Регистрация: 04.12.2008
Сообщения: 1
Откуда: Украина, Ровенская обл.

Репутация: 0 [ ? ]
Сообщение Ребята, помогите отладить программу...
Ребята, помогите отладить программу... [recourse]

У меня возникла задача... Мне нужна программа которая при вычислении результатов записывает их в файл, а потом етот файл, скрыто от пользователя, отправляет на определённый EMail.
Код отправки сообщения я написал, программа запускаеться но не отправляет ничего... В чём моя ошибка?
Я програмист начинающий, поутому прошу не очень критиковать [request]
Буду очень благодарен...
Вот код проги:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, IdMessage, StdCtrls;

type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure Connect(Const ATimeOut: integer);
var
IdSMTP1: TIdSMTP;
Host: string;
IdMessage: TIdMessage;
Msg: TIdMessage;
begin
IdSMTP1.Host:= 'www.mail.ru';
IdSMTP1.AuthenticationType:= AtLogin;
IdSMTP1.Username:= '************';
IdSMTP1.Password:= '******';
IdSMTP1.Connect();
end;

procedure TForm1.Button1Click(Sender: TObject);
var
IdSMTP: TIdSMTP;
idMessage: TidMessage;
Msg: TIdMessage;

begin
idMessage := TIdMessage.Create(nil);
try
with idMessage do
begin
Recipients.Add.Address :='primer@mail.ru';{ кому отправляем }
Subject :='Привет с античата!';{Тема}
From.Address := '****************';{ свое мыло }
Body.Text := 'Добрый день'+#13+ 'Я знаю Delphi';
end;
Except
end;



end;
end.


04.12.2008 9:55
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»