Enviar un correo desde Exchange.

[masterboy6666]

Hola, tengo que hacer un asp que se conecte a Exchange y mande un correo desde este servidor. Antes para hacer esta operacion utilzaba el CDONTS.NewMail, pero quieren que todos los correos salgan por Exchange. Saben la forma de hacer esto?

Muchas gracias.

[masterboy6666]

Pues ya lo encontre, para quien le sirva.

<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->
<%
Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "server_smtp"
.Update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "quien lo envia"
.To = "quien lo recibe"
.Subject = "Sample CDO Message"
.TextBody = "This is a test for CDO.message"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Gracias.

[tammander]

Podrías poner en la seccion de clases y subrutinas.

Un saludo