منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارسال بريد الكتروني من البرنامج ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارسال بريد الكتروني من البرنامج ؟ (/showthread.php?tid=6941)

الصفحات: 1 2 3


ارسال بريد الكتروني من البرنامج ؟ - Osama_Ghareeb - 14-11-12

تفضل أخي الكريم أمر الإرسال من حساب ياهو :
كود :
Try
            Dim mail As Net.Mail.MailMessage = New Net.Mail.MailMessage()
            mail.From = New Net.Mail.MailAddress("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Sender Name[/color]")
            mail.To.Add(New Net.Mail.MailAddress("[color=#ff0000]ReceiverEmail@hotmaile.com[/color]"))
            mail.Subject = "[color=#ff0000]Test Message From VB4Arb[/color]"
            mail.Body = "[color=#ff0000]Hello[/color]"
            Dim SmtpServer As New Net.Mail.SmtpClient()
            SmtpServer.Credentials = New Net.NetworkCredential("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Password[/color]")
            SmtpServer.Port = 25
            SmtpServer.Host = "smtp.mail.yahoo.com"
            SmtpServer.EnableSsl = False
            SmtpServer.Send(mail)
            MsgBox("Succeeded")
        Catch ex As Exception
            MsgBox("Error" & " : " & ex.Message)
        End Try



ارسال بريد الكتروني من البرنامج ؟ - Mido9 - 14-11-12

ahmed salam كتب :اخي الكريم المثال يعمل فقط نسيت علامات التنصيص الرجاء تعديل السطر الي الاتي
كود :
SmtpServer.Host = "smtp.mail.yahoo.com"

اسف جدا علي التأخير


جزاك الله خيراً على تعبك , بارك الله فيك

و لكن يظهر لي " خطأ اثناء الارسال " Sad


ارسال بريد الكتروني من البرنامج ؟ - Mido9 - 14-11-12

sajad كتب :السلام عليكم

اخي الكريم أي نسخة تستخدم من الvs؟

و علكيم السلام

انا استخدم 2005 بارك الله فيك


ارسال بريد الكتروني من البرنامج ؟ - Mido9 - 14-11-12

Osama_Ghareeb كتب :تفضل أخي الكريم أمر الإرسال من حساب ياهو :
كود :
Try
            Dim mail As Net.Mail.MailMessage = New Net.Mail.MailMessage()
            mail.From = New Net.Mail.MailAddress("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Sender Name[/color]")
            mail.To.Add(New Net.Mail.MailAddress("[color=#ff0000]ReceiverEmail@hotmaile.com[/color]"))
            mail.Subject = "[color=#ff0000]Test Message From VB4Arb[/color]"
            mail.Body = "[color=#ff0000]Hello[/color]"
            Dim SmtpServer As New Net.Mail.SmtpClient()
            SmtpServer.Credentials = New Net.NetworkCredential("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Password[/color]")
            SmtpServer.Port = 25
            SmtpServer.Host = "smtp.mail.yahoo.com"
            SmtpServer.EnableSsl = False
            SmtpServer.Send(mail)
            MsgBox("Succeeded")
        Catch ex As Exception
            MsgBox("Error" & " : " & ex.Message)
        End Try


جزاك الله خيرا على المساعده ولكن للاسف يظهر لي خطا ايضا

faild send mail


ارسال بريد الكتروني من البرنامج ؟ - Sajad - 14-11-12

السلام عليكم

ارفق المشروع للتعديل عليه

لان قد لا توجد بعض الدوال في vs2005 لهذا يظهر لك بعض الاخطاء


ارسال بريد الكتروني من البرنامج ؟ - مبرمج بلا حدود - 17-11-12

[COLOR="#008000"]
السلامعليكم ورحمة الله وبركاته
تفضل اخوية
ارفقتلك برنامجين بالسورس كنت قد حملتهما من المنتدى القديم
أسأل الله انتنفعك ان شاء الله
موجودة بالمرفقات للتحميل
بالتوفيق ان شاء الله
ربي يحفظك
[/COLOR]


ارسال بريد الكتروني من البرنامج ؟ - oneyemenweb2 - 18-11-12

ملاحظة على ما اعتقد yahoo.com المجاني لا يدعم smtp
استخدم gmail


ارسال بريد الكتروني من البرنامج ؟ - Mido9 - 20-11-12

جزاكم الله خيرا على مجهوداتكم , بارك الله فيكم

و لكن للاسف ولا حل نفع Sad


ارسال بريد الكتروني من البرنامج ؟ - مبرمج بلا حدود - 21-11-12

طيب جربهذا الحل للاستاذ sajad

sajad كتب :السلام عليكم

ارفق المشروع للتعديل عليه

لان قد لا توجد بعض الدوال في vs2005 لهذا يظهر لك بعض الاخطاء