como enviar emails desde asp sin colocar el password del correo remitente

[TheDark03]

Saludos...

tengo un ligero problema con asp.. necesito enviar mails pero sin poner como parametro el password del correo remitente...

he probado utilizando aspemail pero me solicita ese parametro

espero q me puedan ayudar??

[TheDark03]

Hola de nuevo weno buscando un poco mas a fondo me di con la sorpresa q si hay forma pero en la mayoria de las paginas q hablan del tema solo dan el codigo pero incompleto .. bueno sin mas ni mas aka les dejo el codigo posteado anteriormente.. ya q no conocia como se llamaba la libreria

Código ASP:

<%
if (Request.Form()<>"") then
Dim Mail, Config
Set Mail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.midominio.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set Mail.Configuration = Config
Mail.From = "[e-mail]"
Mail.To = Request.Form("email")
Mail.Subject = Request.Form("asunto")
Mail.HTMLBody = Request.Form("mensaje")
Mail.Send()
Set Mail = Nothing
Response.Write("E-mail enviado correctamente")
else %>
<form name="formail" method="post" action="sendmail.asp">
<table align="center" cellpadding="3" cellspacing="1">
<tr><td>Email: </td>
<td><input type="text" name="email" /></td> </tr>
<tr><td>Asunto: </td>
<td><input type="text" name="asunto" /></td> </tr>
<tr><td>Mensaje: </td>
<td><textarea name="mensaje"></textarea></td> </tr>
<tr><td colspan="2" align="center">
<input type="submit" value=" Enviar " name="ok"> </td> </tr>
</table>
</form>
<% end if %>
 

PD:si no tienen la libreria descargenla y registrenle saludos

[jochesfor]

'Enviamos el email
set oMail= Server.CreateObject("CDO.Message")

'Establecemos las propiedades del objeto
oMail.From = "[e-mail]"
oMail.To = Destinatario
oMail.Subject = Asunto
oMail.TextBody = Cuerpo 'oMail.HTMLBody = Cuerpo o esto si quieres enviarlo con formato e imagenes

' Enviamos el email!
oMail.Send

set oMail = nothing

Eso es todo, solo lo tienes que acomodar a lo que quieres