استخدم VB6 لكتابة برامج لإرسال رسائل البريد الإلكتروني هناك مجموعة متنوعة من مكونات البريد الإلكتروني للاختيار من بينها، مثل MAPIMessages، وCDONTS (NTSCollaborationDataObjects) المضمنة في IIS4.0، وبرامج البريد الإلكتروني التي تم تطويرها بواسطة العديد من الشركات المصنعة التابعة لجهات خارجية. يقدم هذا المقال كيفية استخدام CDONTS لتطوير برنامج بريد ضمن VB.
1. تأكد من تثبيت خادم SMTP
أولاً، يجب عليك التأكد من تثبيت خادم SMTP على خادم IIS. وهذا هو الخيار الذي يتم تثبيته افتراضيًا عند تثبيت OptionPack. إذا تم تثبيت خادم SMTP، فسيكون هناك ملف باسم cdonts.dll في دليل System32.
2. أبسط برنامج لإرسال البريد الإلكتروني
فيما يلي أبسط برنامج لإرسال البريد الإلكتروني، حيث يقوم بإرسال بريد إلكتروني بعنوان "العنوان" والمحتوى "مرحبًا" من [email protected] إلى [email protected]:
PRivateSubcmdSendMail_Click()
DimobjmailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
ObjMail.Send"[email protected]"، "[email protected]"، "العنوان"، "مرحبا"
SetobjMail=لا شيء
EndSub
3. إرسال مرفقات البريد الإلكتروني
إذا كان هناك ملف مرفق يجب إرساله مع البريد الإلكتروني، فيمكنك استخدام طريقة AttachFile الخاصة بـ CDONTS:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
معObjMail
.من = "[email protected]"
.إلى = "[email protected]"
.الموضوع = "العنوان"
.الجسم = "مرحبا"
"إرفاق الملف"ج:/document/sample.doc"،"sample.doc"
.يرسل
نهاية مع
SetobjMail=لا شيء
EndSub
4. الخصائص والأساليب الشائعة الاستخدام لمكونات CDONTS
يتم سرد الخصائص والأساليب شائعة الاستخدام لمكونات CDONTS أدناه:
ملكية:
الإصدار: إرجاع رقم إصدار مكون CDONTS
MailFormat: تنسيق البريد الإلكتروني، نوع النص العادي 1-نوع MIME
نسخة إلى: قم بتعيين عنوان بريد إلكتروني واحد أو أكثر كمرجع
من: عنوان مرسل البريد الإلكتروني
إلى: عنوان مستلم البريد الإلكتروني
الموضوع: عنوان
الجسم: المحتوى
BodyFormat: تنسيق المحتوى، 1-نص عادي؛ 0-نص تشعبي
طريقة:
AttachFile: إرفاق ملف
AttachURL: إرفاق عنوان
إرسال: إرسال البريد الإلكتروني
5. إرسال البريد الإلكتروني بتنسيق النص التشعبي
لا بد أنك شاهدت العديد من رسائل البريد الإلكتروني التي تستخدم تنسيق النص التشعبي، والذي لا يمكن أن يحتوي على صور وأصوات فحسب، بل يتضمن أيضًا رسومًا متحركة. إذا قمت بإرسال مثل هذا البريد الإلكتروني إلى صديقك، فمن المؤكد أنه سيجلب له مفاجأة غير متوقعة، لأن هذا شيء لا تستطيع برامج إرسال البريد الإلكتروني العادية القيام به. فيما يلي يستخدم مكون CDONTS لإرسال بريد إلكتروني بتنسيق HTML، والذي يحتوي على صورة باسم Sample.gif والبرنامج كما يلي:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
DimstrHTMLasString
StrHTML = ""html〉〈الرأس〉"
StrHTML=StrHTML "〈title〉Email〈/title〉〈/head〉 باستخدام تنسيق النص التشعبي
StrHTML=StrHTML "〈body〉〈p〉〈strong〉مثال لإرسال البريد الإلكتروني باستخدام CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉 يحتوي المثال أعلاه على صورة مضمنة Sample.gif〈/p〉"
StrHTML=StrHTML "〈/body〉〈/html〉"
معObjMail
.من = "[email protected]"
.إلى = "[email protected]"
.الموضوع = "العنوان"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif"، "sample.gif"
.تنسيق الجسم=0
تنسيق البريد الإلكتروني=0
.يرسل
نهاية مع
SetobjMail=لا شيء
EndSub
في هذه المرحلة، أعتقد أنك لا بد أن تكون قد اكتشفت خللًا في معالجة البريد الإلكتروني عبر SMTP. يتلقى خادم SMTP رسالتك المخرجة، لكنه لا يتحقق من اسم المرسل وعنوانه، ويتم تحديد ذلك من خلال آلية الإرسال غير المتزامن لـ SMTP، ولكن قد يستخدمها شخص ما لدوافع خفية للتظاهر بأنه شخص آخر وإرسال رسائل بريد إلكتروني! توصي هذه المقالة بشدة بعدم تجربة ذلك بسهولة بمجرد أن يعرف موفر خدمة الإنترنت سلوكك، فمن المرجح أن يتم حذف حسابك على الفور. ->