Enviar mail desde outlook express
Publicado por Fabiana (5 intervenciones) el 14/03/2003 05:21:20
Hola:
He diseñañado un cliente de correo pero utilizo las funciones del outlook y todo anda barbaro. El problema que necesito que haga lo mismo pero utilizando el outlook exprres y no encuento la referencia solo encontre una libreria que la agregue y no se como llamarla les paso un ejemplo de lo que hice para que se den una idea.
Dim MiAplicacion As Outlook.Application, MiMensaje As Outlook.MailItem
Dim Receptor As Recipient
Private Sub CmdEnviar_Click()
Set MiAplicacion = CreateObject("Outlook.Application")
Set MiMensaje = MiAplicacion.CreateItem(olMailItem)
Set Receptor = MiMensaje.Recipients.Add(TxtPara)
MiMensaje.Subject = TxtAsunto
MiMensaje.Body = TxtTexto
MiMensaje.Send
Set MiMensaje = Nothing
Set MiAplicacion = Nothing
End Sub
Bueno gracias a todos.
Fabiana
He diseñañado un cliente de correo pero utilizo las funciones del outlook y todo anda barbaro. El problema que necesito que haga lo mismo pero utilizando el outlook exprres y no encuento la referencia solo encontre una libreria que la agregue y no se como llamarla les paso un ejemplo de lo que hice para que se den una idea.
Dim MiAplicacion As Outlook.Application, MiMensaje As Outlook.MailItem
Dim Receptor As Recipient
Private Sub CmdEnviar_Click()
Set MiAplicacion = CreateObject("Outlook.Application")
Set MiMensaje = MiAplicacion.CreateItem(olMailItem)
Set Receptor = MiMensaje.Recipients.Add(TxtPara)
MiMensaje.Subject = TxtAsunto
MiMensaje.Body = TxtTexto
MiMensaje.Send
Set MiMensaje = Nothing
Set MiAplicacion = Nothing
End Sub
Bueno gracias a todos.
Fabiana
Valora esta pregunta


0