Y el lunes a primera hora... SE HIZO LA LUZ!!!!!
Gracias dogduck, la verdad es que sin tu ayuda no habría salido de este "embolado" en el que me han metido... Finalmente, entre el código que me has facilitado incialmente y la relación de post que me has indicado, la cosa ha salido CAÑON en cuanto me han facilitado la dirección smtp de la intranet de la empresa...
Como no, aquí os dejo el código con el fin de que tan solo realicéis las modificaciones pertinentes en los parametros del servidor smtp y tiempos... :)
Cita: Origen = "
[email protected]"
Destino = "
[email protected]"
Asunto = "Asunto del mensaje a remitir"
Mensaje = "<center><strong>HOLA</strong></center>"
Destino = "
[email protected]"
Set myMail = CreateObject("CDO.Message")
Set Config = CreateObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "direccion.smtp.de.vuestro.servidor.loquesea"
.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 myMail.Configuration = Config
myMail.Subject = Asunto
myMail.From = Origen
myMail.To=Destino
myMail.HtmlBody = Mensaje
myMail.Send
set myMail=nothing
La cosa tira CAÑON. Puuuuuuuuuuuuuuffff!!!! Vaya semanita que me ha dado este tema!!! jajajajajjajaja.
Gracias nuevamente y saludos!