< Public Function EmailBodyNoHeaders (Text As String) As String (?)

Comments

    
    
    '------------------------------------------------------------------
    'Displays everything after the blank line
    '------------------------------------------------------------------

Public Function EmailBodyNoHeaders (Text As String) As String

    EmailBodyNoHeaders = Mid(Text, InStr(Text, vbCrLf & vbCrLf) + 4)
End Function

Copying, Return to index