AW: Mail Adresse aus Tabelle
15.05.2007 14:47:56
Mister B
Hallo Sepp,
bin erst jetzt dazu gekommen deinen Vorschlag auszuprobieren. Leider wird der Teil des Makros übersprungen der das E-Mail Fenster öffnet. Es handelt sich um ein langes Makro das ich mit dem Makrorekorder aufgezeichnet hab. Vielleicht fällt dir etwas falsches auf....
Sub EMVerteiler()
' EMJan Makro
' Makro am 24.09.2005 von Martin Branigan aufgezeichnet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
ActiveSheet.Select
ActiveSheet.Copy
ActiveSheet.UpdateLinks = xlUpdateLinksNever
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CheckBox1").Select
Selection.Cut
Range("A1").Select
RmDir "C:\temporär"
MkDir "C:\temporär"
ActiveWorkbook.SaveAs Filename:="C:\temporär\Mappe1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.CutCopyMode = False
Application.MaxChange = 0.001
With ActiveWorkbook
.UpdateRemoteReferences = False
.PrecisionAsDisplayed = False
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Application.Dialogs(xlDialogSendMail).Show Sheets("HB-Posten").Range("B61") & "@jva-ce. _
niedersachsen.de", "Arbeitszeitverteilungsbogen für " & ActiveSheet.Cells(6, 9)
ActiveWindow.Close
ActiveWindow.DisplayWorkbookTabs = False
ActiveSheet.Protect , DrawingObjects:=False, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.CheckBox1.Value = True
Application.ScreenUpdating = True
Kill "c:\temporär\mappe1.xls"
RmDir "C:\temporär"
Application.DisplayAlerts = True
MsgBox " Der Verteilerbogen ist an den LoHN-Beauftragten der Anstalt versendet worden.", _
vbOKOnly + vbInformation, "Arbeitszeitverteilerbogen"
End Sub
Gruß
Martin