[2]ReceiveMail

ReceiveMail

実行例:
スクリプト実行 [「ReceiveMail」 , ファイル: 「MMPLib」]
#スクリプト:「ReceiveMail」を実行し、結果を以下の様にして取得して下さい。
変数を設定 [$Result; 値:Evaluate ( "Let ( [" & Get ( スクリプトの結果 ) & "] ; 0 )" )]

#以下の変数に値が代入されます。
$er
$Subject
$bodyText
$bodyHTML
$From
$ReplyTo
$To
$Cc
$Date
$Date_Convert
$UIDL
$header
$Character_code
$Item_count
$MailFilePath

メールの有無は、$er で判断します。

新規メールがある場合、
$er = 1 になります。
ない場合、
$er = 0
エラー
$er = エラー内容

スクリプトを以下のようにしてメールの内容をFileMakerのフィールドに取り込んで下さい。
If [$er = 1]
新規レコード/検索条件
フィールド設定 [mailer::受信TimeStamp; Get(タイムスタンプ)]
フィールド設定 [mailer::受信Mail_Account; $AccountTitle]
フィールド設定 [mailer::UIDL; $UIDL]
フィールド設定 [mailer::header; $header]
フィールド設定 [mailer::Subject; TextStyleAdd ( $Subject; 太字)]
フィールド設定 [mailer::From; $From]
フィールド設定 [mailer::To; $To]
フィールド設定 [mailer::Cc; $Cc]
フィールド設定 [mailer::ReplyTo; $ReplyTo]
フィールド設定 [mailer::Date変換前; $Date]
フィールド設定 [mailer::Date変換後; $Date_Convert]
フィールド設定 [mailer::bodyText; $bodyText]
フィールド設定 [mailer::bodyHTML; $bodyHTML]
フィールド設定 [mailer::MailPath; $MailFilePath]
フィールド設定 [mailer::読込文字コード; $Character_code  /*読込文字コード */]
フィールド設定 [mailer::アイテム数; $Item_count  /*アイテム数*/]
.....

Comments