Emails en Exchange.

No consigo enviar correo mediante exchange necesito un codigo fuente, gracias!

1 Respuesta

Respuesta
1
A ver si te sirve este
Sub Envia_Mail(HTMLAviso, origen, destino, asunto)
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
' The full field name strings are used below to illustrate this process.
' The CDO for Windows 2000 type library contains string Modules
' that provide these values as named constants.
' Use these module constants to avoid typos and so on.
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp_server"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "Usuario Exchange"
Flds.Update
Set iMsg.Configuration = iConf
' ... compose message; add attachments, and so on.
Set Flds = iMsg.Fields
With Flds
.Item("urn:schemas:mailheader:to") = destino
.Item("urn:schemas:mailheader:from") = origen
.Item("urn:schemas:mailheader:sender") = origen
.Item("urn:schemas:mailheader:subject")= Asunto
.Update
End With
iMsg.HTMLBody = HTMLAviso
iMsg.Send ' Configuration settings in Config object are used to send the message.
End Sub
Has usado el código este? hay algunas cosas que noe entiendo, me podrias poner un ejemplo? muchisimas gracias .
Si, si que lo empleo, de hecho es un ejemplo, porque es un codigo que he cogido de un vbs mio que esta funcionando, y solo he cambiado el "smtp_server", en el que tienes que poner el tuyo, y el "Usuario Exchange" donde tambien tienes que poner el tuyo.
Por lo demas, lo he empleado.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas