Laufzeitfehler 1004 beim senden!
22.06.2004 14:20:40
Laufzeitfehler
Ich habe mir einen Code zusammengeschrieben, der auch reibungslos funktioniert. Die Datei ist eine Art Auftragsformular das per mail gesendet werden soll. Leider funktioniert es aber auf einem Rechner nicht!
Es funktioniert mit Outlook und mit Outlook express, nur auf dem einen besagten rechner, auf den Outlook express installiert ist nicht. Es kommt immer die Fehlermeldung "Laufzeitfehler 1004" kann mir jemand sagen woran das liegen kann?
Hier der Code:
Sub Mantel_senden()
Dim blatt As Integer
Dim Mailadresse, Datei
Sheets("Mantel").Copy
ActiveWorkbook.SendMail Recipients:="ahoffmann@monika-hoffmann.de", Subject:="Neuer Auftrag" & " " & ActiveSheet.Range("A5") & " " & "Com." & " " & ActiveSheet.Range("D2")
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
MsgBox ("Ihr Auftragsblatt wurde erfolgreich in den Postausgang gelegt. Bitte nicht vergessen zu senden!")
End Sub
Freu mich auf eure Antworten!
Gruß Andreas