IHP邮件系统集成：发送与接收邮件完全教程

2026-02-05 05:00:18作者：史锋燃Gardner

IHP框架提供了完整的邮件系统集成功能，让开发者能够轻松地在Web应用中发送和接收邮件。本教程将带你从零开始，掌握IHP邮件系统的核心功能和使用方法。🎯

为什么选择IHP邮件系统？

IHP邮件系统基于Haskell的mime-mail包构建，提供了开箱即用的邮件发送功能。无论你需要发送用户注册确认邮件、密码重置邮件还是系统通知邮件，IHP都能帮你快速实现。💪

快速生成邮件模板

IHP提供了强大的代码生成器，可以快速创建邮件模板。通过开发工具中的Mail Code Generator，你只需简单几步就能生成完整的邮件代码。

在代码生成器中，选择对应的控制器和输入邮件名称，比如为注册用户发送确认邮件，可以创建名为"Confirmation"的邮件模板。

生成的邮件模板位于Web/Mail/Users/Confirmation.hs，包含完整的邮件结构：

module Web.Mail.Users.Confirmation where
import Web.View.Prelude
import IHP.MailPrelude

data ConfirmationMail = ConfirmationMail { user :: User }

instance BuildMail ConfirmationMail where
    subject = "Confirm your Account"
    to ConfirmationMail { .. } = Address { addressName = Just user.name, addressEmail = user.email }
    from = "hi@example.com"
    html ConfirmationMail { .. } = [hsx|
        Hey {user.name}, <br/>
        Thanks for signing up! Please confirm your account by following this link: ...
    |]

配置邮件服务器

IHP支持多种邮件发送方式，包括本地sendmail、SMTP服务器、AWS SES和SendGrid。

配置SMTP服务器

在Config/Config.hs中配置SMTP服务器：

config :: ConfigBuilder
config = do
    option $ SMTP
        { host = "smtp.myisp.com"
        , port = 2525
        , credentials = Nothing -- 或提供用户名密码
        , encryption = TLS -- 其他选项: Unencrypted 或 STARTTLS
        }

使用环境变量配置

为了安全起见，建议使用环境变量配置SMTP凭据：

-- 从环境变量读取SMTP配置
smtpHost <- env @Text "SMTP_HOST"
smtpPort <- env @PortNumber "SMTP_PORT"

发送邮件的方法

在控制器或脚本中发送邮件非常简单：

action MyAction = do
    user <- fetch "..."
    sendMail ConfirmationMail { user }

邮件内容定制

HTML邮件内容

使用HSX语法编写HTML邮件内容：

html ConfirmationMail { .. } = [hsx|
    Hey {user.name}, <br/>
    <p>Thanks for signing up! Please confirm your account.</p>
|]

纯文本邮件

虽然IHP可以自动从HTML生成纯文本版本，但手动提供会更好：

text ConfirmationMail { .. } = cs [trimming|
    Hey ${userName},

    Thanks for signing up! Please confirm your account by following this link:
    https://....
|]

高级功能

添加附件

你可以为邮件添加文件附件：

attachments ConfirmationMail { .. } = [
    MailAttachment { 
        name = "attachment.xml", 
        contentType = "application/xml", 
        content = "<xml>...</xml>" 
    }
]

自定义邮件头

如果需要发送特定的邮件头：

headers ConfirmationMail { .. } =
    [ ("X-Mailer", "mail4j 2.17.0")
    , ("In-Reply-To", "<123456@list.example.com>")
    ]

开发环境邮件测试

推荐使用MailHog进行本地邮件测试：

安装MailHog
配置SMTP指向MailHog
在http://0.0.0.0:8025/查看发送的邮件

生产环境部署

部署到生产环境时，在flake.nix中设置环境变量：

services.ihp = {
    additionalEnvVars = {
        SMTP_HOST = "email-smtp.eu-west-1.amazonaws.com";
        SMTP_PORT = "587";
        SMTP_ENCRYPTION = "STARTTLS";
    };
};