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
