Sending mail with CDOEX

Daniel Schaffer · January 21st, 2004, 12:08 PM

I've been searching around for a few weeks trying to find a "for idiots" tutorial on how to use CDOEX, as all I want to do is send a simple e-mail. I'm developing an intranet application for a company that uses active directory and exchange server (I think 2000), and all I need to do is send simple email messages. The problem I seem to be having is that I can't figure how to find the URL for a user's mailbox. The code I'm using is:

Code:

submit = Request.Form.Item("B1")

if submit = "Send" then
Dim iMsg
'Create the message object
Set iMsg = CreateObject("CDO.Message")
Dim iConf
'Create the configuration object
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
'Set the fields of the configuration object to send using exchange server
Set Flds = iConf.Fields
Flds( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
Flds.Update
'Set the message to,from,subject,body properties.
Set iMsg.Configuration = iConf
iMsg.To = Request.Form.Item("Text1")
iMsg.From = "<my email address>"
iMsg.Subject = Request.Form.Item("Text3")
iMsg.TextBody = Request.Form.Item("TextArea1")
iMsg.Send

end if

Using that code, I get this error:

Error Type:
CDO.Message.1 (0x80040233)
Could not find the Sender's mailbox.
/NewMail.asp, line 24

Line 24 is the .Send command.

How can I find a user's mailbox, given their logon name, domain, and email address?

Imar · January 21st, 2004, 01:33 PM

Why do you need an URL to user's mailbox? Which user are you referring to?

If all you need to do is send an e-mail, using CDO should do the trick.

Do you have a SMTP server running on the machine that tries to send the message?

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

Daniel Schaffer · January 21st, 2004, 02:46 PM

I'm using CDOEX, which is CDO for Exchange Server, which I would think means that there are no SMTP servers involved, the mail is just sent using the Exchange server. The thing is, there are about 10 Exchange servers on my network to accomodate all the users. I'm trying to use my account to send email, and I know which server my account uses, but I'm not sure where to go from there.

Imar · January 21st, 2004, 03:05 PM

Well, true. But if there *is* a local SMTP server, this should also send your e-mail:

Code:

Dim objMsg
Set objMsg = CreateObject("CDO.Message")
With objMsg
  .To = """Your To Name"" <Your To Address>"
  .BCC = """Your BCC Name"" <Your BCC Address>"
  .From = """Your From Name"" <Your From Address>"
  .Subject = "Your Subject"
  .TextBody = "The Body of the Message"
  .Send
End With
Set objMsg = Nothing

This code will send the message to the localhost, so it needs to be running an SMTP server that is set up to send the message directly, or relay it to one of your exchange servers.

Cheers,

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

RickChan · March 21st, 2005, 02:06 AM

I currently facing the same problem....Where the following error msg
Error Type:
CDO.Message.1 (0x80040233)
Could not find the Sender's mailbox.

I try various e-mail address but still cant solve it.

Is SMTP virtual Server included in the IIS 5.1 in winXp support the CDO object? And also if support, what is the domain name for the sender's mailbox??????????