Aus Excel per Makro u. Outlook mailen
12.11.2004 16:10:32
alphabeta
dieses Makro öffnet vor dem Senden ein Outlookfenster das erst nach 5 Sekunden mit OK bestätigt werden kann.
Ich muss die Bestätigung im Makro unterdrücken können.
Hat jemand einen Vorschlag?
Danke.
Sub Makro5()
' Makro5 Makro
' Makro am 10.11.2004 aufgezeichnet
' Tastenkombination: Strg+d
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"T:\HUP\Transport\Unregelmäßigkeiten\Arbeitsordner Unregelmäßigkeiten\Vorlagen\VERFÜGUNG-DIENSTLEISTER.xls"
ActiveSheet.Paste
Range("A2:P20").Select
Selection.Interior.ColorIndex = xlNone
Range("O2:P20").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Application.CutCopyMode = False
ActiveWorkbook.SendMail Recipients:="aaaaa.de"
Workbooks("VERFÜGUNG-DIENSTLEISTER.xls").Close
Application.DisplayAlerts = True
End Sub
Anzeige