Как отправить на почтовый яшик введеные даные

[}{oт@бь)ч]

Так что народ некто незнает?

[Titan123]

а письма то до тебя доходят? все корректно?
если да, то скажу, что такое бывает, я сам не знаю почему.
попробуй в тупую начать все сначала, перепиши проект. в принципе, у меня стандартная отправка сообщений проходила без багов.
если не помогло, то сделай так:

try
//сюда код отправки письма
except 
//здесь лучше ничего не пиши
end;

я писал посложнее программу, искать багу в ней долго и я решил сделать так.
главное - чтоб все работало, если не работает, то это уже в коде ошибка какая-то.

[Черничный]

SMTP.Host:='smtp.mail.ru'; // Серв
SMTP.Port:=25; // Порт
SMTP.AuthenticationType:=atLogin; // тип аунтификации (логин/пароль)
SMTP.Username:='somemail@mail.ru'; // Аккаунт твой
SMTP.Password:='*******';  // Твой пароль
IdMessage.Recipients.EMailAddresses := 'somemail@mail.ru'; // Кому
IdMessage.From.Text := 'somemail@mail.ru'; // От кого, должно быть равно юзерname
IdMessage.Subject := 'Темка'; // темка письма
IdMessage.Body.Text := 'Текст письма'; // Тело письма
try
try
SMTP.Connect; // пытаемсяя отправить
SMTP.Send(IdMessage);
//отпралвеено
except on E:Exception do // если ошибка, то поймаем ее
begin
form1.Caption:=E.Message;
end;
end;
finally
SMTP.Disconnect; // отключение
end;
end;

[}{oт@бь)ч]

Все с отправкой вроде разобрался а терь как зделать чтобы введеные даные и файл отпровлял?
LabeledEdit1 вот это вписать вместо текста сообшения?

[}{oт@бь)ч]

procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.Host :='smtp.mail.ru'; 
idSMTP1.Port:=25; 
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:=Edit1.Text; 
idSMTP1.Password:= Edit2.Text; 
IdMessage1.Recipients.EMailAddresses :='ripo@bk.ru';
IdMessage1.From.Text := 'milo@mail.ru';
IdMessage1.Subject := 'rere';
IdMessage1.Body.Text := 'test';
try
try
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);

except on E:Exception do 
begin
form1.Caption:=E.Message;
end;
end;
finally
idSMTP1.Disconnect; 
end;
end;

Что у меня неправельно
Вот компонент edit ввожу просто яшик и пароль к нему в исходном коде работает!
А ввожу вот так вот так выдает ошибку какуето и нешлет письмо на яшик!
Подскажите плиз в чом проблема?

[r9m]

А ввожу вот так вот так выдает ошибку какуето и нешлет письмо на яшик!

А вот какую-такую-какуето ??

[}{oт@бь)ч]

Вот такая!

[r9m]

ну вот ) другое дело. тут сказано, что отправитель должен быть авторизирован и такой акаунт должен присутствовать на сервере. То есть ты должен вводить в :

idSMTP1.Username:=Edit1.Text;
idSMTP1.Password:= Edit2.Text;

реальные данные, реального юзера который зареган на сервере mail.ru

И к слову, если ты пытаешься написать анонимный мейлер - ты не в ту сторону копаешь. http://james.apache.org/server/rfclist/smtp/rfc0821.txt

Кстати, вот то, что тебе нужно: http://www.codenet.ru/webmast/smtp.php

[}{oт@бь)ч]

Все разобрался спасибо большое нет я не пишу анонимный мейлер!
Я хотел бы спросить вот что как мне зделать чтобы отправлять например письмо не с 1 указаного яшик а с 2 например!)))
Например ввожу я в мемо 2 яшика и пароли к ним и програмка шлет с них на заданый яшик письмо!
Тоесть письмо придет одно и тоже но от 2 яшиков тоесть придет 2 письма!
Вот как это зделать?

[goblinyara]

хммм... через цикл перебора адресов назначения по идее можно это сделать, это самый, на мой взгляд, лёгкий способ...
т.е. приблизительно что-то типа:

procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.Host :='smtp.mail.ru'; 
idSMTP1.Port:=25; 
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:=Edit1.Text; 
idSMTP1.Password:= Edit2.Text; 
for i:=0 to Memo1.Lines.Count -1 do //вот здесь начало цикла
begin
IdMessage1.Recipients.EMailAddresses := Memo1.lines[i];// вот считывание мыла из мемо
IdMessage1.From.Text := 'milo@mail.ru';
IdMessage1.Subject := 'rere';
IdMessage1.Body.Text := 'test';
try
try
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);

except on E:Exception do 
begin
form1.Caption:=E.Message;
end;
end;
finally
idSMTP1.Disconnect; 
end;
end;//конец цикла
end;

З.Ы. пишу так, потому что не работал в принципе с Indy... но вроде сейчас проверил - код работает.