ソリューションが他の電子メールクライアントとスムーズに統合できるようにするために、しばしば「既視」または「緊急」などの情報を追加する必要があります。IMAPプロトコルは、この追加情報を管理するために、フラグのリストをメッセージに関連付けることができます。4D v18 R6には、IMAPフラグを追加または削除するIMAP Transporterオブジェクトのための一連の関数が含まれています。
IMAPプロトコルでは、5つのフラグを管理することができます。
- \￤メッセージが読まれました。メッセージは読み込まれました。
- \⑭Answered:メッセージに応答しました。
- \￤フラグ付き。メッセージは緊急/特別な注意のための “フラグ “としてマークされています。
- \Ȃ 削除メッセージは “削除予定 “としてマークされます。実際に削除が有効になるのは expunge()関数が呼び出されたとき、メールボックスを切り替えたとき、または接続を閉じたときに有効になります。このフラグはすでに delete()関数によって追加されています。
- \下書きです。メッセージの作成が完了していない（下書きと表示されている）。
フラグを追加する
メールのフラグを管理するには、メールサーバーに接続し、メールボックスを選択する必要があります。以下の例では、受信箱のメールボックスを使用します。
var $transporter :4D.IMAPTransporter
$transporter :=IMAP New transporter($serverInfo)
$boxInfo :=$transporter.selectBox("inbox")
メールにフラグを追加するには、メールオブジェクトのように、設定したいすべてのフラグを含むキーワードオブジェクトを作成し、それらをパラメータとして addFlags()関数のパラメータとして渡します。例えば、いくつかのメールを下書きとしてマークしたい場合です。
$mails:=$transporter.searchMails("subject \")
$keywords :=New object
$ keywords .$draft:=True
$transporter .addFlags($mails;$keywords )
フラグの削除
同様に、メールからフラグを削除するには、keywordsオブジェクトを作成して removeFlags()関数に渡します。例えば、マークされた電子メールの削除を避けるために、メールボックスのすべての \Deleted フラグを削除したい場合。
$mails:=$transporter.searchMails("deleted")
$ keywords :=New object
$ keywords .$deleted:=True
$transporter .removeFlags($mails;$keywords )）。
メールの削除
以前のブログ記事で、メールに/Deletedフラグを追加する方法として delete()関数を使用しています。
に加えて、今回は delete()関数に加え、新たに expunge()関数を使用すると、メールボックスの切り替えや接続の終了を待たずに /Deleted フラグを適用することができます。例えば、迷惑メールのメールボックスにあるメールを全て削除したい場合。
$boxInfo:=$transporter.selectBox("迷惑メール")
// marks all the email in the current mail box for deletion
$status:=$transporter.delete(IMAP all)
// deletes all the marked emails
$transporter .expunge()
新機能の詳細については、ドキュメントをご覧ください。