Anhängen Betreff in Outlook (VBA)

Grundsätzlich haben wir in der Regel setup ein Skript ausgeführt, wenn ein code-Wort erkannt wird, in den Körper einer eingehenden Nachricht. Das Skript hängen Sie den aktuellen Betreff-Zeile mit einem Wort vor. Zum Beispiel, Vor: "Test-Nachricht", Nach: "Dept - Test-Message". Irgendwelche Ideen?

InformationsquelleAutor | 2008-09-18
  1. 4

    Benötigen oder wenn Sie ein ganzes Skript:

    Tun, die ein Skript Ausführen, mit dem MailItem als parameter.

    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
    • Warum willst du eine neue variable erstellen, die für das mailitem-und schauen Sie durch die EntryID? Das mailitem ist direkt verfügbar für die Prozedur als parameter.
    InformationsquelleAutor Matt
  2. 0
    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

    Sind wir etwas fehlt? EDIT: Doh! Sie bereits beantwortet unsere Frage mit einem vollständigen script... Danke!

    InformationsquelleAutor
  3. 0

    Nicht getestet:

    mailItem.Subject = "Dept - " & mailItem.Subject
mailItem.Save
    InformationsquelleAutor Matt
Schreibe einen Kommentar