Evitar enviar email sem assunto

Pois é, não sei se sou o único mas passo a vida a enviar emails sem assunto. Andei  a pesquisar no outlook se havia alguma forma de ser alertado que estava a tentar enviar um email sem assunto antes de ser enviado mas não encontrei nada.

Depois de alguma pesquisa na net lá encontrei a solução. Aqui fica:

1. Abrir Outlook

2. Carregar Alt+F11. Isto vai abrir o editor de Visual Basic. Carregar em Ctrl+R para abrir um novo projecto (lado esquerdo).

3. Expandir o painel da esquerda “Microsoft Outlook Objects” ou “Project1″. Agora pode-se ver “ThisOutLookSession”.

4. Duplo click em “ThisOutLookSession”.

5.  Copiar para lá o seguinte codigo:.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
End Sub

6. Atenção que por vezes ao copiar as " são substituidas por “, e nesse caso dá erro. Têm de corrigir manualmente caso vos aconteça isso. A partir deste momento são alertados com uma mensagem caso não possuam assunto :). 

Força