vbscriptで電子メールを送信するためのSTARTTLSエラーを発行する必要があります

Question

vbscriptを作成して、添付ファイルを含む電子メールを別の電子メールに送信しようとしました。しかし、ウィンドウcmdでスクリプトを実行しようとすると、「サーバーが送信者を拒否しました。サーバー応答が530 5.7.0でしたSTARTLSを発行する必要があります」

ポートを465またはGoogle SMTPポート/暗号化の場合は587しかし、それはまた、以下

を働いていない私のVBScriptです：

Set email = CreateObject("CDO.Message") 
email.Subject = "Test Email" 
email.From = "kai7@gmail.com" 
email.To = "kol@gmail.com" 
email.TextBody = "Message Text." 
email.AddAttachment "C:\Users\fuckYou\Desktop\Handover\v.txt" 
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
email.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")  = true 
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username" 
email.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 
email.Configuration.Fields.Update 
email.Send 
set email = Nothing 

Answer 1

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 

あなたはフィールドが欠落しています。

使用しているアカウントの受信トレイを確認してください。新しいプログラムからのサインインが原因でGoogleがあなたをブロックしています。 googleからのリンクをクリックしてください。

これは、ユーザー/パスワードが空白の完全なスクリプトです。あなたのアカウントの行が正しいことを確認してください。これはあなたに、コマンドプロンプトで[OK]を20回クリックする必要はありません

を実行し、

cscript //nologo script.vbs 

Script.vbs

は

On Error Resume next 
Set emailObj  = CreateObject("CDO.Message") 
emailObj.From  = "dc@gmail.com" 

emailObj.To  = "dc@gmail.com" 

emailObj.Subject = "Test CDO" 
emailObj.TextBody = "Test CDO" 

Set emailConfig = emailObj.Configuration 

For each f in emailConfig.Fields 
    wscript.echo f.name & " " & f 
Next 

msgbox emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") 


emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")  = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Dc" 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MyPassword" 
emailConfig.Fields.Update 

emailObj.Send 

wscript.echo err.description 

For each f in emailConfig.Fields 
    wscript.echo f.name & " " & f 
Next 



If err.number = 0 then Msgbox "Done"