أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية إضافة تنازل الرسائل SMTP الصادرة في Visual Basic

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

اضغط هنا لرابط المقالة باللغة الانجليزية317327
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
للحصول على إصدار Microsoft Visual Basic Scripting Edition من هذه المقالة، راجع 317680.
مقدمة حول
توضح هذه المقالة خطوة بخطوة كيفية استخدام SMTP مصدر الحدث النقل لإضافة تنازل إلى رسائل البريد الإلكتروني SMTP الصادرة.

إنشاء مصدر الحدث

  1. إنشاء DLL ActiveX "Visual Basic Microsoft. اسم المشروع SMTPEventSink ثم قم بتسمية وحدة نمطية المسئولية.
  2. ضمن مراجع Project إضافة CDO Microsoft Exchange 2000 المكتبة ثم قم بإضافة "مكتبة COM كائنات ملحق الملقم".
  3. ضع التعليمات البرمجية التالية في الوحدة النمطية:
    Dim TextDisclaimer As StringDim HTMLDisclaimer As StringImplements IEventIsCacheableImplements CDO.ISMTPOnArrivalPrivate Sub IEventIsCacheable_IsCacheable()    'Just returns S_OK.End SubPrivate Sub Class_Initialize()  'TODO: Replace the sample disclaimer text with your own text.  TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer Text."  HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer Text"End SubPrivate Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)    If Msg.HTMLBody <> "" Then        Dim szPartI As String        Dim szPartII As String        Dim pos As Integer                'Search for the "</body>" tag and insert the disclaimer before that tag.        pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)        szPartI = Left(Msg.HTMLBody, pos - 1)        szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))        Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII    End If    If Msg.TextBody <> "" Then        Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf    End If        'Commit the content changes to the transport ADO Stream object.    Msg.DataSource.Save    EventStatus = cdoRunNextSinkEnd Sub					
  4. استبدال نص التنصّل نموذج مع النص إخلاء المسؤولية كما ثم إنشاء DLL.

تسجيل مصدر الحدث

لتسجيل مصدر الحدث استخدام ملف Smtpreg.vbs المثبتة مع مجموعة تطوير البرامج (SDK) Exchange.
  1. في موجه الأوامر, حدد موقع المجلد \Exchange SDK\SDK\Support\CDO\Scripts ومن ثم اكتب ما يلي: cscript smtpreg.vbs / add 1 SMTPEventSink.Disclaimer SMTPDisclaimer OnArrival "البريد from=*@your-domain-here.com"

    إذا نجح هذا الأمر تتلقى رسالة نجاح الذي تم إنشاؤه بواسطة البرنامج النصي.
  2. إلغاء تسجيل هذا الحدث, اكتب ما يلي: cscript smtpreg.vbs/إزالة SMTPDisclaimer OnArrival 1
للحصول على معلومات إضافية حول إدارة عمليات ربط الحدث قم بزيارة موقع شبكة مطوري Microsoft (MSDN) التالي على الويب:

اختبار مصدر الحدث

لاختبار مصدر الحدث بإرسال رسالة بريد إلكتروني إلى مستلم SMTP "الذين خارجية المؤسسة الخاصة بك. يتلقى المستلم رسالة معدلة مع نص التنصّل المضافة إلى نهاية الرسالة.

ملاحظة إذا كنت تستخدم عميل MAPI مثل Microsoft Outlook إرسال رسالة البريد الإلكتروني للمستلم لا يتلقى رسالة بريد إلكتروني تم تعديلها. ويرجع ذلك إلى أن رسالة البريد الإلكتروني التي تم إرسالها باستخدام MAPI غير بتنسيق SMTP عندما تشغل رسالة البريد الإلكتروني الحدث نقل SMTP. لذلك، لا يتم الدائمة التغييرات التي يتم إجراؤها بواسطة رمز الحدث.
مراجع
للحصول على معلومات إضافية، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
273233لا يمكن تغيير محتويات الرسالة MAPI في مصدر حدث SMTP CDO

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

خصائص

رقم الموضوع: 317327 - آخر مراجعة: 12/07/2015 08:51:32 - المراجعة: 8.7

Microsoft Exchange Server 2003 Standard Edition, Microsoft Exchange Server 2003 Enterprise Edition, Microsoft Exchange 2000 Server Standard Edition, Collaboration Data Objects for Exchange 2000, Microsoft Collaboration Data Objects 2.0

  • kbnosurvey kbarchive kbmt kbhowtomaster KB317327 KbMtar
تعليقات