<@7> <@> <@>登録されてないメールを送信 <@> <$s = v.load_daybook_setting(diary_id)> <@> <$h = new> <$h.to = argv#0> <$h.from = v.mail_post_address> <$h.reply_to = v.mail_post_address> <$h.from_name = Server_name> <$h.subject = '承認失敗'> <$auth_text = message_translate('mail-auth')> <$h.text = chain_array(exec(begin))> メール承認に失敗しました。あなたのアドレス <@h.to> は仮登録されていないか既に承認されています。 仮登録から<@int(mail.auth_hours)>時間以上経過した場合もこのメッセージが送信されます。 Fromアドレスをチェックしますので、転送アドレスなどをご利用の場合、最終的にメール送信時に使用するアドレスを登録してください。 <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>