Email mit Vorlage beantworten

Im Berufsalltag bekommen wir viele Emails, die mit immer gleichen Texten beantwortet werden können. Es ist klar, dass sich viel Zeit sparen läßt, wenn man dafür auf Vorlagen zurückgreifen kann, statt jede Email erneut schreiben zu müssen. Dieses Bespiel zeigt, wie das geht. Sie können entweder auf eine geöffnete oder die im Ordner selektierte Email antworten.

In der folgenden, ersten Funktion werden der Betreff und der Text definiert. Mit den Werten wird dann die Hauptfunktion aufgerufen, welche die Antwortmail erstellt. Wenn Sie auf diese Weise mehrere Vorlagen verwenden wollen, vervielfältigen Sie einfach die Reply_1-Funktion und geben Sie jeder Funktion einen beliebigen, eindeutigen Namen.

(Hier gibt es noch ein ähnliches Beispiel, das mit Vorlagen aus dem Entwürfeordner arbeitet)

  So fügen Sie Makros in Outlook ein

Public Sub Reply_1()
  Dim Subject As String, Msg As String

  Subject = "Re: "
  Msg = "Beispiel-Text 1"

  ReplyMail Subject, Msg
End Sub

Die folgende Funktion wird nur einmal benötigt. In dieser wird die Antwortmail mit den übergebenen Werten für Betreff und Text erstellt.

Private Sub ReplyMail(Subject As String, Msg As String)
  Dim obj As Object
  Dim oReply As Outlook.MailItem

  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    Set obj = Application.ActiveInspector.CurrentItem
  Else
    With Application.ActiveExplorer.Selection
      If .Count Then
        Set obj = .Item(1)
      End If
    End With
  End If

  If obj Is Nothing Then Exit Sub

  If TypeOf obj Is Outlook.MailItem Then
    Set oReply = obj.Reply
    If InStr(1, oReply.Subject, Subject, vbTextCompare) = 0 Then
      oReply.Subject = Subject & obj.Subject
      oReply.Body = Msg & vbCRLF & vbCRLF & oReply.Body
    End If
    oReply.Display
  End If
End Sub