emanHH
27.02.2006, 16:59
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!
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!