none
Предупреждения системы безопасности в Microsoft Outlook 2003 RRS feed

  • Вопрос

  • Обновил в очередной раз систему, и outlook принялся меня изводить вопроасами на тему

    Программа пытается получить доступ к адресам электронной почты и соответственно предлагает выбрать время на которое этот доступ можно разрегить.

    Хочу это отключить, так как для меня эта настрйока лишняя и только мешает работе.

    Покопалася в безопансости и что-то не нашел как отключить, в сети народ предлагает ставить всякие левые утилитки, чего делать так же не хочется, как это отключить встроенными средствами?

    18 октября 2006 г. 6:06

Ответы

  • Насколько мне известно, стандартными средствами в Outlook 2003 отключить предупреждения системы безопасности нельзя.

    Можно отключить программным способом. Очень хорошо это описано у Sue Mosher "Программирование Microsoft Outlook" в главе 13. http://www.otlookcode.com

    Цитата: "Официальное решение, предлагаемое Microsoft, состоит в применении Extended MAPI, который не будет работать с VBA ... " Здесь же описана возможность получения доступа к адресной книге без дополнительных вопросов при помощи Com-оболочки для Extended MAPI Outlook Redemption.

    '=============================================================
    ' MsgToContactRedemption
    ' Listing 13.4
    '-------------------------------------------------------------
    ' Purpose : Creates a message to the selected contact using
    '           the third-party Redemption library to avoid the
    '           security prompt
    ' Notes   :
    '           Requires a reference to SafeOutlook Library (Redemption)
    '=============================================================
    Sub MsgToContactRedemption()
        Dim objApp As Outlook.Application
        Dim objItem As Object
        Dim objSafeContact As Redemption.SafeContactItem
        Dim objMsg As Outlook.MailItem
        Dim objSafeMsg As Redemption.SafeMailItem
        Dim strAddr As String
       
        Set objApp = CreateObject("Outlook.Application")
        Set objItem = _
          objApp.ActiveExplorer.Selection.Item(1)
        If objItem.Class = olContact Then
            Set objSafeContact = CreateObject _
              ("Redemption.SafeContactItem")
            objSafeContact.Item = objItem
            strAddr = objSafeContact.Email1Address
            Set objMsg = objApp.CreateItem(olMailItem)
            With objMsg
                .Subject = "Test of Redemption"
                .Body = _
                  "No prompts from objItem.Email1Address, Send"
                .To = strAddr
            End With
            Set objSafeMsg = _
              CreateObject("Redemption.SafeMailItem")
            objSafeMsg.Item = objMsg
            objSafeMsg.Send
        End If
       
        Set objMsg = Nothing
        Set objItem = Nothing
        Set objSafeContact = Nothing
        Set objApp = Nothing
    End Sub

    24 октября 2006 г. 9:25