كيفية استخدام مكتبة CDOSYS بإرسال رسالة بريد إلكتروني باستخدام منفذ SMTP في Visual Basic .NET

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية313775
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
تنبيه ADO و MD ADO لم يتم بشكل كامل اختبارها في بيئة Microsoft .NET Framework. قد تؤدي هذه إلى حدوث مشكلات متقطعة خاصة في التطبيقات المستندة إلى خدمة أو في تطبيقات ذات مؤشرات الترابط المتعددة. يجب استخدام التقنيات التي تمت مناقشتها في هذه المقالة فقط كإجراء مؤقت أثناء الترحيل إلى ADO.NET. يجب استخدام هذه التقنيات فقط بعد إجراء اختبار كاملة للتأكد من عدم وجود مشكلات توافق. أي من المشكلات التي تنتج عن طريق استخدام ADO أو MD ADO بهذه الطريقة غير معتمدة. لمزيد من المعلومات، راجع المقالة التالية في "قاعدة المعارف لـ Microsoft:
840667 تلقي أخطاء غير متوقعة عند استخدام ADO و MD ADO في تطبيق .NET Framework
الموجز
توضح هذه المقالة كيفية استخدام كائنات بيانات التعاون (CDO) لـ Windows 2000 (CDOSYS) مكتبة بإرسال رسالة بريد إلكتروني باستخدام منفذ بروتوكول نقل البريد البسيط (SMTP) في Microsoft Visual Basic .NET.
معلومات أخرى
لإرسال رسالة بريد إلكتروني باستخدام منفذ SMTP اتبع الخطوات التالية:
  1. بدء تشغيل Microsoft Visual Studio .NET.
  2. من القائمة ملف، أشر إلى جديد ثم انقر فوق المشروع.
  3. في القائمة أنواع مشاريع Visual Basic ، انقر فوق تطبيق وحدة التحكم.

    افتراضياً، يتم إنشاء ملف Module1.vb.
  4. إضافة مرجع إلى CDO عن Windows 2000 مكتبة Microsoft. للقيام بذلك، اتبع الخطوات التالية:
    1. من القائمة المشروع انقر فوق إضافة مرجع.
    2. انقر فوق علامة التبويب COM تحديد موقع CDO Microsoft لـ Windows 2000 مكتبة ثم ثم انقر فوق تحديد.
    3. في مربع الحوار إضافة مراجع ، انقر فوق "موافق".
    4. إذا تمت مطالبتك بإنشاء wrappers المكتبات التي حددتها انقر فوق "نعم".
  5. كرر الخطوة 4 لإضافة مرجع إلى مكتبة 2.5 كائنات بيانات Microsoft ActiveX.
  6. في إطار التعليمات البرمجية استبدل التعليمة البرمجية التالية: oMsg
    Imports System.ReflectionModule Module1    Sub Main()        Dim oMsg As CDO.Message = New CDO.Message()        Dim iConfg As CDO.Configuration        Dim oFields As ADODB.Fields        Dim oField As ADODB.Field         iConfg = oMsg.Configuration        oFields = iConfg.Fields        oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")        oField.Value = CDO.CdoSendUsing.cdoSendUsingPort       ' TODO: Replace with the port that you want to use . It must be the same       ' port that the SMTP server is using.       oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")        oField.Value = 25        ' TODO: Replace with your SMTP server.        oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")        oField.Value = "<SMTP Server>"        oFields.Update()        oMsg.Configuration = iConfg        oMsg.TextBody = "Test message body."        oMsg.Subject = "Test SMTP Message Send using port"        oMsg.From = "from@example.com"        oMsg.To = "to@example.com"        oMsg.Send()        oMsg = Nothing        iConfg = Nothing        oFields = Nothing        oField = Nothing    End SubEnd Module					
  7. البحث عن TODO في التعليمات البرمجية ثم قم بتعديل التعليمات البرمجية للبيئة الخاصة بك.
  8. اضغط F5 لإنشاء و لتشغيل البرنامج.
  9. تأكد من أنه تم إرسال رسالة البريد الإلكتروني و تم تلقي.
إرسال البريد CDOSYS SMTP المنفذ

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 313775 - آخر مراجعة: 12/07/2015 08:15:42 - المراجعة: 3.2

Microsoft ActiveX Data Objects 2.5, Microsoft Collaboration Data Objects 2.0, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbcode kbxml kbmsg KB313775 KbMtar
تعليقات