Code:
msg.FlagStatus = olFlagMarked
It's perfectly working

Thanks...