Member 13199847 Ответов: 1

Код Vba для выбора значения из надстройки outlook

Привет Друзья,

У меня есть приведенный ниже VBA для отправки почты из outlook, но я не могу найти фрагмент кода, который выбрал бы "classification: Restricted" (эта надстройка была разработана клиентом, а надстройка называлась IC labeeling addin и добавлена на ленту outlook).

Может ли кто-нибудь помочь мне с кодом, чтобы выбрать значение из ленты outlook?


заранее спасибо.

Что я уже пробовал:

Sub CreateMail()
    Dim rng As Range
    rowN = ThisWorkbook.Sheets("Impact Analysis").Cells(Rows.Count, 7).End(xlUp).Row
    Set rng = ThisWorkbook.Sheets("Impact Analysis").Range("C6:G" & rowN)
    Dim OutApp
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "karthickonmail@gmail.com"
        '.CC = ""
        '.BCC = ""
        .Subject = "Table change impact please review."

        .HTMLBody = "The below changes has been made to the tables,please perform the regression testing" & vbCrLf & RangetoHTML(rng) _
        & vbCrLf & "Reason for Change:"

        .Send
    End With

1 Ответов

Рейтинг:
1

NightWizzard

Вы можете использовать PropertyAccessor объектной модели Outlook следующим образом:

Set oPA = oMail.PropertyAccessor 
 oPA.SetProperty myProp, myValue


Я просто не знаю значения свойства "restricted", но если вы сначала создадите почту с этим свойством, а затем прочтете список назначенных свойств, вы найдете требуемое значение. Возможно, он объединен в свойстве "флаги" - в этом случае его может быть немного сложнее разделить.

Удачи вам!