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

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

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

    افتراضياً، يتم إنشاء Module1.vb.
  5. إضافة مرجع إلى CDO Microsoft لمكتبة Windows 2000. للقيام بذلك، اتبع الخطوات التالية:
    1. من القائمة المشروع انقر فوق إضافة مرجع.
    2. ضمن علامة التبويب "COM" ، انقر فوق CDO عن Windows 2000 مكتبة Microsoft ثم انقر فوق تحديد.
    3. في مربع الحوار إضافة مراجع ، انقر فوق موافق لقبول التحديدات. إذا تلقيت موجه لإنشاء wrappers المكتبات التي حددتها انقر فوق "نعم".
  6. اتبع الخطوتين 5a خلال 5 c لإضافة مرجع إلى مكتبة 2.5 كائنات بيانات ActiveX Microsoft.
  7. في إطار التعليمات البرمجية استبدال كافة التعليمات البرمجية مع: oMsg
    Imports System.ReflectionModule Module1    Sub Main()        Dim oMsg As CDO.Message = New CDO.Message()        oMsg.From = "from@microsoft.com"        oMsg.To = "to@microsoft.com"        oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"        Dim sHtml As String        sHtml = "<HTML>" & _         "<HEAD>" & _         "<TITLE>Simple CDOSYS Message</TITLE>" & _         "</HEAD>" & _         "<BODY><P>" & _         "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _         "</BODY>" & _         "</HTML>"        oMsg.HTMLBody = sHtml        ' Set configuration.        Dim iConfg As CDO.Configuration = New CDO.Configuration()        Dim oFields As ADODB.Fields        oFields = iConfg.Fields        Dim oField As ADODB.Field        oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")        oField.Value = 1   ' Sets the configuration to use the local SMTP server.        oFields.Update()        oMsg.Configuration = iConfg        oMsg.Send()        oMsg = Nothing        iConfg = Nothing        oFields = Nothing        oField = Nothing    End SubEnd Module					
  8. البحث عن "TODO" في التعليمات البرمجية ثم قم بتعديل التعليمات البرمجية للبيئة الخاصة بك.
  9. اضغط F5 لإنشاء و لتشغيل البرنامج.
  10. تحقق من أن رسالة البريد الإلكتروني قد تم إرسالها وتلقيها.
إرسال البريد CDOSYS خدمة SMTP المحلي

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

خصائص

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

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

  • kbnosurvey kbarchive kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 KbMtar
تعليقات
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)