Hallo zusammen,
ich möchte ein Script erstellen, welches nach Starten eine bestimmte Datei per email versendet. Das klappt soweit. Besonderheit, in der email sollte immer das aktuelle Datum erscheinen mit einem kleinen vorgegebenen Text. Wie kann ich das umsetzen?
Habt Ihr eine Idee?
Vielen Dank für jeden Tipp
Gruss
Quellcode:
Const olByValue = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "xxx@xxx.de"
.Subject = "Report"
.Body = "Report";WScript.Echo Date
.Body = "Test"
.Attachments.Add "c:\users\windose\documents\test.txt", olByValue, 1
.Send
End With
ich möchte ein Script erstellen, welches nach Starten eine bestimmte Datei per email versendet. Das klappt soweit. Besonderheit, in der email sollte immer das aktuelle Datum erscheinen mit einem kleinen vorgegebenen Text. Wie kann ich das umsetzen?
Habt Ihr eine Idee?
Vielen Dank für jeden Tipp
Gruss
Quellcode:
Const olByValue = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = "xxx@xxx.de"
.Subject = "Report"
.Body = "Report";WScript.Echo Date
.Body = "Test"
.Attachments.Add "c:\users\windose\documents\test.txt", olByValue, 1
.Send
End With