Thanks a lot, this surely works very well! My code now reads:

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

Dim Prompt As String
Prompt = "Did you Bcc the study account?"
If Item.BCC = "" Then
If MsgBox(Prompt, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "BCC study account") = vbNo Then
Cancel = True
End If
End If

End Sub


However, though this works like a charm when sending emails, I get a runtime error 438 when I create (or reply to) meeting requests etc. I have tried to find a way to overcome this, but without success so far (clicking END solves the problem so there is no real issue as such, but it would be nice if I could prevent runtime errors from happening when I work in my calendar).

Does anyone know how I can prevent this from happening?