Dim oOL As Object
  Dim oMail As Outlook.MailItem
  Dim myattachments As Variant
  Dim strBetreff As String
 
  Set oOL = CreateObject("Outlook.Application")
  Set oMail = oOL.CreateItem(olMailItem)
 
    ' An-Zeile (Empfänger)
      oMail.To = strMailto
    ' Befreff-Zeile
      oMail.Subject = strSubject
    ' Texteingabe (Nachricht selbst)
      oMail.HTMLBody = sHTML("newMessage")
      oMail.Display
oMail.Flag???????
oMail ????