☰

Outlook BCC 프롬프트 VBA가 자동으로 실행되지 않습니다.

tag-icon • tag-icon microsoft-outlook vba macros prompt bcc
Outlook BCC 프롬프트 VBA가 자동으로 실행되지 않습니다.

나는 이미 Excel 등의 버튼과 같은 작은 응용 프로그램을 몇 년 동안 코딩하고 있지만 VBA를 처음 접했습니다. (바보 같은 질문이라면 죄송합니다.) 그러나 이것은 나에게 결코 명확하지 않았습니다. Outlook의 자동 루프에 이 BCC 프롬프트 기능을 구현하고 싶습니다. 매크로를 실행하면 Outlook을 다시 시작할 때까지 제대로 작동합니다. Outlook을 시작할 때마다 이 매크로를 계속해서 다시 활성화해야 하는 이유는 무엇입니까? ThisOutlooksession에 배치하고 모든 매크로를 활성화했지만(그런데, 이것을 영원히 활성화해야 합니까? 나에게는 안전하지 않은 것 같습니다) 성공하지 못했습니다. 누군가 나를 도와줄 수 있다면 정말 좋을 것 같아요! 미리 감사드립니다.

Public WithEvents myOlApp As Outlook.Application

Public Sub Initialize_handler()
    Set myOlApp = CreateObject("Outlook.Application")


End Sub

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)


Dim prompt As String
prompt = "The BCC Field is empty!"



If Item.BCC = "" Then


    If msgbox(prompt, vbYesNo + vbQuestion, "BCC Field") = vbNo Then
    Cancel = True
    End If
 End If

End Sub

답변1

자동으로 실행하려면 다음을 수행하십시오 Initialize_handler.

Private Sub Application_startup()
    Initialize_handler
End Sub

다음을 사용하여 단순화할 수 있습니다.

Private Sub Application_startup()
    Set myolApp = CreateObject("Outlook.Application")
End Sub

모든 코드를 삭제하고 대신 다음을 사용하여 단순화할 수 있습니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim prompt As String
    prompt = "The BCC Field is empty!"

    If Item.BCC = "" Then
        If MsgBox(prompt, vbYesNo + vbQuestion, "BCC Field") = vbNo Then
            Cancel = True
        End If
    End If

End Sub

답변2

Application_Startup()대신 사용하십시오 Initialize_handler().

관련 정보