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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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