• 0
Gla

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

سؤال

السلام عليكم

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

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

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

وشاكره لكم

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

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

يتم كتابة البريد المستلم هنا بين القوسين "[email protected]"

'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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

25 إجابة على هذا السؤال .

  • 0

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

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


Dim msg As New MailMessage("[email protected]", "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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

فيه فرق او لا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

u61W6-mAJj_329491645.PNG

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

post-46243-018658200 1308584100_thumb.jp

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

post-46243-010977400 1308584102_thumb.jp

تم تعديل بواسطه محمد فؤاد تركي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

اذا سمحتهم

اشكركم

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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("[email protected]", "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

تم تعديل بواسطه محمد فؤاد تركي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

لا يرسل

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

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

اشكرا :rolleyes:

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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

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

Sending Failure

لا اعرف السبب

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


Imports System.Net
Imports System.Net.Mail
Try
Dim mail As New MailMessage("[email protected]", "[email protected]")
Dim smtp As New SmtpClient

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

ارجو الافادة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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


Try
Dim mail As New MailMessage("[email protected]", "[email protected]")
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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

' "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)

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

تم تعديل بواسطه محمد فؤاد تركي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

الاخ vb helper

اشكرك

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
الاخ محمد فوائد

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

واكرر الشكر

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

post-46243-064257100 1309038827_thumb.jp

post-46243-061530600 1309038831_thumb.jp

Send Emails By VB.Net.rar

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

تم تعديل بواسطه محمد فؤاد تركي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

ومنها للاعلى

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


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

ومنها للاعلى

بالتوفيق

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

ولكن لدي سؤال 

لو كنت انا امتلك ايميل ياهو اما الشخص الاخر يمتلك ايميل من نوع جي ميل 

فهل يجوز الارسال من الياهو الى الجي ميل 

وشكرا لكم 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .