يعد البرنامج الناضج ضروريًا لدعم البريد الإلكتروني.
أولاً ، يستخدم Add Shellapi إلى جزء الواجهة من البرنامج ، لأن هذه الوحدة تغلف وظائف API التي نريد استخدامها. ثم يمكننا كتابة البرنامج. هنا هو رمز البرنامج:
الإجراء sendmail
var
S String
يبدأ
s ='mailto[email protected]''
Shellexecute0 'Open' pchars nil nil sw_shownormal
نهاية
وبهذه الطريقة ، أداء هذه العملية ، يمكنك فتح برنامج إرسال البريد الإلكتروني تلقائيًا وإرسال بريد إلكتروني إلى [email protected].
في الاستخدام الفعلي ، تحتاج أحيانًا إلى إرسال رسائل بريد إلكتروني إلى عدة صناديق بريد في نفس الوقت ، ما عليك سوى تغيير قيمة s.
s = 'mailto[email protected]؟ إلى = [email protected] & إلى = [email protected]'
وبهذه الطريقة يمكنك إرسال رسائل بريد إلكتروني إلى عدة صناديق بريد في نفس الوقت.
إذا كنت ترغب في تحديد عنوان البريد الإلكتروني ونصه ، فيمكنك تعيين قيمة لـ S:
s = 'mailto[email protected]؟ الموضوع = Hello & Body = Hello'
انتبه إلى:
1. ليست هناك حاجة لإضافة علامات اقتباس عند تعيين القيم إلى العنوان والنص.
2. على الرغم من أن العديد من المواد تقول: إذا كان العنوان والنص يحتوي على مساحات ، فيجب تحويله إلى ٪ 20. ومع ذلك ، أثناء عملية تصحيح الأخطاء ، يمكن للبرنامج تشغيل بشكل طبيعي حتى لو لم يتم تحويله.
يتم تشغيل هذا البرنامج وتمريره في Windows 2000 Professional و Delphi 5 و MS Outlook Express. لمزيد من المعلومات ، يرجى الاطلاع