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

我在白天获得新的业务联系人，并且我在.csv文件中保留有关潜在客户的书籍。我经常通过电子邮件联系，并在消息中告诉我更准确的联系方式。将每个详细信息逐一复制粘贴到.csv文件需要时间。我在vba中是个不错的选择。但我认为这是解决这个问题的最好的改变。Outlook vba：将突出显示的文本导出到新联系人

我想要做的是：突出显示客户的姓名。我们说这是马克。然后，我用鼠标的第二个按钮点击它并选择“创建新联系人”。 Outlook创建一个新的联系人到通讯簿。然后我对地址做同样的操作，然后点击“导出为标记为地址”

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

我还没发现这个想法有用。如果有人能帮助我，我将非常感激！

-Joonas

来源

2013-05-31 Joonas

该文本突出显示在哪里？在预览窗格中？检索当前选定的项目（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-31 14:21:45

见一个示例脚本更新的答复。 –

谢谢，这非常有帮助。我有**问题**：在Outlook 2007中，也可以在选择文本的同时按Ctrl键同时选择多个单独的单词或文本范围。你的脚本只返回最后选择的字符串。是否有可能使它返回多重选择的所有部分，用e分隔。 G。换行符？ – MostlyHarmless

我不知道，你可能想发布一个Word的具体问题。 –

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

回答

相关问题