如何使用Outlook宏在字符之间搜索字符串？

Question

我正在尝试浏览文件夹中的所有邮件并创建新邮件，转到第一封邮件中指定的地址。

我需要在电子邮件正文中搜索以下内容：＆lt; email@address.com ＆gt;并复制两个尖括号之间的电子邮件地址，以将其用作新电子邮件的收件人。

Answer 1

你必须找出＆lt;和＆gt; sign ist并选择中间文本：

未经测试

dim start_str as integer
dim end_str as integer
dim mymail as string
start_str = instr(mailitem.body,"<") + 1
end_str = instr(mailitem.body,">") - start_str
mymail = mid(mailitem.body, start_str, end_str)

我不太确定你可能希望在开始或结束字符串中添加+1或-1，否则它应该可以工作。 你只有一个问题，如果字符＆lt;或者＆gt;邮件中存在另一个邮件地址。

我希望这有帮助， 最大