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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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

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

SaLoOoMX كتب :تفضل اخي هذا المثال اسف لا اعلم smtp الياهو تستطيع التعديل عليه لاحقا


للاسف المثال لا يعمل معي Sad قد يكون بسبب اختلاف الاصدار Sad

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

sajad كتب :بسم الله الرحمن الرحيم

انظر هذا الموقع

http://stackoverflow.com/questions/684454/how-to-send-mail-from-yahoo-mail-id-in-vb-net-or-c-net-code


انا جربت هذا الكود
كود :
Dim m As MailMessage = New MailMessage
    m.From = New MailAddress("you@yahoo.com", "Your Name")
    m.To.Add(New MailAddress("Recipient@somedomain.com", "Recipient Name"))
    m.Subject = "Hello"
    ' Specify an HTML message body
    m.Body = "<html><body><h1>My Message</h1><br>Put the body here.</body></html>"
    m.IsBodyHtml = True
    ' Send the message
    Dim client As SmtpClient = New SmtpClient("smtp.mail.yahoo.com")
    client.Send(m)
و لكن للاسف يوجد خطأ فى هذا السطر

client.Send(m)

حيث ان البرنامج يتوقف و يجلب لي هذا السطر Sad

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

ahmed salam كتب :السلام عليكم و رحمة الله و بركاته
اخي الكريم اول شي قم بكتابة في اعلي صفحة الكود و قبل كل شي
كود :
Imports System.Web
Imports System.IO
Imports System.Net.Mail

ثم في زر الارسال
كود :
Try
            Dim mail As New MailMessage
            Dim SmtpServer As New SmtpClient
            SmtpServer.Credentials = New Net.NetworkCredential("اسم ايميلك", "كلمة المرور")
            SmtpServer.Port = 995
            SmtpServer.Host = smtp.mail.yahoo.com
            SmtpServer.EnableSsl = True
            SmtpServer.EnableSsl = True
            mail.To.Add("الميل المراد الارسال اليه")
            mail.From = New MailAddress("اسم ايميلك")
            mail.Subject = "عنوان الرسالة"
            mail.Body = "نص الرسالة"
            mail.Attachments.Add(New Attachment("مكان المرفق المراد ارسالة"))
            SmtpServer.Send(mail)
            MsgBox("تم الارسال")
        Catch ex As Exception
            MsgBox("حدث خطأ ائناء الارسال")
        End Try

لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته

جزاك الله خيرا اخي على المساعده شكرا لك

و لكن للاسف عند التطبيق ظهر لي هذا الخطأ

name 'smtp' is not declared

ياريت لو لديك اي حل و جزاك الله خيرا Smile

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

ارفقت لك المثال جاهز بكوده بدون اخطاء في نفس الموضوع

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

SaLoOoMX كتب :ارفقت لك المثال جاهز بكوده بدون اخطاء في نفس الموضوع

جزاك الله خيراً على تعبك ,, بارك الله فيك ,, ولكن بعد تجربة الكود وجدته للجيميل فقط Sad

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

Mido9 كتب :جزاك الله خيرا اخي على المساعده شكرا لك

و لكن للاسف عند التطبيق ظهر لي هذا الخطأ

name 'smtp' is not declared

ياريت لو لديك اي حل و جزاك الله خيرا Smile

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

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

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

السلام عليكم

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

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

Visual Studio 2012

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

ahmed salam كتب :Visual Studio 2012

بارك الله فيك اخي العزيز لكن انا اسأل صاحب الموضوع Smile

لان الدوال تختلف من .NETFramework الى آخر

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

اسف اخي الكريم للتدخل