Hallo,
ich habe ein vbs/Outlook Problem mit einem Code der aber auch in Excel oft verwendet wird:
Dim Nachricht
Dim OutApp
OutApp = CreateObject("Outlook.Application")
Dim AWS
Dim Str4
Str4 = "D:\SalesUnit\SI-SalesUnits- Daily Report_" & date() & ".zip"
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = Str4
'InitializeOutlook = True
Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "ttaylor@xxxx.com"
.Subject = "Daily-SAles-Unit-Report from " & date() & " " & Date.Now
.attachments.Add(AWS)
.Body = "Daily-SAles-Unit-Report" & date() & " " & Date.Now & vbCrLf & "Best regards,"
':" & vbCrLf & Range("B8").Value & " " & "Euro" & vbCrLf & vbCrLf & "Best regards," & vbCrLf & "Sinanudin O."
'Hier wird die Mail nochmals angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail
.Send()
End With
'Outlook schliessen
'OutApp.Quit
OutApp = Nothing
Nachricht = Nothing
'End Sub
Das ganze ist in einem .vbs - File. Bis vor ein paar Tagen lief es und jetzt steigt er in der Zeile 10 bei Char 9 aus und sagt " Object required: 'Outlook' "
Weiß jemand Rat?
Gruß Lobby007