cdo.message

问题 I'm facing with a strange problem using CDO.sys for sending email messages from a VBA-enabled Excel application. I've used the following code, found at https://www.rondebruin.nl/win/s1/cdo.htm : Sub SendMailCDO(FSubject As String, FBody As String, FFrom As String, FTo As String, FCc As String) Dim iMsg As Object Dim iConf As Object Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf

问题 Herllo I have been trying to use some CDO Message VBA coding to automate sending short Emails. All is for private use, and never more than a couple of Emails per day. Either the Emailing is for people in my family, or other peple who I am sharing the coding with , for example on free help forums. My macros definitely work, and in the past were very reliable. More recently I am finding that more and more often an Email account no longer works. So I have to replace the sending EMail account

问题 Huhlo, I have a typical „CDO gmail Email send“ macro. It has worked reliably for a couple of years now. I use a spare gmail account of mine as the address that it uses to send from. Recently I have been wanting to share the macro to some people. So I will use a different gmail address as the sender. I have some other spare gmail accounts myself and also some of the people I want to share the macro with have registered an account and given me the Username and Password to add to the macro as

问题 I'm writing an application in classic ASP (yes, please forgive me) that sends e-mails using Google Mail. I have it working just fine like this: Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com

问题 I'm trying to send a mail with Microsoft Office Excel 2007 VBA code but I'm getting the error: Run-time error '-2147220973 (80040213)': Automation error The code that I'm using is: Dim cdomsg As Object Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp

问题 I'm trying to send a mail with Microsoft Office Excel 2007 VBA code but I'm getting the error: Run-time error '-2147220973 (80040213)': Automation error The code that I'm using is: Dim cdomsg As Object Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp

问题 I have an asp page that sends the details of a form via email using CDO. So far, I have done this using smtp port 25 over a clear connection to a hmail server. I now need to use an SSL connection. I have created a security certificate and set hmail server to use port 465 and ssl. However, for some reason when I try to send the form I get an error 500 and the email is not sent. I have tried with port 587 as well but it doesn't work either. The CDO code I use is as follows: If request.Form(

问题 I have an asp page that sends the details of a form via email using CDO. So far, I have done this using smtp port 25 over a clear connection to a hmail server. I now need to use an SSL connection. I have created a security certificate and set hmail server to use port 465 and ssl. However, for some reason when I try to send the form I get an error 500 and the email is not sent. I have tried with port 587 as well but it doesn't work either. The CDO code I use is as follows: If request.Form(

问题 I've got the code below, and I'm trying to set the from field to allow Unicode. Currently in my email client I get "??". The subject line and any content shows the Unicode correctly. And looking at the MSDN, the property should be "urn:schemas:httpmail:from" . Anyone solved this issue? Dim AC_EMAIL : AC_EMAIL = "test@test.com" Dim AC_EMAIL_FROM : AC_EMAIL_FROM = "测试 <test@test.com>" Dim strSubject : strSubject = """测试"" testing testing" set oMessage = WScript.CreateObject("CDO.Message") With

问题 I've got the code below, and I'm trying to set the from field to allow Unicode. Currently in my email client I get "??". The subject line and any content shows the Unicode correctly. And looking at the MSDN, the property should be "urn:schemas:httpmail:from" . Anyone solved this issue? Dim AC_EMAIL : AC_EMAIL = "test@test.com" Dim AC_EMAIL_FROM : AC_EMAIL_FROM = "测试 <test@test.com>" Dim strSubject : strSubject = """测试"" testing testing" set oMessage = WScript.CreateObject("CDO.Message") With