ซอฟต์แวร์ที่เป็นผู้ใหญ่เป็นสิ่งจำเป็นสำหรับการสนับสนุนอีเมล
ขั้นแรกให้เพิ่มใช้ Shellapi ไปยังส่วนอินเตอร์เฟสของโปรแกรมเนื่องจากหน่วยนี้สรุปฟังก์ชั่น API ที่เราต้องการใช้ จากนั้นเราสามารถเขียนโปรแกรม นี่คือรหัสของโปรแกรม:
ขั้นตอนsendmail
วาจา
SString
เริ่ม
S = 'Mailto[email protected]'
Shellexecute0 'Open'pcharsnilnilsw_shownormal
สิ้นสุด
ด้วยวิธีนี้การดำเนินการตามกระบวนการนี้คุณสามารถเปิดโปรแกรมส่งอีเมลโดยอัตโนมัติและส่งอีเมลไปที่ [email protected]
ในการใช้งานจริงบางครั้งคุณต้องส่งอีเมลไปยังกล่องจดหมายหลายกล่องในเวลาเดียวกันเพียงเปลี่ยนค่าของ S
s = 'mailto[email protected]? to = [email protected] & to = [email protected]'
วิธีนี้คุณสามารถส่งอีเมลไปยังกล่องจดหมายหลายกล่องในเวลาเดียวกัน
หากคุณต้องการกำหนดชื่อและข้อความของอีเมลคุณสามารถกำหนดค่าให้กับ S:
s = 'mailto[email protected]? Subject = Hello & Body = Hello'
ให้ความสนใจกับ:
1. ไม่จำเป็นต้องเพิ่มเครื่องหมายใบเสนอราคาเมื่อกำหนดค่าให้กับชื่อและข้อความ
2. แม้ว่าวัสดุจำนวนมากจะพูดว่า: หากชื่อและข้อความมีช่องว่างก็ต้องถูกแปลงเป็น %20 อย่างไรก็ตามในระหว่างกระบวนการดีบักโปรแกรมสามารถทำงานได้ตามปกติแม้ว่าจะไม่ได้แปลงก็ตาม
โปรแกรมนี้เรียกใช้และส่งผ่านใน Windows 2000 Professional, Delphi 5 และ MS Outlook Express สำหรับข้อมูลเพิ่มเติมโปรดดูอีเมลความปลอดภัยทางอีเมลใช้หัวข้อเซิร์ฟเวอร์อีเมลพื้นฐานหรือ