Avatar of elieazzi
Flag for United States of America asked on

Set Mail=CreateObject("CDO.Message")

Hi Experts,

I have the following page.http://www.caf-fca.org/en/contact/

It was hosted on a windows 2000 Server and I was able to receive emails.  The code is working but I'M NOT RECEIVING ANY EMAILS... Should I need to installed anything on the server.

It's  Windows 2008 Servers.  I've have the code CDO.MESSAGE to send an online forms.

// Front CODE 

<form method="post" action="../who_we_are/thankyou.asp" onSubmit="return checkForm(this);">
<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center">
 <tr bgcolor="#4775a3">
   <td colspan="2"><div align="left"><strong><font color="#FFFFFF" size="+1">*</font> <font color="#FFFFFF"> = Required field</font></strong></div></td>
 <tr bgcolor="#ccd9e5">
   <td width="36%" class="byline"><div align="right"> Send this e-mail to:</div></td>
   <td width="64%" class="byline"><select size="1" name="to" class="formfield">
                <option selected value="info@caf-fca.org">General Enquiries</option>
                <option value="margo_royce@caf-fca.org">Marketing, Communications & Media Enquiries</option>
 			    <option value="margo_royce@caf-fca.org">CAF-FCA Conference</option>
                <option value="elie_azzi@caf-fca.org">Information Technology</option>
                <option value="emily_arrowsmith@caf-fca.org">Programs & Corporate Development</option>						
 <tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right"> Attention: </div></td>
   <td><input type="text" name="attn" size="51">
   <INPUT TYPE="HIDDEN" name="note" value="Email sent from CAF-FCA Web site - http://www.caf-fca.org/english/contact.asp"></td>
 <tr bgcolor="#ccd9e5">
   <td class="byline"><div align="right"> Preferred contact method:</div></td>
   <td><select size="1" name="method" class="formfield">
                <option selected value="email">by e-mail</option>
                <option value="phone">by telephone</option>
                <option value="do not contact me">do not contact me</option>
 <tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right">Your name: </div></td>
   <td><select name="salutation" size="1" id="MyContactInfo_PrefixList" size="15">
     <option selected>Select One</option>
     <option value="Mr.">Mr.</option>
     <option value="Mrs.">Mrs.</option>
     <option value="Ms.">Ms.</option>
     <option value="Dr.">Dr.</option>
    </select><input type="text" name="name" size="35"></td>
<tr bgcolor="#ccd9e5">
   <td width="36%" class="byline"><div align="right"><font size="+1" color="#FF0000"><strong>*</strong></font> Your Email:</div></td>
   <td width="64%"><input type="text" name="From" size="51"></td>

<tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right">Your telephone: </div></td>
   <td>( <input name="phone1" id="phone1" value="" size="3" maxlength="3"> 
        <input name="phone2" id="phone2" value="" size="3" maxlength="3"> 
        <input name="phone3" id="phone3" value="" size="4" maxlength="4"> 
          [ <input name="phone4" id="phone4" value="" size="6" maxlength="6"> 
          ]  </td>

<tr bgcolor="#ccd9e5">
   <td class="byline" valign="top"><div align="right"> What can we do for you?</div></td>
   <td><textarea cols="40" rows="5" name="message"></textarea></td>
  <tr bgcolor="#DDDDDD">
   <td colspan="2" class="byline" align="center">
 <input type="submit" value="Submit" name="SUBMIT">
 <input type="reset" value="Clear" name="RESET">

// BACKEND CODE thankyou.asp

Dim from, sendto, subject, attn, body, name, phone, method
Dim strSQL

Set from = Request.Form("from")
Set subject = Request.Form("subject")
Set sendto = Request.Form("to")
Set attn = Request.Form("attn")
Set body = Request.Form("message")
Set salutation = Request.Form("salutation")
Set name = Request.Form("name")
Set phone1 = Request.Form("phone1")
Set phone2 = Request.Form("phone2")
Set phone3 = Request.Form("phone3")
Set phone4 = Request.Form("phone4")
Set method = Request.Form("method")

body =	"From: " & salutation & " " & name & chr(10) & chr(13) & _
		"Preferred contact method: " & method & chr(10) & chr(13) & _
		"E-mail: " & From & chr(13) & _
		"Phone: " & "(" & phone1 & ")" & " " & phone2 & "-" & phone3 &  " Ext. " & phone4 & chr(10) & chr(13) & _ 
		"Message:" & chr(13) & body & chr(10) & chr(13) & _
		"--------------------------------------------------------------" & chr(13) & _
		"E-mail sent via CAF-FCA web forms.  Email has been sent to : " & sendto & " - " &  now() & chr(10) & chr(13) 

'--------------July 28 2004 Sending email using CDONT --------------------
	Set Mail=CreateObject("CDO.Message")
Mail.From = name & " (" & From & ")"

On Error Resume Next	
	set Mail = Nothing


'On Error Resume Next
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
	Response.Write "Thank you.<br><br>Your email has been sent. Please allow at least 24 hours for a response if you requested one."
End If

Open in new window

Windows Server 2008ASPMicrosoft IIS Web Server

Avatar of undefined
Last Comment

8/22/2022 - Mon

View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.

Hi Expert,

Please advice, What I should do I've copied the code for your to test... please advice
Public Sub SendEMail(ByVal argFromAddress, ByVal argToAddress, ByVal argSubject, ByVal argBody)
      Dim objMail
      On Error Resume Next  ' Fail quietly ...

Const cdoSendUsingMethod        = _
Const cdoSendUsingPort          = 2
Const cdoSMTPServer             = _
Const cdoSMTPServerPort         = _
Const cdoSMTPConnectionTimeout  = _
Const cdoSMTPAuthenticate       = _
Const cdoBasic                  = 1
Const cdoSendUserName           = _
Const cdoSendPassword           = _

Dim objConfig  ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
     .Item(cdoSendUsingMethod)       = cdoSendUsingPort
     .Item(cdoSMTPServer)            = ""
     .Item(cdoSMTPServerPort)        = 25
     .Item(cdoSMTPConnectionTimeout) = 10
     .Item(cdoSMTPAuthenticate)      = cdoBasic
     .Item(cdoSendUserName)          = "username"
     .Item(cdoSendPassword)          = "pasword"

End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
     .To       = argToAddress
     .From     = argFromAddress
     .Subject  = argSubject
     .HTMLBody = argBody & " " & Now() 
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

End Sub 

Open in new window


Your help has saved me hundreds of hours of internet surfing.