Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
procedure sendA(); // процедура отсылки
var
attach:TidAttachment;
msg:tidmessage;
srd:TSearchRec;
begin
Form1.idSMTP1.AuthenticationType:= atLogin;
Form1.idSMTP1.Username:='мыло какое-нить';
Form1.idSMTP1.Password:='пароль
Form1.idSMTP1.Host:='smtp.mail.ru'; // хост соответственно
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.bоdу.Add('текст');
msg.Subject:='тема';
msg.From.Address:='от кого';
msg.From.Name:='имя типо';
msg.Recipients.EMailAddresses:='кому адрес';
msg.IsEncoded:=true;
//——-алгоритм добавления,маску файлов добавляемых и т.д. мона свое,этоя навскидку ОЧЕНЬ примерно накидал
if FindFirst(Sqa+'*.*',faAnyFile,srd)=0 then // Sqa - строка,где путь к папке
begin
repeat
attach:=TIdAttachment.Create(msg.MessageParts,Sqa+'\'+srd.Name); //2-й параметр - путь к файлу
until FindNext(srd) <>0;
FindClose(srd);
end;
//——————
try
Form1.idSMTP1.Connect();
if Form1.idSMTP1.Connected then
begin
Form1.idSMTP1.Send(msg);
end
finally
Form1.IdSMTP1.Disconnect;
end;
attach.Free;
end;
Можно с помощью WinApi , я примерно показал с помощью компонента TIdSMTP.Слишком часто слать почту нельзя,раньше было можно без логина слать,но ща вроде уже давно так нельзя.
|
Нужен исходник программы на Delphi - 
