我正在尝试编写一个脚本，只是将电子邮件的第一行转发到另一个电子邮件地址。入站电子邮件的格式始终如下：
第1行
2号线
line3中
你会注意到第1行后面有一个回车。不确定这是否有帮助，但我希望输出电子邮件具有相同的主题行，转发到另一封电子邮件，正文将包含：
线路1
我找到了可以查找特定文本字符串的示例，但是没有找到样本来抓取第一行。搜索特定文本将不起作用，因为第一行始终不同。唯一常见的是第1行和第2行之间的CR。
到目前为止，我只是：
Sub SendNew(Item As Outlook.MailItem)
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
objMsg.Body = Item.Body
objMsg.Subject = Item.Subject
objMsg.Recipients.Add "person@domain.com"
objMsg.Send
End Sub
有人可以协助我可以插入的东西只抓住第一行吗？非常感谢！