<@7> <@> <@>登録確認メール送信 <@> <$diary_id = argv#0> <$s = v.load_daybook_setting(diary_id)> <@> <$h = new> <$h.to = argv#1> <$h.from = v.mail_post_address> <$h.reply_to = v.mail_post_address> <$h.from_name = Server_name || ENV.SERVER_NAME> <$h.subject = 'メール投稿の確認'> <$auth_text = message_translate('mail-auth')> <$h.text = chain_array(exec(begin))> あなたのアドレス <@h.to> を『<@s.blog_name>』の投稿用アドレスとして設定します。 設定を実行するならば <@h.from> へ、本文に「<@auth_text>」とだけ書かれたメールを送信してください。 このメールに覚えがなければ無視してください。 --------------- IP: <@ENV.REMOTE_ADDR> HOST: <@ENV.REMOTE_HOST> <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)> <$ifmessage(r, 'メール送信エラー')>