فرستادن ايميل

سلام دوست عزيز ...
دستتون درد نكنه ولي نتونستم نصبش كنم ...
موقع كامپايل Error می ده ...
این عکس رو نگاه کنید ...
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تا حالا موقع نصب کامپوننت با این Error برخورد نکرده بودم و نمی دونم به خاطر چیه ...
شما یه بار با دلفی 7 امتحان کنید ببینید نصب می شه ...
بازم ازتون تشکر می کنم ...
موفق باشید ...

سلام
دنبال تقاضاي شما هستم.
حتمآ خبرشو بهت مي دم.
فقط اينجا رو ترك نكن كه نتيجه بگيري.ممنون:)

سلام
تبريك مي گم.يه چيزايه بدرد به خوري پيدا كردم.
3 Labels:
Altere as propriedades Caption respectivamente para: (Para, Assunto, Mensagem)

2 Edits
Altere as propriedades Name respectivamente para:(edtPara, edtAssunto);
Apague o conteúdo das propriedades Text;

1 ListBox
Altere a propriedade Name para:(lbxAnexos)

1 Componente Memo
Altere a propriedade Name para:(mmMensagem);
Apague o conteúdo da propriedade lines.

3 Componentes Bitbtn
Altere as propriedades Caption respectivamente para:(Anexar,Enviar,Fechar)
Altere as propriedades Name respectivamente para:(btAnexar,btEnviar,btFechar)

Agora insira um componente OpenDialog da palheta Dialogs
Altere a propriedade Name para:(odAnexos)

Insira um componente IdMessage, da palhete Indy Misc
Configure a propriedades From|Address com o email do remetente e From|Name com o
nome do remetente
Altere a propriedade Name para:(IdMessage)

Insira um componente IdSMTP da palheta IndyClients
Configure as propriedades Host com o endereço IP ou o DNS do servidor de email,
por exemplo: smtp.uol.com.br
Configure as propriedades Password e Username, para se autenticar no servidor,
caso seja necessário.
Altere a propriedade name para:(IdSMTP)

Agora vamos aos códigos:

No evento onclick do botão btAnexos:
procedure TForm1.btAnexarClick(Sender: Tobject);
begin
if odAnexos.Execute then
lbxAnexos.Items.Add(odAnexos.FileName);
end;

No evento onclick do botão btFechar:
procedure TForm1.btFecharClick(Sender: Tobject);
begin
Application.Terminate;
end;

No evento onclick do botão btEnviar:

procedure TForm1.btEnviarClick(Sender: TObject);
var Anexo : Integer;
begin
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := mmMensagem.Lines;

//Manipulando os Anexos
for Anexo := 0 to lbxAnexos.Items.Count-1 do
TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));

IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;

سلام
اين پست رو زدم كه با قبلي اشتباه نشه.
يه آدرس هم دارم كه مي توني كمپننت در اين مورد دانلود كني.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام ...
دستتون درد نکنه ، شرمنده کردید ...
امتحان می کنم و اگه به مشکلی برخوردم همینجا مطرح می کنم ...
در ضمن اون سایت ژاپنی بود و من چیزی ازش نفهمیدم !!
اگه خود لینک کامپوننت رو بزارید ممنون می شم ...
بازم ازتون تشکر می کنم ...
موفق باشید ...

سلام
نيازي به نوشته ها نداري.
پايين سايت به راحتي لينك
دانلود رو مي توني ببيني:)
اگر هم خواستي مي توني بگو
كه خودم يه لينك بدم خدمتتون:)

بازم سلام ...
متاسفانه نتونستم پيداش كنم !! ، اگه لينك دانلودش رو بزاريد ممنون مي شم ...
با تشكر ...
موفق باشيد ...

سلام
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يا [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اما فكر كنم اولي باشه.موفق باشي:)

سلام دوست من ...
از زحماتتون متشكرم ...
آخر نتونستم دانلودش كنم ... ( چندتا رو دانلود كردم ولي اوني كه مي خواستم نبودن )
به نظر من همون كدهايي كه اول نوشته بودم درستن ( چون تا حالا هر نمونه اي ديدم از همين كدها استفاده مي كرد )
ولي مشكل اصلي براي قسمت هاست است ...
براي سرويس هاتميل نام هاست را بايد چي وارد كنم ؟؟ ( يعني سرور ايميل دهنده هاتميل آدرسش چيه ؟ )
يه سئوال ديگه هم داشتم ...
آيا دلفي 7 كامپوننتي داره كه بشه سرور رو پيدا كرد ( مثلا يه سايت بهش بدي و اون سرور اصليش رو پيدا كنه )
فكر كنم منظورم رو فهميده باشيد ... ( مثلا سرور ايميل ياهو آدرسش '' MX1.Mail.Yahoo.com '' هست )

سلام
چي شد ؟ درست شد؟
اگر هنوز نتونستي كه دانلودش كني بگو