Onderwerp in outlook

[DaanM]

In outlook 2010 krijg ik bij het verzenden van een email ineens iedere keer de melding dat de email geen onderwerp bevat. Ik moet dan kiezen voor: toch verzenden.
Voorheen kon je ook een vinkje plaatsen bij: deze melding niet meer weergeven. Maar bij 2010 niet.
Er zal toch wel ergens een optie zitten waarmee ik deze controle kan uitzetten?
Ik heb al heel lang zitten zoeken, maar ik kan het niet vinden. Iemand een idee?

 

[maniac2003]

Ik kan het zo snel ook niet vinden, maar is het voor de ontvanger niet prettiger als hij/zij weet waar de mail over gaat? Maakt het terugzoeken ook een stuk gemakkelijker.

 

[martoiu]

Ik heb het ook op het internet gevonden, al vind ik het niet zo mooi:

In Outlook druk op Alt+F11
Selecteer ThisOutlookSession doubleklik het.
Plak het onderstaande code en bewaar bij het afsluiten van Outlook.
Makro's toestaan in de vertrouwencentrum.

Option Explicit
 
'=========================================================================
' Prevents Outlook® 2010 to display a no-subject warning message
' (c) Peter Marchert - http://www.outlook-stuff.com
' 2010-07-15 Version 1.0.0
' 2010-07-19 Version 1.0.1
'=========================================================================
 
Private WithEvents colInspectors As Outlook.Inspectors
 
Private Sub Application_Startup()
 
    '---------------------------------------------------------------------
    ' Set a reference to all forms
    '---------------------------------------------------------------------
    Set colInspectors = Outlook.Inspectors
 
End Sub
 
Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)
 
    '---------------------------------------------------------------------
    ' This code is running if a form (e. g. an e-mail) will be opened
    '---------------------------------------------------------------------
 
    Dim objItem As Object
 
    '---------------------------------------------------------------------
    ' Skip errors
    '---------------------------------------------------------------------
    On Error GoTo ExitProc
 
    '---------------------------------------------------------------------
    ' Set a reference to the open item
    '---------------------------------------------------------------------
    Set objItem = Inspector.CurrentItem
 
    '---------------------------------------------------------------------
    ' A new item does not have a received time
    '---------------------------------------------------------------------
    If Year(objItem.ReceivedTime) = 4501 Then
 
        '-----------------------------------------------------------------
        ' Check if the subject is empty if an e-mail was created by a
        ' template with predefined subject.
        '-----------------------------------------------------------------
        If objItem.Subject = "" Then objItem.Subject = " "
 
    End If
 
ExitProc:
 
    '---------------------------------------------------------------------
    ' Delete the reference to the form and to the item
    '---------------------------------------------------------------------
    Set objItem = Nothing
    Set Inspector = Nothing
 
End Sub
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    On Error Resume Next
 
    '---------------------------------------------------------------------
    ' If the blank still exists it will now be removed (Outlook®
    ' will this not recognize)
    '---------------------------------------------------------------------
    Item.Subject = Trim(Item.Subject)
 
End Sub
 
Private Sub Application_Quit()
 
    '---------------------------------------------------------------------
    ' Delete the reference to the forms
    '---------------------------------------------------------------------
    Set colInspectors = Nothing
 
End Sub