E-Mail-Skript so bearbeiten, dass Adressen aus einer Datei gelesen werden

Question

Wie kann ich das Skript veranlassen, E-Mail-Adressen einzeln aus einer Textdatei zu laden, anstatt manuell eine E-Mail einzugeben?

Ich erhalte einen Fehler, der

Linie 6
Objekt erforderlich sagt:“
Code 800A01A8

Was mache ich falsch?

Dim fso 

Set objEmail = CreateObject("CDO.Message") 
objEmail.From = "admin1@fabrikam.com" 
Set dict = CreateObject("Scripting.Dictionary") 
Set file = fso.OpenTextFile ("C:\e.txt", 1) 
row = 0 
Do Until file.AtEndOfStream 
    line = file.Readline 
    dict.Add row, line 
    row = row + 1 
    objEmail.To = file 
    objEmail.Subject = "Test Email 2" 
    objEmail.Textbody = "This Is A Test Message" 
    objEmail.AddAttachment "C:\test.txt" 
    objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 
    objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
    objEmail.Configuration.Fields.Update 
    objEmail.Send 
Loop 

Answer 1

In Ihrer Linie 6:

Set file = fso.OpenTextFile ("C:\e.txt", 1) 

fso ist leer/nicht definiert. Sie benötigen eine

Set fso = CreateObject("Scripting.FileSystemObject") 

vor.

Ihre

objEmail.To = file 

sollte wohl

objEmail.To = line