jwcolby
jwcolby at colbyconsulting.com
Fri May 23 18:03:51 CDT 2008
Folks, I was recently dernaged enough to stop using outlook (which worked just fine, but was a ROYAL PITA to move from computer to computer) and start using Thunderbird. Now... I need to use CDO to send my mail (I guess). I have a bit of an issue in that I use an SMTP "mail forwarder" to send my email, to get around port 25 blocking. I have found three different pieces of code, none of which "just work", in fact none of them work at all. Function mCDOSendMail() Dim objMessage As CDO.Message Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.From = "jwcolby at colbyconsulting.com" objMessage.To = "jwcolby at colbyconsulting.com" objMessage.TextBody = "This is some sample message text." objMessage.Send End Function the above code gives me an error "The send using configuration is invalid". Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Dim Flds As Variant Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _ = "smtp-auth.no-ip.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 3325 .Update End With strbody = "Hi there" With iMsg Set .Configuration = iConf .To = "jwcolby at colbyconsulting.com" .CC = "" .BCC = "" .From = """John"" <jwcolby at colbyconsulting.com>" .Subject = "Important message" .TextBody = strbody .Send End With End Sub The above code gives me: "The server rejected one or more recipient addresses. The server response was 554 5.7.1 <unknown[97.82.150.214]>: client host rejected: Access denied" This looks like SOMETHING is happening. smtp-auth.no-ip.com is MY email forwarder. The problem here is that all of these examples give NO explanation of anything that is happening. Like what in the heck is all the HTTP://schemas crap? Why is it going to microsoft.com? Am I supposed to change that? If so to what? Wouldn't it be nice if just ONE TIME example code would actually tell you what you need to know to use it? Can anyone help me with this stuff? Thanks, -- John W. Colby www.ColbyConsulting.com