oeoe
Bueno buscando en la base de conocimientos de Microsoft encontré que el problema se podia deber a la configuración de como se realizaba la manera de coger el correo, asi que solo me kedaba modificar la configuracion del SendUsing, he encontrado este ejemplo por el foro que funciona bien:
Código:
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
Ale ayos
