Email tabelle senden
16.10.2012 22:41:09
Günther
Habe ein problem mit dem Macro,
es funzt sehr gut , wenn ich aber die Tabelle verschicke möchte, dann kommt die
Fehlermeldung das die Fatei kaputt oder Beschüdigt ist, beim Empfänder an.
Sub Mail_2_Tippschein_senden()
ActiveWorkbook.Save
Dim strMailEmpfaenger As String
i = Application.ActiveWorkbook.Path
strMailEmpfaenger = "Test@Test.de"
strTempName = "Tipp_Tabelle_Test.xlsm"
Sheets("Tippschein").Copy
ChDir i
ActiveWorkbook.SaveAs Filename:=i & "\" & strTempName
If Application.MailSystem xlNoMailSystem Then
Application.ActiveWorkbook.SendMail strMailEmpfaenger, _
"Tipp Test" & Application.OrganizationName, False
End If
ActiveWorkbook.Close
'Die temporär erstellte Arbeitsmappe wieder löschen
Kill i & "\" & strTempName
End Sub
alle haben Excel 2010
Danke im Vorraus.
Günther