Hallo,

ich bekomme diese Fehlermeldung
(Laufzeitfehler ´91 Objektvariable oder With-Blockvariable nicht festgelegt).Kann mir einer da weiterhelfen.
Im Intranet öffne ich die Datei.
Die Datei wird aber in Internet Explorer angezeit.

Hier der Code

Private Sub CommandButton2_Click()

dateiname = "Auftrag DSL-Install-Service"
Dateipfad = "C:\temp\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Dateipfad & dateiname <--- hier bekomme ich die Fehlermeldung


Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "XXX@XXX.net"
'Betreff
.Subject = "Auftragsformular"
'Nachricht
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add "c:\temp\" & dateiname & ".xls"
.Send
End With
Set olApp = Nothing

End Sub

Gruß, Blackcaty