Привет,

перешли на оффис 2007 и код стал выдавать ошибку во 2-ох строчке. Ворчит, что инициализация объекта невозможна. Никто не сталкивался?


AWS = cepspath & fileprefix & todaysdate & ".zip"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = empfaenger
.CC = kopie
.Subject = "CEPS-Liste vom " & Date
.Attachments.Add AWS
.Body = "Hallo," & vbCrLf & vbCrLf & "anbei die aktuelle CEPS-Liste in der ZIP-Datei." & vbCrLf & vbCrLf & "Bearbeitungshinweise zur Liste finden Sie in der Mailingliste noa-awb-listen." & vbCrLf & "Außerdem stellt sie ein fachliches und technisches Forum für all ihre Fragen dar." & vbCrLf & "Wir empfehlen ihnen, sich bei dieser Mailingliste anzumelden." & vbCrLf & "(Link zur Anmeldung: http://www.dv.otto.de/cgi-bin/mdom-subscr.cgi?noa-awb-listen=)" & vbCrLf & vbCrLf & "Änderungen:" & vbCrLf & txtAenderung1.Text & vbCrLf & txtAenderung2.Text & vbCrLf & txtAenderung3.Text & vbCrLf & txtAenderung4.Text & vbCrLf & txtAenderung5.Text & vbCrLf & txtAenderung6.Text & vbCrLf & txtAenderung7.Text & vbCrLf & txtAenderung8.Text & vbCrLf & txtAenderung9.Text & vbCrLf & vbCrLf & "Mit freundlichen Grüßen" & vbCrLf & name
.Send
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing

Спасибо тебе