PDA

View Full Version : مشکل در ارسال ایمیل



mnv_mn
دوشنبه 26 فروردین 1387, 16:44 عصر
سلام، من می خواهم با سیستم خودم که localhost است به yahoo یا gmail ایمیل بزنم باید تنظیمات خاصی بکنم ؟ در ضمن من "مرجع ارسال ایمیل در دات نت2" را خوانده ام اما باز ارسال برایم ممکن نیست. من به جای username و password از username و password میلم در یاهو استفاده می کنم .لطفا" راهنمایی بفرمایید.

کد :
Dim mail AsNew MailMessage
mail.From = New MailAddress("dfgg@yahoo.com")
mail.To.Add(New MailAddress("cvvxa@yahoo.com"))
mail.Subject (dhjgs@)mail.Subject) = "first mail"
mail.Body = "salam "
Dim smtp AsNew SmtpClient("127.0.0.1")
smtp.Credentials = New NetworkCredential("username", "password")
smtp.Send(mail)

merlin_vista
دوشنبه 26 فروردین 1387, 16:49 عصر
ورود شما را تبریک میگویم .

دوست عزیز شما باید تنظییمات SMTP را انجام دهید .
برای ارسال ایمیل میتوانید برنامه خود را بر روی یک سرور آپلود کنید .

mnv_mn
دوشنبه 26 فروردین 1387, 16:59 عصر
ممنون
چطوری تنظیمات smtp را انجام بدم؟
با آپلود در یک سرور مشکل حل میشود؟

H_T_O_A
دوشنبه 26 فروردین 1387, 17:48 عصر
ورود شما رو به سایت تبریک میگم

بله اگر تو سایت upload کنید مشکل حل میشه البته اگه پیغام خطایی هست باید بگی تا مشخص بشه اشکال کجاست
smtp سرور میل مجازی که مثه localhost عمل میکنه شما اگه فایلتونو بخوای تو سیستمتون امتحان کنید باید smtp داشته باشید ولی تو سایت نه.
راستی قبل از ایجاد تاپیک یه سرچ بکن چون ممکنه مشکل شما رو قبلا یکی داشته و موضوع رو مطرح کرده باشه

H_T_O_A
دوشنبه 26 فروردین 1387, 17:49 عصر
من از این راه میل کردم توام امتحان کن بد نیست

باید بری تو محیط کد نویسی و تو قسمت تعاریف در بالا ترین خط این خط رو اضافه می کنی




Imports.System.Web



تو خاصیت کلیک باتنی که فرستادن ایمیل به عهده اونه کد زیر رو تایپ کن






()Dim msgMail As New MailMessage


msgMail.From = txtFrom.Text
msgMail.To = txtTo.Text
msgMail.Subject = txtSubject.Text
msgMail.Body = txtMessage.Text


