- Abra o Outlook
- Pressione Alt F11 . Isto irá abrir o editor do Visual Basic.
- Expanda o Projeto1 no painel de projetos do lado esquerdo
- Expanda Objetos do Microsoft Office Outlook
- Agora você verá "ThisOutlookSession". Clique duas vezes sobre isso.
-
Agora copie o código a seguir e cole o código abaixo na nova janela aberta quando você clica duas vezes em "ThisOutlookSession".
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strSubject As String strSubject = Item.Subject If Len(strSubject) = 0 Then Prompt$ = "Mail is without subject. Do you want send it anyway?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Subject is empty") = vbNo Then Cancel = True End If End If End Sub
-
Salve e feche a janela. Isso é tudo.
Agora você pode tentar enviar um e-mail sem assunto do seu Outlook - você receberá este maravilhoso alerta.