Hier der Code von den Drei Skripten:

Start (Batch):

@echo off
call C:\Programme\Heirue-Soft\FMS32-PRO\Funkaufzeichnung\Mail.vbs

Mail (VBS):

Const olByValue = 1
Const olMailItem = 0

Dim oOApp
Dim oOMail

'Mail bei 5 Ton

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.To = "***@***.de"
.cc= ""
.Subject = "Einsatz FFW-***"
.Body = "Die Feuerwehr *** ist am "&date&" um "&time&" ausgerück"
.Send
End With

wscript.sleep 35000

Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:\Programme\Heirue-Soft\FMS32-PRO\Funkaufzeichnung\rename.bat"

wscript.sleep 5000

'Mail mit Anhang

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.To = "***@***.de"
.cc= ""
.Subject = "Einsatz FFW-***"
.Body = "Im Anhang befindet sich eine Audio Datei mit dem Meldebild "&time
.Attachments.Add ("C:\Programme\Heirue-Soft\FMS32-PRO\Funkaufzeichnung\12345.wav"), olByValue, 1
.Send
End With

wscript.sleep 5000

'Datei Löschen

Dim WshShell, fso, test

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("wscript.shell")

On Error Resume Next

test = fso.datecreated
fso.deleteFile ("12345*")

Renam (Batch):

@echo off
ren 12345*.wav "12345.wav"