Perangkat lunak dewasa sangat penting untuk dukungan email.
Pertama, tambahkan menggunakan shellapi ke bagian antarmuka program, karena unit ini merangkum fungsi API yang ingin kami gunakan. Kemudian kita bisa menulis program. Berikut ini kode program:
Prosedur sendmail
var
S string
Mulai
s ='mailto[email protected]'
Shellexecute0 'open' pchars nil nil sw_shownormal
end
Dengan cara ini, melakukan proses ini, Anda dapat secara otomatis membuka program pengiriman email dan mengirim email ke [email protected].
Dalam penggunaan aktual, kadang -kadang Anda perlu mengirim email ke beberapa kotak surat secara bersamaan, cukup ubah nilai s.
s = 'mailto[email protected]? ke = [email protected] & to = [email protected]'
Dengan cara ini Anda dapat mengirim email ke beberapa kotak surat secara bersamaan.
Jika Anda ingin menentukan judul dan teks dari email, Anda dapat memberikan nilai kepada S:
s = 'mailto[email protected]? subjek = halo & tubuh = halo'
Perhatikan:
1. Tidak perlu menambahkan tanda kutip saat menetapkan nilai ke judul dan teks.
2. Meskipun banyak bahan mengatakan: jika judul dan teks berisi spasi, itu perlu dikonversi menjadi %20. Namun, selama proses debugging, program dapat berjalan secara normal meskipun tidak dikonversi.
Program ini dijalankan dan disahkan di Windows 2000 Professional, Delphi 5, dan MS Outlook Express. Untuk informasi lebih lanjut, silakan lihat email keamanan email menggunakan topik server email dasar, atau