perl - 使用 Excel 数据自动发送电子邮件

Question

我想要一个自动发送生日的电子邮件。这就是我想要完成的：

• 检查今天的日期
• 在“DOB”列中查找匹配项
• 如果为真，则从相应列“名称”和“电子邮件”获取数据（可能必须用于每个列）
• 创建主题为“生日快乐”的 Outlook 电子邮件
• 消息文本 - 亲爱的 $Name，生日快乐！
• 发送电子邮件

经过一番研究，我明白我将不得不使用 Spreadsheet::WriteExcel 和 Outlook 模块之一（不确定是哪一个）。

Answer 1

在从数据库中获取出生日期之后，在 system.getDate() 的帮助下获取今天的日期，如果匹配则发送短信匹配两个日期。发送短信使用 mail.cs 函数并编写邮件正文。