Tengo varias cuentas de correo electrónico definidas en Outlook. ¿Es posible responder todo el correo entrante usando solo una de estas cuentas automáticamente, es decir, sin seleccionar la cuenta en el mensaje de respuesta manualmente?

Answer 1

Gracias por el A2A.

Sí, eso debería ser posible con una macro como la siguiente. Outlook tendrá que estar ejecutándose para que esto funcione. Esta macro (que no he probado) enviará una respuesta desde la cuenta predeterminada diciendo “Recibí su mensaje”. Hará esto por cada mensaje que reciba.

Private Sub Application_NewMailEx (ByVal EntryIDCollection As String)
Dim arrEID como variante, _
varEID como variante, _
olkItm como Outlook.MailItem, _
olkRpl Como Outlook.MailItem, _
olkAct As Outlook. Account
arrEID = Split (EntryIDCollection, “,”)
Para cada varEID In arrEID
Establecer olkItm = Session.GetItemFromID (varEID)
If TypeName (olkItm) “Nothing” Entonces
Si olkItm.Class = olMail entonces
Establecer olkAct = Session.Accounts.Item (1)
Establecer olkRpl = olkItm.Reply
Con olkRpl
.Body = “Recibí tu mensaje”
.SendUsingAccount = olkAct
.Salvar
.Enviar
Terminar con
Terminara si
Terminara si
próximo
Establecer olkItm = Nada
Establecer olkRpl = Nada
Establecer olkAct = Nada
End Sub