Ver Mensaje Individual
  #7 (permalink)  
Antiguo 28/04/2003, 11:57
Avatar de zink
zink
 
Fecha de Ingreso: mayo-2002
Ubicación: Aguascalientes
Mensajes: 125
Antigüedad: 22 años, 11 meses
Puntos: 0
hola Demente:
Te comento que yo ya lo solucioné....
le pregunté a mi proveedor de hosting y el me solucionó las dudas para poder configurar el asp.

te paso el código a ver si te sirve:

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Update
End With

Dim iBP
With iMsg
Set .Configuration = iConf
.To = "[email protected]"
.From = Request.Form("mail")
.Subject = "cdonts con win 2000"
.HTMLBody = "cuerpo del msg"
.Send
End With

Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


me comentas si te sirvió