我在白天获得了新的业务联系人，并在 .csv 文件中保存了有关潜在客户的信息。我经常通过电子邮件与我联系，客户在消息中告诉我更准确的联系方式。将每个细节一一复制粘贴到 .csv 文件需要时间。我是vba的菜鸟。但我认为这是解决这个问题最好的改变。
我想做的事：我突出显示客户的姓名。假设是马克。然后我用鼠标辅助按钮单击它并选择“建立新联系人”之类的内容。 Outlook 为通讯簿创建一个新联系人。然后我对地址执行相同的操作，然后单击“导出为标记的地址”之类的内容
之后，我使用另一个脚本将数据从联系人导出到 .csv 文件。或者，详细信息可以直接从消息正文转到 .csv 文件。我刚刚教过，如果我们先将它们导出给联系人，就会有一些现成的解决方案。
我没有发现任何关于这个想法的有用信息。如果有人能帮助我，我将非常感激！
-乔纳斯
【问题讨论】：
标签： excel vba outlook export contacts
文本在哪里突出显示？在预览窗格中？ 检索当前选定的项目 (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 2007 中，也可以通过在选择文本时按Ctrl 同时选择多个单独的单词或文本范围。您的脚本仅返回最后选择的字符串。是否有可能让它返回多重选择的所有部分，用 e 分隔。 G。换行符？