Bildschirmflackern ausschalten
19.11.2021 20:21:33
Daniel
Endlich habe ich einen Code erstellt, welche meine Wünsche erfüllen. Das einzige was mich noch stört ist das schnelle Anzeigen vom öffnen von Outlook. Habe schon an verschieden Orten versucht ein Application.ScreenUpdating einzufügen. Jedoch hat das nichts gebracht. Gibt es da irgend eine Lösung?
Hier noch meinen Code:
With WkSh
For Each rngBereich In WkSh.Range("A2:A" & rngLetzte)
If Cells(rngBereich.Row, 1).Font.ColorIndex = 5 Then
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.BodyFormat = 2
.GetInspector
.To = "info@degarage.ch"
.Subject = "Pneu & Rad Tage"
.HTMLBody = TextToHTML & .HTMLBody
.Display
.send 'Sendet die Email automatisch
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End If
Next rngBereich
End With
Gruss Daniel E.