Tuesday, February 2, 2016

Outlook add headers and tags for project IDs


Sub AddHeader(m As Outlook.MailItem, strProjectNumber As String)
'Dim m As Outlook.MailItem
    Dim pa As Outlook.PropertyAccessor
    Dim myOlFormat As Integer
    myOlFormat = m.BodyFormat
    m.BodyFormat = olFormatUnspecified
    'Set m = Application.CreateItem(olMailItem)
    'm.Body = m.Subject
    Set pa = m.PropertyAccessor
    pa.SetProperty "http://schemas.microsoft.com/mapi/string/{00020386-0000-0000-C000-000000000046}/X-MS-Exchange-Organization-AECOM-Project", strProjectNumber
    Select Case myOlFormat
        Case olFormatHTML
            m.HTMLBody = m.HTMLBody & vbCr & "[X-MS-Exchange-Organization-AECOM-Project:" & strProjectNumber & "]"
            m.HTMLBody = m.HTMLBody & vbCr & " & strProjectNumber & "]
"
        Case olFormatPlain, olFormatRichText, olFormatUnspecified
            m.Body = m.Body & vbCr & "[X-MS-Exchange-Organization-AECOM-Project:" & strProjectNumber & "]"
    End Select
End Sub

No comments:

Post a Comment