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
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
