Hola, estoy intentando enviar un correo pero no con la cuenta predeterminada que tengo en outlook. He revisado la ayuda y creo que lo que pretendo hacer se realiza atraves de la propiedad SendUsingAccount
Dim objOutlook As Object
Dim objItem As Object
Dim ADJUNTO As Variant
Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olMailItem)
Set objNameSpace = objOutlook.GetNamespace("MAPI")
With objItem
.To=Range("K1").Value
.Subject =Range("A25").Value
.SendUsingAccount = "user@yahoo.es"
.Display
EndWith
No logro hacerlo funcionar, siempre me pone la cuenta por defecto.
Este es el link de esta propiedad que viene en la ayuda.
Hola, estoy intentando enviar un correo pero no con la cuenta predeterminada que tengo en outlook. He revisado la ayuda y creo que lo que pretendo hacer se realiza atraves de la propiedad SendUsingAccount
Dim objOutlook As Object Dim objItem As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objItem = objOutlook.CreateItem(olMailItem) Set objNameSpace = objOutlook.GetNamespace("MAPI") With objItem .To = Range("K1").Value .Subject = Range("A25").Value .SendUsingAccount = "user@yahoo.es" .Display End With
No logro hacerlo funcionar, siempre me pone la cuenta por defecto.
Este es el link de esta propiedad que viene en la ayuda.
Propiedad MailItem.SendUsingAccount (Outlook)
Gracias.