Ver Mensaje Individual
  #1 (permalink)  
Antiguo 25/01/2005, 00:33
israel_79
 
Fecha de Ingreso: diciembre-2004
Ubicación: Morelia,Michoacan,México
Mensajes: 22
Antigüedad: 20 años, 3 meses
Puntos: 0
codigo para enviar un mail desde un mebsite

Saludo...:

De antemano un saludo a todos, el problema es con el server que no soporta CDONTS y hay que cambiar el codigo con CDOSYS , podrian ayudar a describir la diferencia en codigo !???? el nuevo es el siguiente :

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")

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

Set iMsg.Configuration = iConf
iMsg.To = "[email protected]"
iMsg.From = "[email protected]"
iMsg.Subject = "Message with CDOSYS"
iMsg.TextBody = "Message body CDOSYS"
iMsg.Send