E-Mail -Versand funktioniert in Excel 2007 und in Excel 2010 (Beta). Nur leider ........ bei Excel 2003 macht er es nicht.

Ich habe mit Hilfe des rundumfassenden Wissens im WWW

nun bei mir einen Button eingebaut

der den Inhalt (reine Werte) des aktiven Blattes kopiert,
einen Ordner erstellt,
die Datei mit einem bestimmten Namen und im Excel 2003 Format dort ablegt,
dann das E-Mail Programm öffnet
es als Anhang anhängt
damit es versendet werden kann.

Dieser funktioniert eigentlich perfekt in Excel 2007 und in Excel 2010 (Beta).

Nur leider ........ bei Excel 2003 macht er es nicht.

Anscheinend kennt Excel 2003 die Anweisung zum Öffnen des E-Mail Programms nicht ? Es scheint an dem Punkt zu haken ???

Wichtig ist, es darf sich nicht auf ein bestimmtes E-Mail Programm beziehen. Wie gesagt ab Excel 2007 funktioniert es, ob Lotus oder auch Outlook.

Kann mir jemand helfen, dies in den Griff zu bekommen ?

Lieb Grüß

Knibbli

Achso, hier noch der jetzige Code ...

<Code ="vba">
Sub Blatt_Email_click()
Send_E_Mail
End Sub

Sub Formeln_wandeln()
Dim a As Range
For Each a In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
a.Copy
a.PasteSpecial (xlPasteValuesAndNumberFormats)
Next a
Application.CutCopyMode = False
End Sub

Private Sub Neuen_Ordner_erstellen_Click()
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.CreateFolder("C:\TEST")
End Sub

Sub Send_E_Mail()
Dim SavePath As String
Neuen_Ordner_erstellen_Click
SavePath = "C:\TEST"
Application.ScreenUpdating = False
ActiveSheet.Copy
Formeln_wandeln
ActiveWorkbook.SaveAs SavePath & "\" & "Test" & "-" & ActiveSheet.Name & "_DAT_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & "_Uhr" & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
End Sub

Option Explicit

Const SaveFolder = "C:\Test\Mail"  

Private Sub Blatt_Email_click()
    Send_E_Mail
End Sub

Private Sub Send_E_Mail()
    Dim objFSO As Object, SavePath As String
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")  
    
    If objFSO.FolderExists(SaveFolder) = False Then
        If objFSO.CreateFolder(SaveFolder) = False Then
            MsgBox "Der Ordner konnte nicht erstellt werden!", vbExclamation, "Fehler":   Exit Sub  
        End If
    End If
        
    Call Formeln_wandeln
    
    SavePath = SaveFolder & "\" & "Test" & "-" & ActiveSheet.Name & "_DAT_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & "_Uhr" & ".xls"  
    
    ActiveWorkbook.SaveAs SavePath, FileFormat:=xlExcel7, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False  
    
    Application.Dialogs(xlDialogSendMail).Show:  ActiveWindow.Close
End Sub

Private Sub Formeln_wandeln()
    Dim a As Range
    
    Application.ScreenUpdating = False
    
    For Each a In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
        a.Copy
        a.PasteSpecial (xlPasteValuesAndNumberFormats)
    Next
    
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
End Sub

Sub Test()
    ThisWorkbook.SendMail Recipients:="ErwinMustermann@Mail.de", Subject:="Excel-Arbeitsmappe"  
End Sub