Foros del Web - Ver Mensaje Individual

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;