كود ارسال ايميل للعميل من الفورم

#119 يونيو 2011 في 21:48 صاحب الموضوع

السلام عليكم

احتاج لكود ارسال ايميل للعميل من الفورم

عندي كود لكن لايعمل

اذا يوجد به اخطاء او اذا يتوفر كود اخر يودي نفس الغرض

وشاكره لكم

smtpClient :هذا هو الكائن المسؤول عن عملية الإتصال بخادم البريد والإرسال

Dim smtpClient As New SmtpClient("smtp.live.com", 25)

'MailMessage: هو الكائن المسؤول عن اسم المرسل والمستقبل والرسالة '

Dim message As New MailMessage("*****@hotmail.com", "*****@gmail.com", "Hi", TextBox3.Text)

'Try

'Dim fromAddress As New MailAddress("****@gmail.com", "ANjEL")

' يجب عليك أن تعرف الهوست ا.لخاص بالشركة التي تتعامل معها

"smtp.live.com" على سبيل المثال الهوست للهوتميل هو

"smtp.mail.yahoo.com" الياهو

"smtp.gmail.com" جي ميل

"localhost" الهوست الأساسي هو

smtpClient.Host = "smtp.gmail.com"

' والمنفذ للهوتميل و الياهو هو 25

'المنفذ للجي ميل هو 465

'المنفذ الأساسي هو 25

smtpClient.Port = 465

'ايميل المرسل

message.From = fromAddress

' بريدك الإليكتروني

يتم كتابة البريد المستلم هنا بين القوسين "admin@domain.com"

'message.To.Add("*****@hotmail.com")

' الموضوع

'message.Subject = "Hi"

' HTML هل البريد يحتوي على رمز الـ

'ليتم عرضها بكامل الخصائص

IsBodyHtml = False نحن سنرسل نص فقط لذلك جعلنا الـ

message.IsBodyHtml = False

' نص الرسالة

message.Body = TextBox3.Text

' الإرسال

smtpClient.Send(message)

MsgBox("Email successfully sent..")

Catch ex As Exception

MsgBox("Send Email Failed: " & ex.Message)

End Try

#219 يونيو 2011 في 23:14

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Dim msg As New MailMessage("Sender@gmail.com", "ReceiverEmail")
msg.Subject = "Test message using SMTP"
msg.Body = "This is just a test message!!"
Dim smpt As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = true
smtp.Credentials = new NetworkCredential("Username", "Password")
Try
smtp.Send(msg)
MessageBox.Show("Message has been sent!!")
Catch ex As Exception
MessageBox.Show("Message failed!!")
End Try

.:: Wish to become better and better ::.

#320 يونيو 2011 في 17:39

يعطيك العافيه اخوي

بس ماضبط الكود

الي عندي 8 اعتقد يناسب 5 هذا الكود

والمعذره التبس علي اخطاءت بالكود

الي ابغاه هو ارسال العميل ايميل للبرنامج من الفورم

فيه فرق او لا

#420 يونيو 2011 في 17:53

السلام عليكم ورحمه الله وبركاته

اختي البرنامج مجرب 100% وممكن مستعد اعطيت حسابي في ال Gmail للتأكد!!

.:: Wish to become better and better ::.

#520 يونيو 2011 في 17:58

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

يعطيك العافيه اخوي

الكود فيه خطاء هو يحتاج الى تعريف او اي اضافات اخرى ؟

#620 يونيو 2011 في 18:37

الموضوع ان شاء الله سهل

لقد قمت ببعض التعديلات البسيطة علي الكود المرسل من الاخ VB Helper ليكون تفاعلي اكثر من الكود المرفق ووصلت للشكل التالي

نتيجة ارسال الايميل في Out Look

المرفقات

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 20 يونيو 2011 في 18:38

#721 يونيو 2011 في 01:10

السلام عليكم ورحمه الله وبركاته

اختي كان خطأ اثنا التنسيق فقط غيري السطر التالي

Dim smtp As New SmtpClient("smtp.gmail.com")

.:: Wish to become better and better ::.

#821 يونيو 2011 في 18:43

