' <DieseOutlookSitzung>
Private Const TEMPLATE_NAME As String = "tolle vorlage"

Public Sub LoadTemplate()
  Dim Ns As Outlook.NameSpace
  Dim Folder As Outlook.MAPIFolder
  Dim Mail As Outlook.MailItem

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderDrafts)
  Set Mail = GetTemplate(Folder.Items)
  If Not Mail Is Nothing Then
    Mail.Display
  End If
End Sub

Private Function GetTemplate(Items As Outlook.Items) As Outlook.MailItem
  On Error Resume Next
  Dim Mail As Outlook.MailItem

  Set Mail = Items.Find("[subject]=" & Chr(34) & TEMPLATE_NAME & Chr(34))

  If Not Mail Is Nothing Then
    Set GetTemplate = Mail.Copy
  End If
End Function
' </DieseOutlookSitzung>