Outlook VBA，从主题中剪切电子邮件地址并将其作为收件人，然后转发邮件

Question

我正在尝试查找VBA代码的Outlook电子邮件转发器，该转发器将从“主题”字段中获取（并删除）电子邮件地址。然后将电子邮件地址添加为收件人，并转发带有附件的邮件。

我将尝试演示和举例：

---

接收电子邮件：

发件人： alias@domain.com

主题： xyz@domain.com LHV计算... 0001

（请注意，“ ... 0001”是可变的，因此“ LHV ...”之后的所有内容都应保持不变）

---

已转发电子邮件：

收件人： xyz@domain.com

主题： LHV计算... 0001

---

在邮件的标题或正文中，所有其他内容均不得更改。 （邮件的最终收件人看不到它已经从其他邮件转发了。）

我对VBA编码非常陌生，希望有人能帮助我。

Answer 1

在t'interweb上转发电子邮件的例子很多；例如VBA to forward an email

还有许多字符串处理的示例。如果主题的格式一致，则在字符串中搜索第一个空格将为您提供电子邮件地址的长度。

oSubj = ActiveInspector.CurrentItem.Subject
'Take the forward-an-email example and adjust to your needs
objForward.Recipients.Add = Left(oSubj, InStr(1, oSubj, " "))

仅适用于公开消息，另外，如果主题以RE：或FWD：开头，则需要进一步检查。