الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة في ارسال ايميل عن طريق Exchange

بدأه sfaham في 2 أكتوبر 2012 · 7 رد · 1,045 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الكرام

لدي كود لإرسال ايميل عن طريق Exchange ...

وهو كالتالي :

Dim message As New MailMessage()

message.Subject = "Subject to send"

message.To.Add("info@xxxxxx.com")

message.From = New MailAddress("info@xxxxxxxxx.com")

message.IsBodyHtml = True

message.Body = "test"

Dim server As New SmtpClient("mail.xxxxxxxxxxxx.com")

server.Credentials = New System.Net.NetworkCredential("info@xxxxxxxxxxx.com", "xxxxxxxx")

server.Send(message)

المشكلة انه يعطيني خطأ باللون الازرق تحت الكلمات التي تحتها خط

علما انه تم استيراد Imports System.Net.Mail

فما هي المشلكة

هذي الرسالة الاولى للخطأ

Error 2 'SmtpClient' is ambiguous, imported from the namespaces or types 'System.Net.Mail, EASendMail'. C:\Users\Dell\Desktop\ExsenEmail\WindowsApplication1\Form1.vb 302 27 WindowsApplication1

وهذي الخطأ الثاني :

Error 1 'MailAddress' is ambiguous, imported from the namespaces or types 'System.Net.Mail, EASendMail'. C:\Users\Dell\Desktop\ExsenEmail\WindowsApplication1\Form1.vb 298 28 WindowsApplication1

ارجوا المساعدة العاجلة يا شباب

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

#2

السلام عليكم ...

  1. تظهر رسالة الــ Ambiguous عندما نعمل Imports للأكثر من namespace و كلاهما يحويان نفس اسم الــ Class مثلا System.Web.Mail و System.Net.Mail كلاهما يحوي Class اسمه MailMessage أو MailAddress (ربما) , فالمترجم لا يعرف أي من الصفين يستخدم.
  2. الحل هو ذكر اسم الصف كاملا مع الــ namespace مثلا 
    Dim messageObject As New System.Web.Mail.MailMessage()

    و هكذا بالنسبة لباقي الأخطاء .

2

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3
houssam11350_11350 كتب:

السلام عليكم ...

  1. تظهر رسالة الــ Ambiguous عندما نعمل Imports للأكثر من namespace و كلاهما يحويان نفس اسم الــ Class مثلا System.Web.Mail و System.Net.Mail كلاهما يحوي Class اسمه MailMessage أو MailAddress (ربما) , فالمترجم لا يعرف أي من الصفين يستخدم.
  2. الحل هو ذكر اسم الصف كاملا مع الــ namespace مثلا 
    Dim messageObject As New System.Web.Mail.MailMessage()

    و هكذا بالنسبة لباقي الأخطاء .

بيض الله وجهك ورحم الله والديك يا بطل اشهد انك أسد

نعم كان هذا هو الخطأ وتم التعديل وضبط الوضع

اشكرك بعنف وجزاك الله عني كل خير

#4

السلام عليكم ..

بارك الله بك اخي .. و لك مثل ما ذكرت ..

بالتوفيق

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#5

أخي حسام لدي مشكلة عند الارسال هل يمكنك مساعدتي انظر الصورة لو سمحت :

post-75457-033007800 1349255710_thumb.jp

المرفقات
eroor.jpg
#6

السلام عليكم ...

  1. هذا الموضوع طرح كثيرا , استخدم البحث (رابط).
  2. كود ارسال ايميل للعميل من الفورم
  3. ارسال email من خلال كود
  4. حاول تطبيق الطريقة في الرابطين السابقين و أخبرنا بالنتائج.
  5. قد يكون مزود خدمة البريد عندك لا يدعم الــ smtp أو قد يكون الــ firewall يمنع الاتصال للمنافذ المحددة (حاول إيقافه).
1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#7

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

اخي حسام

استخدمت هذا الكود من موقع اجنبي وهو شغال معي 100% ولكن المشكلة انه تجريبي لمدة شهر فقط والمشكلة الاكبر انه يطلبون مبلغ حوالي 1200 ريال والمشكلة في السنه يعني ليس ملكية كامله فحبيت اني اجد كود مستقل

Dim oMail As New SmtpMail("TryIt")

Dim oSmtp As New EASendMail.SmtpClient()

' Set sender email address, please change it to yours

oMail.From = "xxxxxx@xx.com"

' Set recipient email address, please change it to yours

oMail.To = tomail

'If tomailCD <> "" Then

oMail.Cc = tomailCD

'End If

'oMail.Bcc = tomailCD

' Set email subject

oMail.Subject = "Congratolation ...." & TxtID.Text

' Set email body

oMail.TextBody = "this is a test email sent from VB.NET project, do not reply"

' Your Exchange server address

Dim oServer As New SmtpServer("xxxxxx@xxxxxx.com.")

' Set Exchange Web Service protocol (EWS) - Exchange 2007/2010

oServer.Protocol = ServerProtocol.ExchangeEWS

' User and password for Exchange User authentication

oServer.User = "xxxxxx@xxxxxx.com"

oServer.Password = "102030"

' By default, Exchange Web Service requires SSL connection

oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

Try

Console.WriteLine("start to send email ...")

oSmtp.SendMail(oServer, oMail)

Console.WriteLine("email was sent successfully!")

Me.SaveSenderMail()

' MsgBox("send seccessfull...")

Catch ep As Exception

Console.WriteLine("failed to send email with the following error:")

Console.WriteLine(ep.Message)

'MsgBox("send not seccessfull...")

End Try

End If

طبعا فيه اداة من نوع DLL تكون مرفقة مع البرنامج وكل شهر اسوي Install من جديد

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

مرفق الاداة المذكورة

EASendMail40.zip

#8

السلام عليكم ...

  1. يبدو أنه Component غير مجاني , يقدم خدمة إرسال و استقبال البريد و خدمات أخرى ...
  2. من الأفضل الإطلاع على طريقة إرسال الإيميل كما في الروابط السابقة .
  3. إذا كان الــ Component يقدم لك خدمات لا تتوفر بالطرق الأخرى المجانية , فيمكنك شراؤه , أما لو كان ما تريده متوفر و بشكل مجاني فلا داعي لهدر الأموال .
2

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

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