Email per Makro - Bestätigung und Absturz...
Sonja
heute mal was "einfaches" ;O)
Ich sende per Makro aus Excel eine Tabelle an einen vordefinierten Empfänger.
Vor versenden wird das Blatt sortiert, ein paar Zellen und Button ausgeblendet usw.
Nun kommt ja von Outlook die Sicherheitsabfrage - "ein anderes Programm.... Erteilen?"
Klicke ich auf Erteilen, klappt alles, die Buttons werden wieder eingeblendet, die mail kommt an.
Brech ich aber den Vorgang ab, bleibt die ganze Tabelle hängen - keine Chance mehr....
Jemand eine Idee, woran das liegen kann?
Hier mal der Code
Sub Blatt_senden()
ActiveSheet.Unprotect
Range("A6:H400").Select
ActiveWorkbook.Worksheets("Montag").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Montag").Sort.SortFields.Add Key:=Range("D7:D400") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Montag").Sort.SortFields.Add Key:=Range("G7:G400") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Montag").Sort
.SetRange Range("A6:H400")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A6:H6").Select
Rows("1:4").Select
Selection.RowHeight = 1
ActiveSheet.DrawingObjects.Visible = False
Sheets("Montag").Copy
ActiveWorkbook.SendMail "mustermannan@gmx.de", "Tabelle"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
ActiveSheet.DrawingObjects.Visible = True
Rows("1:4").Select
Selection.RowHeight = 22
ActiveSheet.Protect
End Sub
Dankeschön und Gruß,
Sonja