PDA

نسخه کامل مشاهده نسخه کامل : فرستادن ايميل


soldier
03-07-2006, 16:02
سلام دوستان
یکی از دوستان مشکلی در فرستادن ایمیل داشت
من در این تاپیک به طور کامل فرستادن ایمل رو می گم.

شما بايد از 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;

اميد وارم كه بدردتون خوره باشه
اگر مشكلي داشتيد من در خدمت هستم.
مرد مباح
03-07-2006, 21:03
خيلي ممنون سولجر جان
soldier
03-07-2006, 21:13
سلام
خواهش مي كنم.
اميد وارم بدرد خورده باشه.
مرد مباح
03-07-2006, 21:46
درباره مسائل اينترنتي هر چي ميتوني اطلاعات بزار كه من مشتاقم.
هر چي به ذهنت رسيد.
چت و ميل و بروزر و ...
soldier
03-07-2006, 22:03
سلام
باشه خيلي خيلي دارم.
فردا يكي ديگه مي زارم.منتظر باشيد
Mahmood_N
05-07-2006, 03:01
سلام دوست عزيز ...
به خاطر جوابتون ممنونم ...
ولي فكر كنم كه شما از دلفي 6 استفاده مي كنيد ... ، دلفي من نسخه 7 است.
كد زير رو نگاه كنيد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
من از كد بالا براي ارسال ايميل استفاده مي كنم اما Error می ده !!
توی کد بالا من از TIDSMTP استفاده کردم ( با نام Mail مشخص شده ) که تقریبا همون TNMSMTP در دلفی شیش هستش ...
و برای فرستادن ایمیل هم از یک TIdMessage استفاده کردم ( با نام Mes مشخص شده ) و به وسیله TIDSMTP اون رو ارسال کردم ولی نمی دونم چرا Error می ده !!! ؟ :sad: :sad:
متن Error هم اینه : Socket Error # 11004
منتظر جوابتون هستم ...
با تشکر ...
موفق باشید ...
soldier
05-07-2006, 11:10
سلام
توي متن من اگر نگاه كنيد كلش از همون TNMSMTP استفاده كردم.
كه توي دلفي 7 همون TIDSMTP باشه ! اما شما قسمي رو با TIDSMTP معرفي
كرديد و قسمتي ديگر رو با TIdMessage . من يه راه حل بهت بگم امتحان كن!
Mail.Host:= '[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]';
Mail.Username:= 'اکانت ایمیل';
Mail.Password:= 'پسورد اکانت';
Mail.Connect;
Mail.From.Address:= 'ایمیل فرستنده';
Mail.Subject:= 'موضوع ایمیل';
Mail.Body:= 'متن ایمیل';
Mail.Recipients.EMailAddresses:= 'ایمیل دریافت کننده';
Mail.Send(Mes);
Mail.Disconnect;
به نظر من بايد اينطور باشه! اگر اين TIDSMTP كه ميل معرفي كردي
تمام امكانات رو كه خودت نوشتي داشت رو خوب مشكل حله.
در غير اين صورت از همون TIdMessage استفاده كن.اگر باز هم جواب نداد.
ببگو كمپننت هاي دلفي 6 رو برات آپلود كنم.
Mahmood_N
06-07-2006, 08:15
سلام دوست من ...
دستت درد نکنه ...
ولی TIDSmtp اون امکانات رو نداره !!!
یعنی باید از همون TIdMessage استفاده کرد ...
راستی کامپوننتهای دلفی 6 توی دلفی 7 نصب می شن ؟
اگه می شن که بفرستی عالی می شه ... ( چون کارم واقعا گیره )
واقعا ازتون ممنونم ...
موفق باشید ...
soldier
06-07-2006, 13:30
سلام
اين هم از كمپننت ها.:)
اين يه كمپننته كه خودم ساختمش و چند تا فايل اصلي دلفي6 رو
هم باهاش گذاشتم. مي ره توي لبه SAMPLE
اين هم لينك : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بعدآ بهم بگو كه چطور بوده.بدرد خورده يا نه!
منتظر جوابت هستم.:)
soldier
07-07-2006, 18:01
سلام
دالنود كردي؟ بدرد خورد؟بابا من منتظر جوابتم.
1 ساعت نشستم پاش كه درست شد خيلي
گير مي داد.اميد وارم كه بدرد خورده باشه.
اگر نه زحمت هام بي فايده است!
Mahmood_N
11-07-2006, 11:16
سلام دوست عزيز ...
دستتون درد نكنه ولي نتونستم نصبش كنم ...
موقع كامپايل Error می ده ...
این عکس رو نگاه کنید ...
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
تا حالا موقع نصب کامپوننت با این Error برخورد نکرده بودم و نمی دونم به خاطر چیه ...
شما یه بار با دلفی 7 امتحان کنید ببینید نصب می شه ...
بازم ازتون تشکر می کنم ...
موفق باشید ...
soldier
13-07-2006, 00:41
سلام
دنبال تقاضاي شما هستم.
حتمآ خبرشو بهت مي دم.
فقط اينجا رو ترك نكن كه نتيجه بگيري.ممنون:)
soldier
13-07-2006, 08:48
سلام
تبريك مي گم.يه چيزايه بدرد به خوري پيدا كردم.
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
13-07-2006, 08:50
سلام
اين پست رو زدم كه با قبلي اشتباه نشه.
يه آدرس هم دارم كه مي توني كمپننت در اين مورد دانلود كني.
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Mahmood_N
13-07-2006, 16:29
سلام ...
دستتون درد نکنه ، شرمنده کردید ...
امتحان می کنم و اگه به مشکلی برخوردم همینجا مطرح می کنم ...
در ضمن اون سایت ژاپنی بود و من چیزی ازش نفهمیدم !!
اگه خود لینک کامپوننت رو بزارید ممنون می شم ...
بازم ازتون تشکر می کنم ...
موفق باشید ...
soldier
13-07-2006, 21:02
سلام
نيازي به نوشته ها نداري.
پايين سايت به راحتي لينك
دانلود رو مي توني ببيني:)
اگر هم خواستي مي توني بگو
كه خودم يه لينك بدم خدمتتون:)
Mahmood_N
14-07-2006, 01:25
بازم سلام ...
متاسفانه نتونستم پيداش كنم !! ، اگه لينك دانلودش رو بزاريد ممنون مي شم ...
با تشكر ...
موفق باشيد ...
soldier
14-07-2006, 10:37
سلام
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يا [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اما فكر كنم اولي باشه.موفق باشي:)
Mahmood_N
16-07-2006, 06:59
سلام دوست من ...
از زحماتتون متشكرم ...
آخر نتونستم دانلودش كنم ... ( چندتا رو دانلود كردم ولي اوني كه مي خواستم نبودن )
به نظر من همون كدهايي كه اول نوشته بودم درستن ( چون تا حالا هر نمونه اي ديدم از همين كدها استفاده مي كرد )
ولي مشكل اصلي براي قسمت هاست است ...
براي سرويس هاتميل نام هاست را بايد چي وارد كنم ؟؟ ( يعني سرور ايميل دهنده هاتميل آدرسش چيه ؟ )
يه سئوال ديگه هم داشتم ...
آيا دلفي 7 كامپوننتي داره كه بشه سرور رو پيدا كرد ( مثلا يه سايت بهش بدي و اون سرور اصليش رو پيدا كنه )
فكر كنم منظورم رو فهميده باشيد ... ( مثلا سرور ايميل ياهو آدرسش '' MX1.Mail.Yahoo.com '' هست )
soldier
20-07-2006, 08:48
سلام
چي شد ؟ درست شد؟
اگر هنوز نتونستي كه دانلودش كني بگو
Mahmood_N
20-07-2006, 16:45
سلام دوست من ...
از زحماتتون متشكرم ...
آخر نتونستم دانلودش كنم ... ( چندتا رو دانلود كردم ولي اوني كه مي خواستم نبودن )
به نظر من همون كدهايي كه اول نوشته بودم درستن ( چون تا حالا هر نمونه اي ديدم از همين كدها استفاده مي كرد )
ولي مشكل اصلي براي قسمت هاست است ...
براي سرويس هاتميل نام هاست را بايد چي وارد كنم ؟؟ ( يعني سرور ايميل دهنده هاتميل آدرسش چيه ؟ )
يه سئوال ديگه هم داشتم ...
آيا دلفي 7 كامپوننتي داره كه بشه سرور رو پيدا كرد ( مثلا يه سايت بهش بدي و اون سرور اصليش رو پيدا كنه )
فكر كنم منظورم رو فهميده باشيد ... ( مثلا سرور ايميل ياهو آدرسش '' MX1.Mail.Yahoo.com '' هست )
سلام ...
همونطور كه بالا هم گفتم ، مشكل من توي قسمت هاست هست ...
ايميل من از نوع هاتميل هستش ...
فقط مي خواستم بدونم كه آدرس سرور ايميل هاتميل چيه ؟ ( مثلا براي ياهو MX1.Mail.Yahoo هست )
موفق باشيد ...
Shahriar-b
29-03-2007, 01:31
سلام
اگه میشه لینک اون کامپوننت NMsmtp رو درست کنید ممنون
soldier
30-03-2007, 17:03
سلام
اگه میشه لینک اون کامپوننت NMsmtp رو درست کنید ممنون
سلام

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

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

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

