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

[Mahmood_N]

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

[soldier]

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

[soldier]

سلام
تبريك مي گم.يه چيزايه بدرد به خوري پيدا كردم.
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;

[soldier]

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

[Mahmood_N]

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

[soldier]

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

[Mahmood_N]

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

[soldier]

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

[Mahmood_N]

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

[soldier]

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