Thema Datum  Von Nutzer Rating
Antwort
05.08.2022 15:33:13 Vittorio0
NotSolved
Blau Outlook per VBA maximieren
 06.08.2022 11:04:39 xlKing
NotSolved
06.08.2022 13:51:15 Gast61766
NotSolved
06.08.2022 15:07:57 Gast80888
NotSolved
06.08.2022 20:18:29 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
06.08.2022 11:04:39		 Views:
241		 Rating:
     
Antwort:
  Ja
Thema:
Outlook per VBA maximieren

Hallo Vittorio,

wie schon in einem anderen Thread erwähnt, hab ich leider kein Outlook. Aber googeln hilft oft weiter: https://docs.microsoft.com/de-de/office/vba/api/outlook.explorer.windowstate

probiers also mal so:

 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.

Dein Code geht davon aus, dass du einen Verweis auf die Outlook-Bibliothek gesetzt hast. Da du mit CreateObject arbeitest, kannst du alternativ auch darauf verzichten. Dann musst du As Outllook.Irgendwas durch As Object und olMaximized durch 0 ersetzen.

PS: Set OutMail ist bei dir auskommentiert. Damit dürfte die Zeile  OutMail.Attachments.Add (sAttachment) sowie With OutMail einen Laufzeitfehler verursachen, da das Objekt noch leer ist. Das merkst du jedoch nicht, da du On Error Resume Next verwendest. Aber das weißt du sicher schon, oder?

Gruß Mr. K.

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.08.2022 15:33:13 Vittorio0
NotSolved
Blau Outlook per VBA maximieren
 06.08.2022 11:04:39 xlKing
NotSolved
06.08.2022 13:51:15 Gast61766
NotSolved
06.08.2022 15:07:57 Gast80888
NotSolved
06.08.2022 20:18:29 xlKing
NotSolved