Public Sub Mail( _
   ByVal SendTo As String, _
   Optional ByVal SendCc As String = "", _
   Optional ByVal Option As Long = 0, _
   Optional ByVal Subject As String = "", _
   Optional ByVal Comment As String = "" _
)