การใช้อีเมลใน Delphi

ซอฟต์แวร์ที่เป็นผู้ใหญ่เป็นสิ่งจำเป็นสำหรับการสนับสนุนอีเมล

ขั้นแรกให้เพิ่มใช้ Shellapi ไปยังส่วนอินเตอร์เฟสของโปรแกรมเนื่องจากหน่วยนี้สรุปฟังก์ชั่น API ที่เราต้องการใช้ จากนั้นเราสามารถเขียนโปรแกรม นี่คือรหัสของโปรแกรม:

ขั้นตอนsendmail

วาจา

SString

เริ่ม

S  = 'Mailto[email protected]'

Shellexecute0 'Open'pcharsnilnilsw_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 สำหรับข้อมูลเพิ่มเติมโปรดดูอีเมลความปลอดภัยทางอีเมลใช้หัวข้อเซิร์ฟเวอร์อีเมลพื้นฐานหรือ