Enviar un correo con ASP

FerchoG · #1 (**permalink**) 09/09/2002, 14:15

Use este codigo para enviar correos desde una pagina ASP. Pero no llegan todos los correos. Algunas veces funciona. Debo comprar algo para asegurar que lleguen todos los correos. Me esta causando un gran problema perder correos electronicos que se generan desde este punto. Alguien me puede ayudar o aclarar lo que me sucede. este es el codigo que uso.

email.asp

Código:

&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;&lt;/TITLE&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;CENTER&gt;&lt;H2&gt;Send Email&lt;/H2&gt;&lt;/CENTER&gt;
&lt;%
Dim oMail, sDestino, sRemite, sBody, accion
sDestino=Trim(CStr(Request.Form(&quot;Para&quot;)))
sRemite=Trim(CStr(Request.Form(&quot;De&quot;)))
sBody=CStr(Request.Form(&quot;Cuerpo&quot;))
if (sDestino = &quot;&quot; or sRemite = &quot;&quot;) then
	Formulario
else
	MandarMail
end if

Sub Formulario
%&gt;
&lt;TABLE BORDER=&quot;1&quot; WIDTH=&quot;400&quot; ALIGN=&quot;center&quot;&gt;
&lt;FORM NAME=&quot;Email&quot; ACTION=&quot;email.asp&quot; METHOD=&quot;post&quot;&gt;
&lt;TR&gt;
	&lt;TD&gt;&lt;B&gt;To:&lt;/B&gt;&lt;/TD&gt;
	&lt;TD&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;Para&quot;&gt;&lt;/TD&gt;
&lt;TR&gt;
	&lt;TD&gt;&lt;B&gt;From:&lt;/B&gt;&lt;/TD&gt;
	&lt;TD&gt;&lt;INPUT TYPE=&quot;text&quot; NAME=&quot;De&quot;&gt;&lt;/TD&gt;
&lt;TR&gt;
	&lt;TD&gt;&lt;B&gt;Message:&lt;/B&gt;&lt;/TD&gt;
	&lt;TD&gt;&lt;TEXTAREA NAME=&quot;Cuerpo&quot; WRAP=&quot;virtual&quot; ROWS=&quot;6&quot; COLS=&quot;40&quot;&gt;&lt;/TEXTAREA&gt;&lt;/TD&gt;
&lt;TR&gt;
	&lt;TD COLSPAN=&quot;2&quot;&gt;&lt;CENTER&gt;
			&lt;INPUT TYPE=&quot;submit&quot; VALUE=&quot;Send Email!&quot;&gt;
			&lt;INPUT TYPE=&quot;reset&quot;&gt;
					&lt;/CENTER&gt;
	&lt;/TD&gt;
&lt;/FORM&gt;
&lt;/TABLE&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
End Sub 'Formulario
Sub MandarMail
set oMail=Server.CreateObject(&quot;CDONTS.NewMail&quot;)
oMail.To=sDestino
oMail.From=sRemite
sBody=sBody &amp; VbCrLf &amp; VbCrLf &amp; &quot;If You have anwer for this inquiry, Please &quot;
sBody=sBody &amp; &quot;&lt;a href='email.asp'&gt;Reply this email&lt;/a&gt;&quot;
oMail.Body=sBody
oMail.Send
set oMail=nothing
Response.Write(&quot;Your message has been sent to the following recipient(s):&lt;i&gt;&quot;&amp;sDestino&amp;&quot;&lt;/i&gt;.&quot;)
Response.Write(&quot;&lt;INPUT TYPE='button' VALUE='Close Window' onClick=&quot;&quot;window.close()&quot;&quot;&gt;&quot;)
End Sub 'MandarMail
%&gt;

Mickel · #2 (**permalink**) 09/09/2002, 15:36

El codigo esta correcto. CDONTS no deberia darte mayores problemas. Si sigues con eso, reinstalalo.

Schna · #3 (**permalink**) 10/09/2002, 04:21

Estoy haciendo algo parecido, pero quiero enviar los e-mails a través del programa que este activo por defecto en el sistema para el envio de mails.

Como se puede hacer eso?

Por cierto el código yo lo he probado y a mi me funciona correctamente!