Problem mit Email
03.02.2009 19:28:00
Fritz
ich hab vom Forum dankenswerter Weise zum Email versenden folgenden Code bekommen.
Wenn ich das in ein Modul einer neuen Arbeitsmappe kopiere funktioniert das einwandfrei.
Das ist der Code
Sub mail()
Range("h1:k100").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Test." & vbCrLf & "Text"
.Item.To = ""
.Item.Subject = "Die aktuellen Daten"
.Item.Display
End With
End Sub
Kopiere ich es aber in eine bestehende Arbeitsmappe mit mehreren Makros bekomme ich manchesmal dem Fehler Laufzeitfehler 1004
"Die Methode EnvelopeVisible für das Objekt Workbook ist fehlgeschlagen"
Kann mir jemand bitte weiterhelfen woran das liegen kann?
Danke