VBScriptで電子メールで文字列を送信

Question

VBScriptで非常に基本的なアプリケーションを作成しようとしています。このアプリケーションはGmailを使ってメールを送信できます。入力ボックスから入力を収集し、入力ボックスに送信可能な文字列を作成します。ここに私の作業コードがあります：

Messagebody=InputBox("Enter Steam Username:") 
WScript.Echo Messagebody 

EmailSubject = "Sending Email by CDO" 
EmailBody = "This is the body of a message sent via" & vbCRLF & _ 
"a CDO.Message object using SMTP authentication ,with port 465." 

Const EmailFrom = "from@gmail.com" 
Const EmailFromName = "Singing Unicorn" 
Const EmailTo = "to@gmail.com" 
Const SMTPServer = "smtp.gmail.com" 
Const SMTPLogon = "login@gmail.com" 
Const SMTPPassword = "password" 
Const SMTPSSL = True 
Const SMTPPort = 465 

Const cdoSendUsingPickup = 1 'Send message using local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using SMTP over TCP/IP networking. 

Const cdoAnonymous = 0 ' No authentication 
Const cdoBasic = 1 ' BASIC clear text authentication 
Const cdoNTLM = 2 ' NTLM, Microsoft proprietary authentication 

' First, create the message 

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = EmailSubject 
objMessage.From = """" & EmailFromName & """ <" & EmailFrom & ">" 
objMessage.To = EmailTo 
objMessage.TextBody = EmailBody 

' Second, configure the server 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPLogon 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SMTPSSL 

objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 

objMessage.Configuration.Fields.Update 
'Now send the message! 
On Error Resume Next 
objMessage.Send 

If Err.Number <> 0 Then 
MsgBox Err.Description,16,"Error Sending Mail" 
Else 
MsgBox "Mail was successfully sent !",64,"Information" 
End If 

私に助けを与えてください。とても感謝している。

Answer 1

資格情報が偽造されていることを願っています！そうでなければあなたの質問を編集してください！しかし、MessageBodyにMessageBodyを追加するだけですか？それがあなたが必要とする答えであれば、あなたがやっていることをちょっと調べてみるべきです。例：EmailBody = "あなたのテキスト" & messageBody & "その他のテキスト" - Baro 15分前