ejemplos - Añadir encabezado de asunto en Outlook(VBA)

send outlook vba

Question

Básicamente, tenemos una configuración de reglas para ejecutar un script cuando se detecta una palabra clave en el cuerpo de un mensaje entrante. El script agregará el encabezado del asunto actual con una palabra al frente. Por ejemplo, Antes: "Mensaje de prueba", después: "Departamento - Mensaje de prueba". ¿Algunas ideas?

Answer 1

No probado:

mailItem.Subject = "Dept - " & mailItem.Subject
mailItem.Save 

Answer 2

Sub AppendSubject(MyMail As MailItem)
    Dim strID As String
    Dim mailNS As Outlook.NameSpace
    Dim mailItem As Outlook.MailItem

    strID = MyMail.EntryID
    Set mailNS = Application.GetNamespace("MAPI")
    Set mailItem = mailNS.GetItemFromID(strID)
    mailItem.Subject = "Dept - " & mailItem.Subject
    mailItem.Save

    Set mailItem = Nothing
    Set mailNS = Nothing
End Sub

¿Nos falta algo? EDIT: Doh! Ya respondiste nuestra pregunta con un guión completo ... ¡Gracias!

Answer 3

O si necesita una secuencia de comandos completa:

Ejecute una secuencia de comandos con MailItem como parámetro.

Sub RewriteSubject(MyMail As MailItem)

    Dim mailId As String
    Dim outlookNS As Outlook.NameSpace
    Dim myMailItem As Outlook.MailItem

    mailId = MyMail.EntryID
    Set outlookNS = Application.GetNamespace("MAPI")
    Set myMailItem = outlookNS.GetItemFromID(mailId)

    '' Do any detection here

    With myMailItem 
      .Subject = "Dept - " & mailItem.Subject
      .Save
    End With

    Set myMailItem = Nothing
    Set outlookNS = Nothing

End Sub