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

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

شما بايد از 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 ساعت نشستم پاش كه درست شد خيلي
گير مي داد.اميد وارم كه بدرد خورده باشه.
اگر نه زحمت هام بي فايده است!