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

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

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

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

لإنشاء مصدر حدث قم بلصق التعليمة البرمجية التالية في ملف جديد ثم احفظ EventSinkScript.vbs.
<SCRIPT LANGUAGE="VBScript">Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)   TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."   HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."   If Msg.HTMLBody <> "" Then      'Search for the "</body>" tag and insert our 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 ' Commit the changes into the transport Stream   EventStatus = cdoRunNextSinkEnd Sub</SCRIPT>

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

لتسجيل مصدر الحدث استخدم الملف Smtpreg.vbs المثبتة مع SDK Exchange. استعرض للوصول إلى المجلد SDK\SDK\Support\CDO\Scripts ...\Exchange من موجه الأوامر، ثم اكتب ما يلي (تأكد من صحة المسار إلى EventSinkScript.vbs):
cscript smtpreg.vbs / add onarrival 1 SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "البريد from=*@your-domain-here.com"
onarrival /setprop 1 smtpreg.vbs cscript ScriptName مصدر SMTPScriptingHost "C:\EventSinkScript.vbs"
في حال نجاح الأمر تتلقى رسالة نجاح التي تم إنشاؤها بواسطة البرنامج النصي.

إلغاء تسجيل هذا الحدث, اكتب ما يلي:
cscript smtpreg.vbs/إزالة SMTPScriptingHost OnArrival 1
للحصول على مزيد من المعلومات حول تسجيل الأحداث مع Smtpreg.vbs راجع الموضوع "إدارة الربط الأحداث" على موقع MSDN التالي على الويب: لمزيد من المعلومات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
324021كيفية إنشاء مخزن علبة بريد "catchall" Exchange Server

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

لاختبار جهاز تخزين إرسال رسالة بريد إلكتروني إلى مستلم SMTP الذي خارجية المؤسسة الخاصة بك. يجب على المستلم تظهر رسالة معدلة مع إخلاء المسؤولية المضافة إلى نهاية الرسالة.

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

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

خصائص

رقم الموضوع: 317680 - آخر مراجعة: 12/07/2015 08:56:24 - المراجعة: 10.4

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

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