Hallo Mr. K.
vielen Dank für die schnelle Antwort, ich habe dein Vorschlag bei mir mal probiert, es läuft Fehlerfrei durch, jedoch wird Outlook immer noch minimiert angezeigt nach dem Start.
Den Verweis habe ich gesetzt, sBody hab ich nur fürs Forum rausgenommen.
Gegoogelt habe ich in den vergangenen Wochen viel und auch viel ausprobiert, leider mit immer dem selben Resultat: Outlook bleibt minimiert gestartet.

Für weitere Vorschläge bin ich dir sehr dankbar
Gruss Vittorio0
PS: wie macht man das mit dem schön nummerierten Source Listing? Habe <>Quellcode probiert
Den nachfolgenden Code hab auch in div. Foren gefunden, verstehen tu ich ihn aber leider nicht :(


Public Function SendOutlook(sSubject As String, sTo As String, Optional sCC As String, Optional sBcc As String, Optional sBody As String, Optional sAttachment As String, Optional sAttachment1 As String, Optional sAttachment2 As String)

'Only working in Office 2007 and higher
'Don't forget to set a reference to Outlook in the VBA editor
'Ich habe Outlook 2019
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim OutAccount As Outlook.Account
    Dim strbody As String
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    
    'Use the first account, see that Item is 1 now
    'Set OutAccount = OutApp.Session.Accounts.Item(1)
    'Or use the name instead of the number
    Set OutAccount = OutApp.Session.Accounts("vk@hispeed.ch")
    
'*************** Vorschlag von Mr. K. *********************************
    Dim myOlExp As Outlook.Explorer
    Dim myOlExps As Outlook.Explorers
    Dim x As Long
  
    Set myOlExps = OutApp.Explorers
 
    For x = 1 To myOlExps.Count
        myOlExps.Item(x).WindowState = olMaximized
    Next x

' Die Schleife würde ich nach der Zeile Set OutAccount einfügen.

'************************************************

    sBody = "Im Anhang finde Sie die Rechnung." & "<br>Beste Grüsse" & "<br>Vittorio0"
    OutMail.Attachments.Add (sAttachment)

    On Error Resume Next
    
    With OutMail
        .To = sTo
        .CC = sCC
        .BCC = ""
        .Subject = sSubject
        .HTMLBody = sBody
        .SendUsingAccount = OutAccount
        .Display   'or use .Send
    End With
    
      
    On Error GoTo 0
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    Set OutAccount = Nothing

End Function