分享程序员开发的那些事...
更新时间：2022-10-17 21:35:57
这工作就像我自己的邮件服务器的魅力，但它无法与Gmail我不知道为什么......
反正我也试过没有加上concatinate，并没有任何工作，最后我用这样的：
暗淡ObjSendMail\r
设置ObjSendMail =的CreateObject（CDO.Message）\r
\r
这部分提供了远程SMTP服务器的配置信息。\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/sendusing）= 2'发送使用网络（SMTP通过网络）的消息。\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/smtpserver）=mail.yoursite.com\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/smtpserverport）= 465'或587\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/smtpusessl）=真\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout）= 60\r
\r
谷歌Apps邮件服务器需要传出验证。使用与谷歌Apps中注册一个有效的电子邮件地址和密码。\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/smtpauthenticate）= 1'的基本（明文）身份验证\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/sendusername）=somemail@yourserver.com'谷歌的Apps邮箱地址\r
ObjSendMail.Configuration.Fields.Item（http://schemas.microsoft.com/cdo/configuration/sendpassword）=你的密码'谷歌Apps密码对该邮箱\r
\r
ObjSendMail.Configuration.Fields.Update\r
\r
ObjSendMail.To =someone@someone.net\r
ObjSendMail.Subject =这是主题\r
ObjSendMail.From =someone@someone.net\r
\r
我们正在发送文本邮件..简单地切换周围的意见发送HTML格式的电子邮件，而不是\r
'ObjSendMail.HTMLBody =这是身体\r
ObjSendMail.TextBody =这是身体\r
\r
ObjSendMail.Send\r
\r
设置ObjSendMail =什么
\r
http://somee.com/DOKA/ DoHelpTopics.aspx做code =假放; thnid = 102
和工作就像我的服务器上的魅力，但它并没有为Gmail的工作。
I get this error when sending a mail through asp using gmail, I already used ports 465, 587 and 25 with same results
Dim mail dim email2 as string dim urlms as string
Dim mail
dim email2 as string
dim urlms as string
mail = CreateObject("CDO.Message")
urlms = "http://schemas.microsoft.com/cdo/configuration/"
mail.Configuration.Fields.Item(urlms & "sendusing") = 2 'enviar usando port
mail.Configuration.Fields.Item(urlms & "smtpserver") = "smtp.gmail.com"
mail.Configuration.Fields.Item(urlms & "smtpserverport") = 465
mail.Configuration.Fields.Item(urlms & "smtpusessl") = True
mail.Configuration.Fields.Item(urlms & "smtpconnectiontimeout") = 60
mail.Configuration.Fields.Item(urlms + "smtpauthenticate") = 1
mail.Configuration.Fields.Item(urlms + "sendusername") = "" 'login
mail.Configuration.Fields.Item(urlms + "sendpassword") = "" 'password
mail.Configuration.Fields.Update
mail.Send
It worked like a charm for my own mail server, but It fails with Gmail I don't know why....
Anyway, I tried also without the plus to concatinate and didnt work either, finally I used this:
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ' or 587
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' Google apps mail servers require outgoing authentication. Use a valid email address and password registered with Google Apps.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="somemail@yourserver.com" 'your Google apps mailbox address
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" 'Google apps password for that mailbox
ObjSendMail.Configuration.Fields.Update
ObjSendMail.To = "someone@someone.net"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "someone@someone.net"
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
ObjSendMail.Send
Set ObjSendMail = Nothing
http://somee.com/DOKA/DoHelpTopics.aspx?docode=false&thnid=102
And worked like a charm for my server but it didn't work for gmail.