Problem mit .vbs Datei

[emanHH]

Ich habe eine .vbs DAtei gefunden die über mein E-MAil Programm automatisch eine Mail verschickt!




Wie bekomme ich bei Subjekt= die PArameterübergabe vom FMS Crusader rein? oder kann wenigstens einen Text aus einer .txt einlesen?


Hier das Programm:

Dim objConfig 'As CDO.Configuration
Dim objMsg 'As CDO.Message

Const MAIL_SERVER = "C:\mozilla/thunderbird/thunderbird.exe"

On Error Resume Next
Set objMsg = CreateObject("CDO.Message")
If Err.Number <> 0 Then
Call MsgBox("Cannot create CDO-Message-Object, err: " & _
CStr(Err.Number) & ", Description: " & _
Err.Description)
End If
Set objConfig = CreateObject("CDO.Configuration")
If Err.Number <> 0 Then
Call MsgBox("Cannot create CDO-Configuration-Object, err: " & _
CStr(Err.Number) & ", Description: " & _
Err.Description)
End If
With objConfig.Fields
.Item(cdoSMTPServer) = MAIL_SERVER
.Item(cdoSendUserName) = "christian@XXXX.de"
.Item(cdoSendPassword) = "mein PAsswort" '
.Update
End With

with objMsg
.Configuration = objConfig
.From = "christian@XXXX.de"
.Subject = "Hier soll der Text rein der gesendet wird"
.TextBody = "nicht so wichtig"
.To = "christian@XXXX.de"
Err.Number = 0
On Error Resume Next
.Send

If Err.Number = 0 Then
Call MsgBox("Mail has been sended!")
Else
Call MsgBox("Error during send mail, err: 0x" & _
Hex(Err.Number) & ", Description: " & _
Err.Description)

end if

end with



Hoffe mir kann jemand weiterhelfen, denn mit clemail oder blat komme ich noch weniger weiter!