Wählen Sie die aktuelle Zeile in Outlook VBA

Question

Ich schrieb eine Funktion in Outlook VBA. Wenn ich auf eine Mail klicke und meine Funktion benutze, erstellt sie automatisch meine Antwort-Mail mit allen, die ich benutzt habe, um meine Antworten zu versenden.

Meine Antwort Mail sieht wie folgt aus:

Hallo Herr

Es fertig ist!

Grüße,

Weil ich die BDD Admin bin, erhalte ich eine Menge Aufgabe von Post, so verwendet i Mail mit nur senden "es getan" an.

Aber manchmal verwende ich meine automatische Antwort, um auf eine normale Mail zu antworten, die keine Art von Aufgabe zu tun enthält. Also muss ich das "es ist fertig" von meiner Antwortpost manuell löschen, bevor ich meine Antwort schreibe.

Mit der "SendKeys" -Funktion wird mein Cursor automatisch auf die Zeile "It's done" gesetzt, aber jetzt versuche ich diese Zeile automatisch auszuwählen. Denn wenn diese Zeile bereits ausgewählt ist, muss ich nur etwas schreiben, um das "Es ist fertig" zu ersetzen, oder ich könnte die Mail wie es senden, wenn ich nur "Es ist fertig" senden möchte.

Aber ich suchte nach "Text in vba Outlook auswählen" oder "Zeile auswählen" oder sogar "Satz auswählen" und "Zeile auswählen", ich fand nichts klar, um mein Problem zu lösen. Wie kann ich den Trick machen?

Grüße.

Answer 1

Ok fand ich, wie dies zu tun:

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 

Vielen Dank für Ihre Aufmerksamkeit!