Question

我在outlook vba中写了一个函数。当我点击一封邮件并使用我的功能时，它会自动创建我的回复邮件，并将其用于我的回复邮件。

我的回复邮件如下：

先生

已经完成了！

此致

因为我是bdd管理员，我从邮件收到很多任务，所以我以前只用“已完成”发送邮件。

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

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

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

问候。

Answer 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

感谢您的关注！

在outlook vba

1 个答案: