<@7> <@> <@>登録確認メール送信 <@> <$s = v.daybook_setting> <$h = new> <$h.to = s.notify_mail_address> <$h.from = "noreply@". (ENV.HTTP_HOST || ENV.SERVER_NAME)> <$h.reply_to = "noreply@". (ENV.HTTP_HOST || ENV.SERVER_NAME)> <$h.from_name = Server_name || ENV.SERVER_NAME> <$h.subject = if(s.notify_mail_subject ne '', s.notify_mail_subject, 'blog notify')> <$h.text = chain_array(exec(begin))> 『<@s.blog_name>』に 新着のコメントがあります。 <@argv#0> <$end> <$m = loadpm('Base::Mail')> <$r = m.send_mail(h)>