موفق باشی . بای
Shahriar-b
30-03-2007, 17:04
خوب اگه میشه توضیح بده باید چیکار کنم
soldier
30-03-2007, 18:18
سلام

حالا که نمیتونم. چون با چیزهای دیگه سرم شلوغه.
اما بعدآ باشه. آموزشش رو میزارم.
بای
Shahriar-b
30-03-2007, 18:56
ممنون
ولی مگه کامپوننت های دلفی 6 در 7 کار نمی کنه ؟؟
soldier
30-03-2007, 20:17
سلام
بله کار میکنه.
اما مشکل اینجاست که تمامی اون لبه در دلفی7 نیست.
یعنی وقتی دلفی7 ساخته شده اون سری کمپننت ها حذف شدن
و یک سری کمپننت و ابزار جدید جایگزینشون شده. و طریقه استفادشون
فرق میکنه. سوالی داشتید در خدمتم.
موفق باشید . بای
Shahriar-b
30-03-2007, 21:26
ممنون
منتظر آموزشت هستیم
delphianddotnet
01-04-2007, 02:28
سلام
براي نوشتن ايميل در دلفي 7 بايد از Indy استفارده كنيد .
soldier
01-04-2007, 17:37
سلام
براي نوشتن ايميل در دلفي 7 بايد از Indy استفارده كنيد .
سلام
درست میگید اما کمی مشکله.
یه راه جدید پیدا کردم که به زودی آموزشش رو میزام. (فقط مونده آپلودش کنم)
فعلا بای