Question

我在白天获得了新的业务联系人，并且我正在为.csv文件中的潜在客户保留书籍。我经常通过电子邮件与客户联系，客户告诉我更准确的联系方式。将每个细节逐个复制粘贴到.csv文件需要花费一些时间。我在vba中相当不错。但我认为这是解决这个问题的最佳方法。

我想做什么：我强调客户的名字。让我们说这是马克。然后我用鼠标左键单击它并选择“建立新联系人”之类的内容。 Outlook会为通讯簿创建新联系人。然后我对地址执行相同操作，然后单击“将地址导出为标记”

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

我没有发现任何有用的想法。如果有人能帮助我，我将非常感激！

-Joonas

Answer 1

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

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

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

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

1 个答案: