Comment rendre le champ sujet obligatoire dans Outlook 2007?

Question

J'oublie toujours d'écrire le sujet dans l'email, donc je veux rendre le champ sujet obligatoire. Pouvez-vous m'aider s'il vous plaît?

Answer 1

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

    If Item.Subject = "" Then 
    Item.Subject = InputBox("Please do not always forget the subject!") 
    End If 

    If Item.Subject = "" Then 
    MsgBox "Won't send this without a subject." 
    Cancel = True 
    End If 
End Sub 

Answer 2

Do While Item.Subject = "" 
Item.Subject = InputBox("..") 
Loop 

Answer 3

je une routine similaire qui vérifie simplement si je mentionne l'attachement de mot, et je me demander si je veux annuler l'envoi, et je dois mettre dans la ligne:

Item.Display

afin que je puisse aller ajouter la pièce jointe. De cette façon, vous pouvez simplement demander avec une boîte de message disant d'ajouter le sujet ...