[اشكركم على هذا الموضوع المفيد

لكن هناك ملاحظات بسيطة

لو امكنكم وضع شرح وافي للكود مع مثال

اذا سمحتهم

اشكركم

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#922 يونيو 2011 في 02:22

هذا هو الكود كامل بدون أخطاء أو مشاكل

Imports System.Net.Mail.MailMessage
Imports System.Net
Imports System.Net.Mail

Public Class Send_Email

    Private Sub BtnSendMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSendMail.Click

        Dim msg As New MailMessage("Sender@gmail.com", "ReceiverEmail") 
msg.Subject = "Test message using SMTP" 
msg.Body = "This is just a test message!!" 
Dim smtp As New SmtpClient("smtp.gmail.com") 
smtp.EnableSsl = true 
smtp.Credentials = new NetworkCredential("Username", "Password") 
Try 
smtp.Send(msg) 
MessageBox.Show("Message has been sent!!") 
Catch ex As Exception 
MessageBox.Show("Message failed!!") 
End Try

    End Sub
End Class

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 22 يونيو 2011 في 02:24

#1022 يونيو 2011 في 08:29

السلام عليكم

اشكرك جدا اخي محمد الكود فعال وتمام

لكن عند محاولتي لارسال لل(yahoo) او (hotmail)

لا يرسل

هل من الممكن ان توضح كيفية عمل هذه الخطوة

لانني حاولت ولم تنجح

اشكرا :rolleyes:

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#1122 يونيو 2011 في 10:16

السلام عليكم ورحمه الله وبركاته

اخي بالنسبه للياهو شوف الرابط التالي http://www.emailarchitect.net/easendmail/kb/vbnet.aspx?cat=3, اما الهوتميل شوف الرابط التالي http://www.emailarchitect.net/easendmail/kb/vbnet.aspx?cat=4

.:: Wish to become better and better ::.

#1222 يونيو 2011 في 16:22

السلام عليكم

اشكرك اخي الكريم على سرعة الرد واشكرك ايضا على المواضيع التي وضعتها

وقد قمت بتطبيق المواضيع لكن للاسف لا نتيجة

حيث عند التنفيذ يعطيني الخطاء التالي

Sending Failure

لا اعرف السبب

وهذا الكود الذي استخدمته

Imports System.Net
Imports System.Net.Mail
 Try
            Dim mail As New MailMessage("Sender@yahoo.com", "recepient@yahoo.com")
            Dim smtp As New SmtpClient

            mail.IsBodyHtml = False
            mail.Subject = "test mail"
            smtp.Host = "mail.yahoo.com"
            smtp.Credentials = New NetworkCredential("user@yahoo.com", "Password")
            smtp.Send(mail)
            MsgBox("E-mail Sent")
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Send Fial")
            Exit Sub
        End Try

ارجو الافادة

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#1323 يونيو 2011 في 05:56

السلام عليكم ورحمه الله وبركاته

اخي قمت بتعدل الكود وشغال 100%

Try
Dim mail As New MailMessage("hishamco_2007@yahoo.com", "hishamco_2007@yahoo.com")
Dim smtp As New SmtpClient("smtp.mail.yahoo.com", 587)
mail.IsBodyHtml = False
mail.Subject = "test mail"
smtp.Credentials = New NetworkCredential("hishamco_2007", "***")
smtp.Send(mail)
MsgBox("E-mail Sent")
Catch ex As Exception
MsgBox("Send Fail")
Exit Sub
End Try

.:: Wish to become better and better ::.

#1423 يونيو 2011 في 17:48

يعطيكم العافيه جربت الكود وضبط التشغيل

لكن هو يحتاج الى

'يجب عليك أن تعرف الهوست ا.لخاص بالشركة التي تتعامل معها

على سبيل المثال

' "smtp.live.com" الهوست للهوتميل هو

' "smtp.mail.yahoo.com" الياهو

' "smtp.gmail.com" جي ميل

'"localhost" الهوست الأساسي هو

'smtpClient.Host = "smtp.gmail.com"

' والمنفذ للهوتميل و الياهو هو 25

' المنفذ للجي ميل هو 465

'المنفذ الأساسي هو 25

انا جربت على الهوتميل ونفذته برقم25 واشتغل

Dim msg As New MailMessage("يجب وضع بريد الكتروني ليعمل الكود@hotmail.com", "يجب وضع بريد الكتروني ليعمل الكود@hotmail.com")
'عنوان الرساله ومكان نصها
msg.Subject = TextBox1.Text
msg.Body = TextBox11.Text
smtp.EnableSsl = True
smtp.Credentials = New NetworkCredential("يجب وضع بريد الكتروني ليعمل الكود@hotmail.com", "وضع كلمة مرور البريد الالكتروني ")
' البريد المرسل منه والباس ورد
Try
smtp.Send(msg)
MessageBox.Show("تم ارسال الرسالة بنجاح ، قد يتم الرد عليك قريباً .. شكرا لك ")
Catch ex As Exception
MessageBox.Show("فشل ارسال الرسالة .. حاول مرة اخرى ")
End Try
End Sub

 Dim smtp As New System.Net.Mail.SmtpClient("smtp.live.com", 587)

جزاكم الله خير عالافاده وماقصرتووو والله

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 23 يونيو 2011 في 21:24

#1523 يونيو 2011 في 18:46

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب اختي .. بالتوفيق ..

.:: Wish to become better and better ::.

#1624 يونيو 2011 في 14:32

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

اود شكركم جزيل الشكر على معروفكم معنا و مساعدتنا في هذا الموضوع

الاخ محمد فوائد

الاخ vb helper

اشكرك

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#1724 يونيو 2011 في 16:48

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب اخي .. بالتوفيق ..

.:: Wish to become better and better ::.

#1824 يونيو 2011 في 21:51

اقتباس
الاخ محمد فوائد

لا شكر علي واجب لكن انا اسمي محمد فؤاد وليس محمد فوائد :huh:

#1925 يونيو 2011 في 20:12

ههههههههههههههههههههههههههههههههه

الاخ محمد فؤاد

غني عن التعريف اخي

اعتذر على الاخطاء الاملائية وذلك لاستعجالي على الموضوع

واكرر الشكر

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#2026 يونيو 2011 في 00:54

الاخوة الزملاء

تم تطوير الكود المرفق من الاخ VB Helper

وأخرجت الكود بشكل يحاكي برنامج الــ out look وأضفت له بعض الاضافات البسيطة أتمني أن تنال اعجابكم جميعا وطبعا الموضوع متاح لكل من يريد ان يضيف او يطور في هذا البرنامج البدائي جداااااً

1 - تم اضافة زر جديد لاضافة مرفق مع الرسالة

2 - تم وضع ComboBox مزود بمزود الخدمة الخاصة Hot mail , Yahoo and Gmail مع ضبط SSL لكل سيرفر بشكل تلقائي بحيث عن اختيار مزود الخدمة يتم ادراج Server name and Port تلقائي

سأترككم مع الشرح المصور والمثال المرفق وأتمني ان يحوز الاعجاب

بالتوفيق للجميع

Send Emails By VB.Net.rar

المرفقات

#2126 يونيو 2011 في 01:09

السلام عليكم ورحمه الله وبركاته

شكرا اخ محمد على هذا الانجاز ولكن اريد ان انوه انه لو تم تغيير عنوان المرسل لأن يغير شيء!! لذا انصح بعمل شاشة تسجيل دخول للمستخدم ومنها يحدد في الشاشة الاخر اسم المرسل اليه وبقية التفاصيل كما هو موجود في المثال اعلاه .. بالتوفيق ..

.:: Wish to become better and better ::.

#2226 يونيو 2011 في 01:19

والله فكرة رائعة وفي غاية الجمال

عموما المثال الذي طرحتة كما قلت سابقا محل التطوير لذلك اقترح من يحب ان يضيف ويطور في المثال المرفق اهلا ومرحبا به اما من جهتي لا انوي ان اجعل من البرنامج out look آخر لكن ما كان يهمني هو فهم فكرة ارسال الايميلات مع مرفق فقط و تجميع معلومات عن الخدمات المقدمة من الهوت ميل والياهو والجي ميل وكما قلت سابقاً ايضا انني لا اريد ان تكون هذه المشاركة عبارة عن اكواد رايحة واكواد جاية وتجارب ناجحة واخري فاشلة ولذلك قمت بتصميم هذا المثال وعمل عليه بعض التعديلات والتطويرات ليكون مرجع لجميع الاعضاء الذين يبحثون عن موضوع مماثل لهذه المشاركة ويكون مثال عملي يعمل بدون مشاكل أو أخطاء

شكراً لك أخي VB Helper

و بالتوفيق للجميع

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 26 يونيو 2011 في 01:22

#2326 يونيو 2011 في 08:00

اشكرك اخي محمد فؤاد على ذا المجهود الطيب

ومنها للاعلى

بالتوفيق

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#2426 يونيو 2011 في 18:01

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب اخي .. بالتوفيق ..

.:: Wish to become better and better ::.

#2526 يونيو 2011 في 20:38

اقتباس
اشكرك اخي محمد فؤاد على ذا المجهود الطيب
ومنها للاعلى
بالتوفيق

بارك الله فيك أخي عبد الرحمن " محمد فؤاد " Bold :lol:

كود ارسال ايميل للعميل من الفورم

المرفقات

المرفقات

مواضيع مشابهة