Отправить строку по электронной почте в 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 в EmailBody? Если это ваш ответ, вам нужно немного изучить, что вы делаете. Пример: EmailBody = «ваш текст» & messageBody & «другой текст» - Baro 15 минут назад