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 =＆＃34;您的文字＆＃34; ＆安培; messageBody＆amp; ＆＃34;其他文字＆＃34; - 巴罗15分钟前

通过VBScript中的电子邮件发送字符串

1 个答案: