none
Макрос в MS Outlook RRS feed

  • Вопрос

  • Подскажите как должен выглядеть макрос в MS Outlook, который выводил бы сообщение с "определенным текстом" при попытке отправить письмо в "определенный адрес"? Что-то типа "Вы точно хотите отправить письмо" и варианты ответов "да" и "нет".

    С таким кодом спрашивает отправлять или нет каждое письмо. 

    Как добавить туда проверку адресата?

    Public WithEvents myOlApp As Outlook.Application
    
    Public Sub Initialize_handler()
    	Set myOlApp = Outlook.Application
    End Sub
    
    Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    	Dim prompt As String
    	prompt = "Отправлять письмо " & Item.Subject & "?"
    	If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
    		Cancel = True
    	End If
    End Sub

    8 ноября 2012 г. 6:05

Ответы

  • Привет.

    Вы нашли правильный пример и если еще не разобрались, то Item, который вы получаете в событии это объект MailItem. У него есть свойства To, CC, BCC в которых может быть указан адресат или адресаты. Эти свойства содержат строку адресов, разделенные точкой с запятой. Вам нужно воспользоваться функцией Split, чтобы разбить эту строку на массив и потом в цикле проверить нужную почту. Либо еще проще для поиска подстроки в строке - функцией InStr


    Для связи [mail]

    • Помечено в качестве ответа Abolmasov Dmitry 5 декабря 2012 г. 14:09
    22 ноября 2012 г. 7:53