在outlook vba中选择当前行答案

【问题标题】：Select current line in outlook vba在outlook vba中选择当前行
【发布时间】：2016-06-01 22:53:09
【问题描述】：

我在outlook vba 中写了一个函数。当我点击一封邮件并使用我的功能时，它会自动创建我的回复邮件，其中包含我用来放入回复邮件的所有内容。

我的回复邮件如下所示：

你好，先生

完成了！

问候，

因为我是 bdd 管理员，我从邮件中收到很多任务，所以我过去只发送带有“完成”的邮件。

但有时，我使用我的自动回复来回复普通邮件，其中不包含任何类型的任务要做。所以我必须在写回复之前从我的回复邮件中手动删除“完成”。

使用“SendKeys”功能，我的光标会自动放在“完成”的行，但现在我试图自动选择这一行。因为如果已经选择了这一行，我只需要写一些东西来替换“完成”，或者如果我只想发送“完成”，我可以发送这样的邮件。

但我寻找“在 vba Outlook 中选择文本”或“选择行”，甚至“选择句子”和“选择行”，我发现没有什么可以解决我的问题。我该怎么做？

问候。

【问题讨论】：

标签： vba email outlook selection

【解决方案1】：

好的，我找到了方法：

    Dim objOL As Outlook.Application
        Dim objNS As Outlook.NameSpace
        Dim objDoc As Word.Document
        Dim objSel As Word.Selection

    Set objOL = Application
        If objOL.ActiveInspector.EditorType = olEditorWord Then
            Set objDoc = objOL.ActiveInspector.WordEditor
            Set objNS = objOL.Session

            Set objSel = objDoc.Windows(1).Selection
            objSel.MoveEnd Unit:=wdLine, Count:=1

        End If
    Set objOL = Nothing
    Set objNS = Nothing

感谢您的关注！

【讨论】：