Написание пользовательских правил для Outlook 2010

Мне поручили безумную задачу написать специальное правило для Outlook, влияющее на электронные письма, которые не имеют вложений . В настоящее время в мастере правил есть параметр, нацеленный на электронные письма, которые имеют вложения, но не наоборот, странно...

Также стоит сказать, что я никогда не писал ни строчки на Visual Basic! Но это всего лишь маленькое правило, насколько это может быть сложно.

Это то, что у меня есть на данный момент:

Dim WithEvents objInbox As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInbox_ItemAdd(ByVal Item As Object)

    ' If the mail doesn't contain an attachment
    If Item.Attachments.Count = 0 Then

          ' Chirp chirp..

    End If

End Sub

Пустой оператор if.. Но в основном все, что мне нужно сделать, это вызвать некоторую функцию «удалить» для объекта «Элемент». Который затем удалит электронное письмо, если оно не имеет вложения, легко. Я привык писать на Java и С#, просто к вашему сведению

Любые указатели там?


outlook vb.net rules vbscript
person Community    schedule 27.08.2012    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вам нужно сначала привести объект Item к типу MailItem, а затем вызовите MailItem.Delete. Элементы могут представлять несколько классов, например AppointmentItem, TaskItem, JournalItem и т. д.

Outlook.MailItem mailItem = Item as Outlook.MailItem;
if (mailItem != null)
{
     mailItem.Delete();
}
person SliverNinja - MSFT    schedule 27.08.2012