如何使用perl为原始回复电子邮件生成文本文件

时间:2014-02-24 23:35:27

标签: perl email

我想自动生成原始回复电子邮件的文本文件,例如,如下所示:

Subject: hello
Mime-Version: 1.0 (Mac OS X Mail 6.6 \(1510\))
Content-Type: text/html;
    charset=us-ascii
X-Apple-Base-Url: x-msg://5/
X-Universally-Unique-Identifier: f3193934-f4df-4b36-95ab-36f3171570b8
X-Apple-Mail-Remote-Attachments: YES
From: Some Person <usera@mydomain.com>
X-Apple-Windows-Friendly: 1
Date: Mon, 24 Feb 2014 14:43:11 -0800
X-Apple-Mail-Signature: SKIP_SIGNATURE
Content-Transfer-Encoding: 7bit
Message-Id: <41FFDBF3-D482-45A4-A11F-CA545621B513@mydomain.com>
X-Smtp-Server: mymachine
X-Uniform-Type-Identifier: com.apple.mail-draft
To: userb@mydomain.com

<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "></body></html>

这是从首次回复收到的电子邮件获得的,然后在sent框中,我看到show original source

有没有办法自动生成此电子邮件作为文本文件,或打印到stdout?

1 个答案:

答案 0 :(得分:0)

由SMTP / Exchange服务器分配的那些神秘值,不应由客户端程序生成。

您可以通过以下方式生成电子邮件:http://learn.perl.org/examples/email.html