Senden Sie eine Zeichenfolge per E-Mail in VBScript

Question

Ich versuche, mir eine sehr einfache Anwendung in VBScript, die eine E-Mail über Google Mail an mich senden kann. Es sammelt Eingaben von einem Eingabefeld, und ich möchte, dass das Eingabefeld eine Zeichenfolge erstellt, die ich senden kann. Hier ist mein Arbeitscode:

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 

Bitte geben Sie mir etwas Hilfe, es zu tun. Sehr geschätzt.

Answer 1

Ich hoffe, dass die Anmeldeinformationen gefälscht sind !! Ansonsten redigiere deine Frage, jetzt !! Aber fügen Sie MessageBody einfach zu EmailBody hinzu? Wenn es die Antwort ist, die Sie brauchen, sollten Sie ein wenig lernen, was Sie tun. Beispiel: EmailBody = "Ihr Text" & NachrichtBody & "anderer Text" - Baro vor 15 Minuten