Solved

CDOSYS

Posted on 2004-09-07
13
652 Views
Last Modified: 2012-06-27
How knows where there is exact information on the use of CDOSYS in ASP.  I need to convert all my CDONTS to CDOSYS because of an environement change.
0
Comment
Question by:pinkstonm
  • 5
  • 3
  • 3
  • +1
13 Comments
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
0
 
LVL 12

Expert Comment

by:GoofyDawg
Comment Utility
Here's a good example of sending an e-mail via CDO on the MSDN site:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/e2k3/e2k3/_clb_sending_a_web_page_by_smtp_mail_using_cdosys_vbs.asp

Here's a link to the CDO library reference:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deoricdobasics.asp

That's the source, though here's a nice example from w3schools.com:

http://www.w3schools.com/asp/asp_send_email.asp

GoofyDawg

0
 

Author Comment

by:pinkstonm
Comment Utility
I tried using it and I get an error and quickie help?

CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/toolsprocesses/smartreq_write.asp, line 70
It tells me one of the http://scemas is bad?

''*****************************
'' Send CDOSYS Notification
''*****************************
Dim iMsg
Set iMsg = Server.CreateObject("CDO.Message") 'calls CDO message COM object
Dim iConf
Set iConf = Server.CreateObject("CDO.Configuration") 'calls CDO configuration COM object
Dim Flds
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'tells cdo we're using the local smtp service
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "m0551uspln2.clienteds.extad.eds.com"
Flds.Update 'updates CDO's configuration database

iMsg.To = "david.eichler@eds.com, Matt.Pinkston@eds.com"
iMsg.From = temail
iMsg.Subject = "SMART Download Access: requested by: " & request.servervariables("HTTP_CT_REMOTE_USER") & " " & tlname & ", " & tfname
iMsg.TextBody = "Date Opened-" & now & vbnewline & "Contact-"  & tlname & ", " & tfname & vbnewline & "Email-" & temail & vbnewline & "Phone-" & tphone & vbnewline & "Business Case-" & tbc
iMsg.Send
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
Don't mees with the configursation:

 
Dim iMsg
Set iMsg = Server.CreateObject("CDO.Message") 'calls CDO message COM object
iMsg.To = "david.eichler@eds.com, Matt.Pinkston@eds.com"
iMsg.From = temail
iMsg.Subject = "SMART Download Access: requested by: " & request.servervariables("HTTP_CT_REMOTE_USER") & " " & tlname & ", " & tfname
iMsg.TextBody = "Date Opened-" & now & vbnewline & "Contact-"  & tlname & ", " & tfname & vbnewline & "Email-" & temail & vbnewline & "Phone-" & tphone & vbnewline & "Business Case-" & tbc
iMsg.Send
 
 
0
 

Author Comment

by:pinkstonm
Comment Utility
Still getting

CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/toolsprocesses/smartreq_write.asp, line 79
0
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
LVL 31

Expert Comment

by:alorentz
Comment Utility
0
 

Author Comment

by:pinkstonm
Comment Utility
All I need is a place that has doc saying what I need to specify all parameters.  My CDONTs worked fine but I got moved to a new server and it is no longer supported.
0
 
LVL 31

Expert Comment

by:alorentz
Comment Utility
We've provided you plenty of documents and links.  Sounds like the problem is you host, and you should contact them...
0
 
LVL 2

Expert Comment

by:pheine
Comment Utility
strage, but... if you tell CDOSYS sendusing = 1 (local smtp) why set the SMTPServer to "m0551uspln2.clienteds.extad.eds.com"?

should be localhost or 127.0.0.1 if you need to set it at last?
0
 
LVL 2

Expert Comment

by:pheine
Comment Utility
oh, and you have to tell the iMsg Object to use the iConf Object:
"iMsg.Configuration = iConf" or "SET iMsg.Configuration = iConf"
0
 
LVL 12

Accepted Solution

by:
GoofyDawg earned 50 total points
Comment Utility
This is working code. I nabbed it off of MSDN, and made changes to the values used for my mail server.

<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost

Const cdoSendUsingPort = 2
StrSmartHost = "mail.iarchitec.com"

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' set the CDOSYS configuration fields to use port 25 on the SMTP server

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & Request("fullname") & "&nbsp;~&nbsp;" & Request("phone") & "<br><br>Comment/Question<br>======================"
strHTML = strHTML & Request("qc")
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"


With iMsg
Set .Configuration = iConf
.To = "goofdawg@company.com"
.From = Request("fullname") & "<" & Request("email") & ">"
.Subject = Request("subject")
.HTMLBody = Request("qc")
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

%>

I was reading through the CDOSYS documentation on MSDN. It's a little convoluted because MS throws lots of little constants at you whose values you have to dig for, but once you get it, it's pretty straight forward.

GoofyDawg
0
 
LVL 12

Expert Comment

by:GoofyDawg
Comment Utility
BTW, you don't necessarily need to specify port 25 exactly with CDO. The assumption that's made when setting "sendusing" to 2 (network) is that port 25 will be used automatically, so you needn't specify. You only need to provide the transport method 1 = sendUsingPickupDirectory, 2 = sendUsingNetwork.

GoofyDawg
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now