• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 264
  • Last Modified:

Why CDO don´t send email? I got Win2000, IIS 5 with ASP

Hi experts!

I try and try and try...I looking for an error in my ASP code but I don´t send email. I found the CDO dll, and I see in my IIS manger that SMNT exist.

What problem I have?

Thnx a lot
  • 2
  • 2
1 Solution
Can you post your code?
javiermorquechoAuthor Commented:
Excuse me. The code is:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
    Dim destinatario
    Dim nombre
    Dim asunto
    Dim email
    Dim telefono
    Dim direccion
    Dim cp
    Dim localidad        
    Dim estado
    Dim comentario        
    destinatario    = Request.Form("destinatario")
    nombre          = Request.Form("nombre")    
    asunto          = Request.Form("asunto")
    email           = Request.Form("email")    
    telefono        = Request.Form("telefono")
    direccion       = Request.Form("direccion")    
    cp              = Request.Form("cp")
    localidad       = Request.Form("localidad")    
    estado          = Request.Form("estado")    
    comentario      = Request.Form("comentario")    
    Set myMail      = CreateObject("CDO.Message")
    If destinatario = "" Then
        myMail.From     = "emailFrom@domain.com"
        myMail.To       = "emailTo@domain.com"
        myMail.HTMLBody = "Mesagge.............shalalalala"
        set myMail      = nothing
        Response.Write( "Error" )
    End If
<!-- Confirmación de envío 
<div style='text-align: center;'><img style='width: 663px; height: 84px;' alt='logo de CTI' src='../Images/logo12.png'><br>
    <span style='font-family: Arial'>
Hemos recibido su petici&oacute;n, a la brevedad nos pondremos en contacto con Ud.<br>

Open in new window

javiermorquechoAuthor Commented:
For testing destinatario = "" is true....
You aren't configuring mymail.

Here's the function that I use.

Public Function sendEmail (emailTo, emailFrom, emailSubject, emailBody)
Const cdoSendUsingPickup = 1  'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2    'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0        'Do not authenticate
Const cdoBasic = 1            'basic (clear-text) authentication
Const cdoNTLM = 2             'NTLM
const smtpSendUsing = 1       '1=local, 2=remote
Const smtpServer    = "SMTP SERVER"
Const smtpPort      = 25
Const smtpUN        = "SMTP USER NAME"
Const smtpPW        = "SMTP PASSWORD"
Const UseSSL        = False
Const smtpTimeout   = 10
Dim email
Set email = server.CreateObject("CDO.Message")
With email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")               = smtpSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")              = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")          = smtpport
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")        = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")            = smtpUN
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")            = smtpPW
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")              = UseSSL
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")   = smtpTimeout
End With
With email
.Subject  = emailSubject
.From     = emailFrom
.To       = emailTo
.TextBody = emailBody
if err=0 then sendEmail=true
End With
Set email=Nothing
End function

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now