Visual Basic

Class Base 
  Public Function GetName() As String
    ' Bad code
    'Return System.Reflection.MethodBase.GetCurrentMethod().ReflectedType.Name.ToLower()

    ' Good code
    Dim type as Type = Me.GetType()
    Return type.Name
  End Function
End Class

Class Sub
 Inherits Base

  ' Some unrelated code
End Class

' In program somewhere
  Dim s as Sub
  Console.PrintLine(s.GetName()) ' should print out Sub, but it prints Base

Public Sub SendOutlookMail(Subject As String, Recipient As String, Sender as String, strHTML As String)
    Dim iMsg As New CDO.Message
   
    On Error GoTo ErrHdlr
    Const cdoSendUsingPort = 2
    
    ' Apply the settings to the message.
    With iMsg
        .To = Recipient   'Recipient 'Recipient 'ToDo: Enter a valid email address.
        .From = Sender
        .Subject = Subject
        .HTMLBody = strHTML
        .Send
    End With
    
    ' Clean up variables.
    Set iMsg = Nothing
    Exit Sub

ErrHdlr:
    Exit Sub
End Sub