Excel Outlook vba:将突出显示的文本导出到新联系人

我白天会有新的业务联系人，我会将潜在客户的信息记录在一个.csv文件中。我经常通过电子邮件联系，客户在邮件中告诉我更准确的联系方式。将每个细节逐一复制粘贴到.csv文件需要时间。我在vba是个不速之客。但我认为这是解决这个问题的最好办法

我想做的是：突出显示客户的姓名。假设是马克。然后我用第二个鼠标按钮点击它，然后选择“建立一个新的联系人”。Outlook将为通讯簿创建新联系人。然后，我对地址执行同样的操作，并单击类似“导出为要标记的地址”的内容

之后，我使用另一个脚本将数据从联系人导出到.csv文件。或者，详细信息可以直接从消息正文转到.csv文件。我刚教过，如果我们先将它们导出到联系人，就会有一些现成的解决方案

我还没有发现这个主意有什么用处。如果有人能在这方面帮助我，我将非常感激

---

-Joonas

文本在哪里突出显示？在预览窗格中？ 检索当前选定的项目（Application.ActiveExplorer.Selection）。拥有MailItem对象后，调用MailItem.GetInspector检索Inspector对象；拥有Inspector对象后，可以使用Inspector.WordEditor使用Word对象模型检索所选文本

更新：尝试下面的脚本（为了清晰起见，省略了错误检查）

---

谢谢，这很有帮助。我有一个问题：在

outlook2007

中，也可以在选择文本时按

Ctrl

同时选择多个单独的单词或文本范围。脚本只返回最后选择的字符串。是否可以让它返回多个选择的所有部分，用e分隔。G换行符？我不知道，你可能想发布一个特定于单词的问题。

set msg = Application.ActiveExplorer.Selection(1)
set WordEditor = msg.GetInspector.WordEditor
set Selection = WordEditor.Application.Selection
if (Selection.Type = 1) or (Selection.Type = 0) or (Selection.Type = 2) Then
  setText = Selection.Text
  MsgBox setText
End If