VBS Email senden an mehrere Empfänger Übergabe aus Textdatei an objMessage.To möglich ?

'Gruesst Euch mal wieder im Forum,

ich hätte da als VBS-Newbee ein kleines Problem:
Ich wüsste ganz gerne,
ob es möglich ist, in einem relativ unkomplizierten
VBS-Script ( läuft unter Win 7 )
unter
->
objMessage.To nicht immer die Email-Empfänger alle
nacheinander getrennt durch Kommas eingeben zu müssen.
Könnte das vielleicht auch durch Auslesen einer
TXT-Datei erfolgen, in der dann in einer best.
Synthax die Email-Empfänger eingetragen sind ?
Die Datei würde im gleichen Verzeichnis liegen wie das VBS-Script

Danke schon einmal für eure Ideen vorab.

Buxi

VBS-Datei ist im Prinzip nach diesem Muster aufgebaut:
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test"
objMessage.From = """Absender"" <Absender@domain.de>"
objMessage.To = "empfänger@domain.de
objMessage.TextBody = "something interesting"
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver xy"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==


objMessage.Send

Set objShell = CreateObject("WScript.Shell")  
set fso = CreateObject("Scripting.Filesystemobject")  
rec = fso.OpenTextFile(objShell.Currentdirectory & "\empfaenger.txt",1).ReadLine()  
'...  
'..  
objMessage.To = rec
'...  

Set objShell = CreateObject("WScript.Shell")  
set fso = CreateObject("Scripting.Filesystemobject")  
rec = Join(Split(fso.OpenTextFile(objShell.Currentdirectory & "\empfaenger.txt",1).ReadAll(),vbNewline),";")  
'...  
'..  
objMessage.To = rec
'...