(SmtpMail.Send(msgMail




اگه این چند خطم بنویسی ضرر نداره پیغام فرستادن ایمیل رو میده

نقل قول:


"" = txtTo.Text
"" = txtSubject.Text
"" = txtMessage.Text


"<litStatus.Text = "<p>Message sent.</p



یا علی

mnv_mn
سه شنبه 27 فروردین 1387, 09:22 صبح
من برنامه ی بالایی را امتحان کردم، برنامه اجرا می شود و error نمی گیرد ولی در ایمیلم نیست و در پوشه ای به آدرس G:\Inetpub\mailroot\Queue ذخیره می شود

H_T_O_A
چهارشنبه 28 فروردین 1387, 02:36 صبح
درسته دیگه
شما برنامه رو تو سایت upload نکردید بلکه از همون میل سرور مجازی سیستم خودتون استفاده کردید. برای همین تو شاخه میبره اون آدرس محل میل سرورته اگه تو کد طراحی شده رو تو سایت اپلود کنی به ایمیل میفرسته
امتحان کن خبرشو بده
یا علی

H_T_O_A
چهارشنبه 28 فروردین 1387, 02:37 صبح
اگه سایتت راه افتاده آدرسشو بگو یه سر بهش بزنیم

H_T_O_A
چهارشنبه 28 فروردین 1387, 02:57 صبح
اگه سایتت راه افتاده آدرسشو بگو یه سر بهش بزنیم

Pioneers
چهارشنبه 28 فروردین 1387, 12:10 عصر
شما میتونید SMTP رو روی سیستم خودتون راه بیاندازید.(از طریق IIS). نحوه راه اندازی هم توی اینترنت زیاد توضیح داده شده.

mnv_mn
پنج شنبه 29 فروردین 1387, 18:57 عصر
تو سایت آپلود نکردم ولی با کد H-T-O-A کار کرد اما 2 بار بیشتر ایمیل نزد بعد ارور گرفت.

H_T_O_A
پنج شنبه 29 فروردین 1387, 20:25 عصر
خوب ارورش چیه؟؟؟
کدشو بده؟؟ یا بهتره پروژتو آپلود کنی تو همین تاپیک تا یه نگاهی بهش بکنم اگه بتونم کوتاهی نمی کنم
منتظرم
یا علی

mnv_mn
جمعه 30 فروردین 1387, 09:58 صبح
این پروژه من یه پروژه درسی است و باید به استاد تحویل بدم و فقط برای امتحان کردن سایت و زمانی که به استاد نشان میدم میخواهم ایمیل بزند.آپلود در سایت و خرید سرور نیازمند هزینه است .من هم نمیخواهم اینقدر برای این پروژه خرج کنم ،راه دیگری غیر از اپلود در سایت وجود دارد؟ ممنون از راهنماییهاتون .
در ضمن کدم این است :


Dim msgMail AsNew Web.Mail.MailMessage()
msgMail.From = "anyone@yahoo.com"
msgMail.To = "anybody@yahoo.com"
msgMail.Subject = "emtehan"
msgMail.Body = "salam ,"
Web.Mail.SmtpMail.SmtpServer = "mx1.mail.yahoo.com"
Web.Mail.SmtpMail.Send(msgMail)
TextBox1.Text = "message succsessfully send"
msgMail.Priority = Web.Mail.MailPriority.High


error برنامه هم این است :


The message could not be sent to the SMTP server. The transport error code was 0x800ccc6e. The server response was 553 Mail from ip address not allowed - [10]

H_T_O_A
جمعه 30 فروردین 1387, 14:58 عصر
ببین من کد تو رو تست کردم ارور داد شما عین این کاری می گم بکن
در خط شماره 1 این کد بنویس


Imports System.Web.Mail




بعد کدتو این جوری بنوس



Dim msgMail AsNew MailMessage()
msgMail.From = "anyone@yahoo.com"
msgMail.To = "anyone@yahoo.com"
msgMail.Subject = "This is the subject text."
msgMail.Body = "This is the message text."
SmtpMail.Send(msgMail)


TextBox1.Text = "message succsessfully send"




من کد شما رو به همین چند خط تغییر دادم(با اجازت) و کار کرد
تو هم امتحان کن خبر بده

mnv_mn
جمعه 30 فروردین 1387, 16:35 عصر
من برنامه ی شما را امتحان کردم ولی باز هم error قبلی را میدهد

H_T_O_A
جمعه 30 فروردین 1387, 17:02 عصر
احتمال زیاد اشکال میل سرورتونه
چون این کد کاملا تو تو سیستم من کار میکنه
میتونی فایل پروژتو بذراری؟

H_T_O_A
جمعه 30 فروردین 1387, 17:42 عصر
ببین من این صفحه رو نوشتم تو سیستم من که کار میکنه
تو ام یه نگاه بنداز بهش اگه مشکلت حل نشد فایل خودتو بزار

16436

mnv_mn
جمعه 30 فروردین 1387, 18:35 عصر
فایل شما را هم امتحان کردم ولی جواب نداد و error قبلی را میگیرد.فایل خودم را هم به شما میفرستم.

H_T_O_A
جمعه 30 فروردین 1387, 19:22 عصر
اگه فایل من هم همون ارور رو میده مطمئنم اشکال از میل سرورتونه
شاید اگه IIS دوباره نصب کنید حل بشه
نمی دونم
حالا شما هم برنامتون بفرستید