Отправка файлов по e-mail

[mustang007]

Привет всем!!!
Вот я написал прогу она делает скрины экрана и сохраняет её в папку с программой. Как послать эту картинку на e-mail кому нибудь???
Заранее спасибо!!!

[Квэнди]

Воспользоваться компонентом IdSmtp с вкладки IndyClients отправка почты с вложениями здесь уже обсуждалась. пользуйтесь поиском

[rzawm]

procedure send;
var
attach:TidAttachment;
msg:tidmessage;
i:integer;
begin
Form1.idSMTP1.AuthenticationType:= atLogin;
Form1.idSMTP1.Username:='mail@mail. ru';
Form1.idSMTP1.Password:='Тут пароль от мыла';
Form1.idSMTP1.Host:='smtp.mail.ru';
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.Body.Add('test ');
msg.Subject:='test mail';
msg.From.Address:='mail@mail.ru';
msg.From.Name:='Аццкая сотона';
msg.Recipients.EMailAddresses:='mai l@mail.ru';
msg.IsEncoded:=true;
//attach:=TIdAttachment.Create(msg.Me ssageParts,'C:\attach.rar');
Form1.idSMTP1.Connect();
if Form1.idSMTP1.Connected then
begin
Form1.idSMTP1.Send(msg);
showmessage('Sending complete...');
end
else showmessage('No connect ');
finally
Form1.IdSMTP1.Disconnect;
end;
attach.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
send;
end;

[rzawm]

Не забудь на форму кинуть IdMessage и IdSMTP. Попробуй этот вариант

[Eldimor]

Моть я чет непонимаю но у меня пишеть сокет ерор...10060 ето я так понимаю неможет сойдениться прога с сервером почти.Фаер вол отрублен.и когда питаюсь чуть чуть подругом то пишет время ожидания ответа закончилось...что самое страное что пол года назад я таким способом отправлял.Возможно на маил.ру что то поменялось ?или я возобновил ту старую почту и с ней глюк ?

[rzawm]

Попробуй в качестве сервера другой, к примеру yandex

[mustang007]

Спасибо! работает!
тока ещё один вопрос: как зделать чтоб адрес отправителя был 123@123.ru ну тоесть с подменой адреса

[rzawm]

Form1.idSMTP1.Username:='mail@mail. ru';
Form1.idSMTP1.Password:='Тут пароль от мыла'; - меняй здесь на 123@123.ru и соответственно пароль для 123@123.ru

[mustang007]

Так не работает! типа некоректный e-mail адрес ошибку даёт и синим цветом выделяет
мне нужно чтоб адрес отправителя изменялся допустим отправил пользователь mail@mail.ru а пришло с подменой 1@2.ru

[Пепел Феникса]

ты себе как это представляешь?
у СМТП серверов прописанно что отправителем ссобщения является тот кто реально его отправил(то есть та учетка с которой логинились)