成熟したソフトウェアは、電子メールサポートに不可欠です。ユーザーは、プログラムインターフェイスのリンクをクリックすることでこの機能を実装できます。
最初に、このユニットは使用するAPI関数をカプセル化するため、プログラムのインターフェイス部分にShellapiを使用します。その後、プログラムを書くことができます。これがプログラムのコードです:
手順sendmail
var
sstring
始める
s='mailto[email protected]'
shellexecute0 'open'pcharsnilnilsw_shownormal
end
このようにして、このプロセスを実行すると、電子メール送信プログラムを自動的に開き、[email protected]にメールを送信できます。
実際に使用すると、いくつかのメールボックスに電子メールを同時に送信する必要がある場合があり、sの値を変更するだけです。
s= 'mailto[email protected]? to = [email protected]&to = [email protected]'
これにより、複数のメールボックスに電子メールを同時に送信できます。
メールのタイトルとテキストを決定する場合は、値をsに割り当てることができます。
s= 'mailto[email protected]?件名= hello&body =hello'
注意してください:
1.タイトルとテキストに値を割り当てるときに引用符を追加する必要はありません。
2。多くの資料は言っていますが、タイトルとテキストにスペースが含まれている場合、%20に変換する必要があります。ただし、デバッグプロセス中、プログラムは変換されなくても正常に実行できます。
このプログラムは、Windows 2000 Professional、Delphi 5、およびMS Outlook Expressで実行され、渡されます。 詳細については、電子メールセキュリティメールを参照してください。