0

我在白天获得了新的业务联系人，并且我将潜在客户记录在 .csv 文件中。我经常通过电子邮件与我联系，客户在消息中告诉我更准确的联系方式。将每个细节一一复制粘贴到 .csv 文件需要时间。我是vba的菜鸟。但我认为这是解决这个问题的最佳改变。

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

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

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

-乔纳斯

4

1 回答 1

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
于 2013-05-31T14:21:45.320 回答