<@7> <@> <@>登録確認メール送信 <@> <$diary_id = argv#0> <$s = Diary.load_daybook_setting(diary_id)> <@> <$h = new> <$h.to = argv#1> <$h.from = Diary.mail_post_address> <$h.reply_to = Diary.mail_post_address> <$h.from_name = Server_name> <$h.subject = 'メール投稿の登録完了'> <$h.text = chain_array(exec(begin))> 『<@s.blog_name>』投稿用アドレスとして登録しました。 投稿は <@h.from> 宛に パスワードは「本文の最初の行」に記述。 未設定の場合は最初の行は空行にしてください(何か書くとエラーになります)。 <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>