Запрос пароля при отправке

Question

Я хочу, чтобы Outlook запрашивал пароль или какую-то аутентификацию во всех исходящих почтовых отправлениях, потому что кто-то продолжает отправлять от имени в моей учетной записи.

Я написал:

If Omail.SendUsingAccount = "My Domain Email account typed here" Then 

    Sub password() 
    Dim pass As String 
    pass = InputBox("Enter Password") 
    If pass <> "thepassword" Then Exit Sub 

End Sub 

Это не работает. После того, как у меня есть правильный код, я могу просто вставить его в настраиваемое правило действия?

Answer 1

Пожалуйста, используйте следующий код:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
prompt$ = "Enter Password to Send Mail" 

Dim pass As String 
    pass = InputBox("Enter Password") 
If pass <> "yourpwd" Then 
Cancel = True 
End If 
End Sub 

Его испытанным и оборотный штраф.

убедитесь, что вы включили макрос из центра доверия.

Answer 2

Вы можете разработать макрос VBA, где вы можете обрабатывать событие класса класса Application, которое запускается всякий раз, когда элемент Microsoft Outlook отправляется пользователем через инспектора (до того, как инспектор закрыт, но после пользователя нажмите кнопку «Отправить») или когда в программе используется метод отправки для элемента Outlook, например MailItem.

Например:

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 = "Are you sure you want to send " & Item.Subject & "?" 
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
    Cancel = True 
End If 
End Sub 

Вы можете найти Getting Started with VBA in Outlook 2010 статью полезной.