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

سلام دوستان
یکی از دوستان مشکلی در فرستادن ایمیل داشت
من در این تاپیک به طور کامل فرستادن ایمل رو می گم.

شما بايد از TNMSMTP در صفحه FastNet استفاده كني.
به صورت زير حالا من با يه دكمه ايميل رو مي فرسته.

procedure TForm1.Button1Click(Sender : TObject);
begin
NMSMTP1.Host := اسم سایتی که سرویس امیل رو داره
NMSMTP1.UserID:= نام کاربری
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := از چه کسی دقیقآ آدرس ایمیل
NMSMTP1.PostMessage.ToAddress.Text := به دست چه کسی برسد آدرس ایمیل دقیق
NMSMTP1.PostMessage.Body.Text := نوشته شما
NMSMTP1.PostMessage.Subject := موضوع ایمیل
NMSMTP1.SendEmail;
end;

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

خيلي ممنون سولجر جان

سلام
خواهش مي كنم.
اميد وارم بدرد خورده باشه.

درباره مسائل اينترنتي هر چي ميتوني اطلاعات بزار كه من مشتاقم.
هر چي به ذهنت رسيد.
چت و ميل و بروزر و ...

سلام
باشه خيلي خيلي دارم.
فردا يكي ديگه مي زارم.منتظر باشيد

سلام دوست عزيز ...
به خاطر جوابتون ممنونم ...
ولي فكر كنم كه شما از دلفي 6 استفاده مي كنيد ... ، دلفي من نسخه 7 است.
كد زير رو نگاه كنيد :

کد:

---

  try
  RichEdit1.Lines.Add(Edit3.Text);
  Mail.Host:= 'http://Hotmail.msn.com';
  Mail.Username:= 'اکانت ایمیل';
  Mail.Password:= 'پسورد اکانت';
  Mail.Connect;
  Mes.From.Address:= 'ایمیل فرستنده';
  Mes.Subject:= 'موضوع ایمیل';
  Mes.Body:= 'متن ایمیل';
  Mes.Recipients.EMailAddresses:= 'ایمیل دریافت کننده';
  Mail.Send(Mes);
 finally
  Mail.Disconnect;
 end;

---

من از كد بالا براي ارسال ايميل استفاده مي كنم اما Error می ده !!
توی کد بالا من از TIDSMTP استفاده کردم ( با نام Mail مشخص شده ) که تقریبا همون TNMSMTP در دلفی شیش هستش ...
و برای فرستادن ایمیل هم از یک TIdMessage استفاده کردم ( با نام Mes مشخص شده ) و به وسیله TIDSMTP اون رو ارسال کردم ولی نمی دونم چرا Error می ده !!! ؟ :sad: :sad:
متن Error هم اینه : Socket Error # 11004
منتظر جوابتون هستم ...
با تشکر ...
موفق باشید ...

سلام
توي متن من اگر نگاه كنيد كلش از همون TNMSMTP استفاده كردم.
كه توي دلفي 7 همون TIDSMTP باشه ! اما شما قسمي رو با TIDSMTP معرفي
كرديد و قسمتي ديگر رو با TIdMessage . من يه راه حل بهت بگم امتحان كن!
Mail.Host:= 'http://Hotmail.msn.com';
Mail.Username:= 'اکانت ایمیل';
Mail.Password:= 'پسورد اکانت';
Mail.Connect;
Mail.From.Address:= 'ایمیل فرستنده';
Mail.Subject:= 'موضوع ایمیل';
Mail.Body:= 'متن ایمیل';
Mail.Recipients.EMailAddresses:= 'ایمیل دریافت کننده';
Mail.Send(Mes);
Mail.Disconnect;
به نظر من بايد اينطور باشه! اگر اين TIDSMTP كه ميل معرفي كردي
تمام امكانات رو كه خودت نوشتي داشت رو خوب مشكل حله.
در غير اين صورت از همون TIdMessage استفاده كن.اگر باز هم جواب نداد.
ببگو كمپننت هاي دلفي 6 رو برات آپلود كنم.

سلام دوست من ...
دستت درد نکنه ...
ولی TIDSmtp اون امکانات رو نداره !!!
یعنی باید از همون TIdMessage استفاده کرد ...
راستی کامپوننتهای دلفی 6 توی دلفی 7 نصب می شن ؟
اگه می شن که بفرستی عالی می شه ... ( چون کارم واقعا گیره )
واقعا ازتون ممنونم ...
موفق باشید ...

سلام
اين هم از كمپننت ها.:)
اين يه كمپننته كه خودم ساختمش و چند تا فايل اصلي دلفي6 رو
هم باهاش گذاشتم. مي ره توي لبه SAMPLE
اين هم لينك : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بعدآ بهم بگو كه چطور بوده.بدرد خورده يا نه!
منتظر جوابت هستم.:)

سلام
دالنود كردي؟ بدرد خورد؟بابا من منتظر جوابتم.
1 ساعت نشستم پاش كه درست شد خيلي
گير مي داد.اميد وارم كه بدرد خورده باشه.
اگر نه زحمت هام بي فايده است!

سلام دوست عزيز ...
دستتون درد نكنه ولي نتونستم نصبش كنم ...
موقع كامپايل 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 '' هست )

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

نقل قول:

---

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

---

سلام ...
همونطور كه بالا هم گفتم ، مشكل من توي قسمت هاست هست ...
ايميل من از نوع هاتميل هستش ...
فقط مي خواستم بدونم كه آدرس سرور ايميل هاتميل چيه ؟ ( مثلا براي ياهو MX1.Mail.Yahoo هست )
موفق باشيد ...

سلام
اگه میشه لینک اون کامپوننت NMsmtp رو درست کنید ممنون

نقل قول:

---

نوشته شده توسط GameLife [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
اگه میشه لینک اون کامپوننت NMsmtp رو درست کنید ممنون

---

سلام

کمپننت NMsmtp فقط در دلفی 6 هست.

و در دلفی 7 وجود ندارن و واسش ساخته نشده.

برای ارسال ایمیل در دلفی 7 باید از روش دیگه ای استفاده بشه.

موفق باشی . بای

خوب اگه میشه توضیح بده باید چیکار کنم

سلام

حالا که نمیتونم. چون با چیزهای دیگه سرم شلوغه.
اما بعدآ باشه. آموزشش رو میزارم.
بای

ممنون
ولی مگه کامپوننت های دلفی 6 در 7 کار نمی کنه ؟؟

سلام
بله کار میکنه.
اما مشکل اینجاست که تمامی اون لبه در دلفی7 نیست.
یعنی وقتی دلفی7 ساخته شده اون سری کمپننت ها حذف شدن
و یک سری کمپننت و ابزار جدید جایگزینشون شده. و طریقه استفادشون
فرق میکنه. سوالی داشتید در خدمتم.
موفق باشید . بای

ممنون
منتظر آموزشت هستیم

سلام
براي نوشتن ايميل در دلفي 7 بايد از Indy استفارده كنيد .

نقل قول:

---

نوشته شده توسط delphianddotnet [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
براي نوشتن ايميل در دلفي 7 بايد از Indy استفارده كنيد .

---

سلام
درست میگید اما کمی مشکله.
یه راه جدید پیدا کردم که به زودی آموزشش رو میزام. (فقط مونده آپلودش کنم)
فعلا بای