cdo smtp message erroe [Archive] - DiscountASP.NET Forums

bharadwaj11

01-04-2010, 11:41 AM

Hi i am new to asp.net. I am trying to send an email using remote smtp server from go daddy. The following code gives cdo.message.1 error 80040213. says that the .send method line is the error. The transport failed to connect to the server. Please help me. Thank you so much.

<!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/xhtm " >
<head>

<title>::Test email::</title>

<%
sub email()
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

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Test"
objMessage.From = "webmaster@callmd.com"
objMessage.To = "bharadwaj.m7@gmail.com"
objMessage.TextBody = "This is some sample message text.."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webmaster@callmd.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "webmasterCALLMD"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send
end sub
%>

</head>

<body>
<form id="form1" action="email.asp" runat="server">
To:
<input type="text" name="to" />
<br />
From:
<input type="text" name="from" />
<br />
Subject:
<input type="text" name="subject" />
<br />
Body:
<input type="text" name="body" />
<p>Result: <% call email()%></p>
<button type="submit" name="submit">
Send:
</button>
</form>

</body>
</html>