Yours:
strMessage = "*** " & CurrentUser & " has assigned a marketing activity for you in the database *** " & vbCrLf & vbCrLf
Possible Error:
strMessage = "*** " & CurrentUser & " has assigned a marketing activity for you in the database " *** " & vbCrLf & vbCrLf
The problem could be...