Hallo!!
Ich habe in kleines Problem. Ich möchte eine Tabelle (einzelnes Blatt) als Mailanlage versenden.
Dabei brauche ich den folgenden Code:
Sub Senden()
'
Application.ScreenUpdating = False
Sheets("Tabelle2").Select
Sheets("Tabelle2").Activate
Call ohne
ActiveWorkbook.SendMail Recipients:="highscore@h-page.de", Subject:="Highscore" & " " & Range("A1").Value
End Sub
Sub ohne()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Jedoch wird das Makro abgebrochen und die folgende Meldung erscheint:
Laufzeitfehler '1004':
Die Methode 'SendMail' für das Objekt '_Workbook' ist fehlgeschlagen
Kann mir jemand sagen wo da der Fehler liegt?
Besten Dank!