Problem Email mit 1904
04.10.2005 15:01:59
Michael
alle guten dinge sind drei,
Also mein drittes und hoffentlich letztes Problem für heute. Ich habe ein Makro welches ein das aktive Sheet aus einer Arbeitsmappe kopiert und die Kopie als Email versendet. Das funktioniert auch prima. Jetzt habe ich aber das Problem, dass in dem Sheet Minusberechnungen vorkommen und ich irgendwie beim Adressaten die 1904 Funktio aktivieren muss.
Wie kann ich das bewerkstelligen?
Gruß
Michael
Sub Blatt_senden()
Application.ActiveSheet.Copy
ActiveWorkbook.SendMail ".........@..........", "Dienstplan"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub