Otpravka Otcheta Na email

[combays]

Da vot takoy vopros kak otpravlyat otcheti na emayl ili je ftp??

Ochen nujna Plz Help,,,
...........................
--------------------
You Can This...

[Titan123]

иными словами тебе нужно отправить письмо?
вот код. на форму кинь IDSmtp и IdMessage:

var
M:TIdMessage;
sm:tidsmtp;
att:tidattachment;
begin
m:=TIdMessage.create(form1);
m.From.Text:='program@yandex.ru';//от кого
m.Recipients.Add;
m.Recipients.Items[0].Text:='<po@yandex.ru>';//кому
m.Subject:='fd';// тема
m.Body.Text:='fd';// текст
sm:=tidsmtp.Create(form1);
sm.AuthenticationType := atLogin;
sm.Host:='smtp.yandex.ru'; //smtp-адрес
sm.Username:='program';//логин отправителя
sm.Password:='***'; //пароль отправителя
sm.Connect(); {отправка}
if sm.Connected then
begin
sm.Send(M);
end;
sm.Disconnect;
att.Free;
sm.Free;

[mihali4]

А можно еще и с "прицепом".

Отправка email с вложением файла

var
M: TIdMessage;
ATT: Tidattachment;
begin
M := TIdMessage.Create(Form1);
M.Body.Add(Memo1.Text);
M.From.Text := '"'+name+'" <'+email+'>'; //отправитель
M.Recipients.Add;
M.Subject := 'Тема письма'; //Тема письма
m.Recipients.EMailAddresses:='vasya_pupkin@gmail.com';
IdSMTP1.AuthenticationType := atlogin;
IdSMTP1.Host := host;
IdSMTP1.Username := emailname;
IdSMTP1.Password := 'wizow';
m.IsEncoded:=true;
ATT := TIdAttachment.Create(m.MessageParts,'C:\Pricep.txt');
try
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(m);
MessageDlg('Отправка завершена',mtInformation,[mbOk],0);
end
else MessageDlg('Отправка не завершена',mtInformation,[mbOk],0);
finally
IdSMTP1.Disconnect;
end;
att.free;
end;

[FaTaL]

А если через проксю?

[Квэнди]

какую проксю ?
уточняйте ибо стандартные прокси в теории не могут проксировать трафик smtp и pop3 протоколов.

[combays]

Sps Bolshoye....Vi mne ochen pomoqli......A vot kak mojno sdelat chtob posle toqo kak naprimer otpravki /inde.txt ono udalyalo etot je /inde.txt ?
Plplzzz pomoqite eto srochno..

[mihali4]

inde.txt - это вложение?
Ну так удалите его DeleteFile('C:\inde.txt') и все...

[AngelOfDeath]

И одна просьба
Пишите нормальными русскими буквами

[prog_]

Сообщение от mihali4

А можно еще и с "прицепом".

Отправка email с вложением файла

А если файл не txt а xls как его прикрепить к письму а не в тело засунуть

[Lime]

Сообщение от prog_

А если файл не txt а xls как его прикрепить к письму а не в тело засунуть

Хоть тема и старая уточню : не важно какой формат файла.
Файл прикрепляется как "вложение" -

ATT := TIdAttachment.Create(m.MessageParts,'C:\Pricep.txt');