ファイルからアドレスを読み取るEmailerスクリプトを編集する

Question

電子メールアドレスを手動で入力する代わりに、テキストファイルから一度に1つずつ読み込むようにスクリプトを取得するにはどうすればよいですか？ 「
コード私が間違っているのは何800A01A8

：

は私が

ライン6
オブジェクトが必要というエラーを得続けますか？あなたの6行目で

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

：

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

fsoは未定義/空です。

Set fso = CreateObject("Scripting.FileSystemObject") 

が必要です。

あなた

objEmail.To = file 

はおそらく

objEmail.To = line