email bodies and then displays them to the user in a
similar way to Outlook Express would.
The problem I'm having is showing only the message of the
email and not some of the unnecessary jargon of the
message body.
Does anyone know of a really simple and clean way to
display only the message of the email body.
Below is a copy of the code that I'm currently using:
Expand|Select|Wrap|Line Numbers
- Private Sub MessageList_SelectedIndexChanged(ByVal
- sender As System.Object, ByVal e As System.EventArgs)
- Handles MessageList.SelectedIndexChanged
- Try
- 'Lets make sure that we're not selecting
- multiple emails to view, as this would be a bit difficult.
- If (MessageList.SelectedItems.Count <> 0) And
- (MessageList.SelectedItems.Count = 1) Then
- 'Connector/ODBC 3.51 connection string
- Dim MyConString As String = "DRIVER=
- {MySQL ODBC 3.51 Driver};" & _
- "SERVER=localhost;" & _
- "DATABASE=temp;" & _
- "UID=temp;" & _
- "PASSWORD=temp;" & _
- "OPTION=3;"
- 'Connection
- Dim MyConnection As New
- Odbc.OdbcConnection(MyConString)
- MyConnection.Open()
- Dim MyCommand As New Odbc.OdbcCommand
- MyCommand.Connection = MyConnection
- 'Select the specific email using the data
- taken from the selected entry of the Messages List view
- box.
- If iFolder_Id <> "Deleted" Then
- MyCommand.CommandText = "SELECT *
- FROM webmail_mails WHERE reciever='" & iUser_Id & "' AND
- folder='" & iFolder_Id & "' AND subject='" &
- MessageList.SelectedItems(0).Text & "' LIMIT 1"
- Else
- MyCommand.CommandText = "SELECT *
- FROM webmail_mails WHERE reciever='" & iUser_Id & "' AND
- trashed='true' AND subject='" & MessageList.SelectedItems
- (0).Text & "' LIMIT 1"
- End If
- Console.WriteLine(MyCommand.CommandText)
- Dim MyDataReader As Odbc.OdbcDataReader
- MyDataReader = MyCommand.ExecuteReader
- (CommandBehavior.Default)
- 'Some variables being declared.
- Dim sSubject As String
- Dim sSender As String
- Dim sSenderName As String
- Dim sMsg As String
- Dim dDate As String
- Dim bAttachments As Boolean
- While MyDataReader.Read
- 'Assign the data to the variables
- sSubject = MyDataReader
- ("subject").ToString
- sSender = MyDataReader
- ("sender").ToString
- sSenderName = MyDataReader
- ("sendername").ToString
- sMsg = MyDataReader("body").ToString
- dDate = MyDataReader("date").ToString
- dDate = dDate.Substring(5, 20)
- bAttachments = True
- End While
- 'Display the message in a formatted way.
- 'First we need to find out what content
- type the email is
- Dim strString As String = sMsg
- Dim strString2 As String = sMsg
- Dim type As Integer
- Dim start As Integer
- Dim finish As Integer
- type = strString.IndexOf("Content-Type:")
- Dim content As String
- Dim content2 As String
- content = sMsg.Substring(type + 14, 11)
- 'Now that we have the content type just
- make it all lower for checking.
- content = content.ToLower
- 'Is the content type:
- 'Text/Plain?
- If content = "text/plain;" Then
- start = strString.IndexOf(vbNewLine &
- vbNewLine)
- content2 = sMsg.Substring(start)
- content2 = content2.Trim
- email.Text = content2
- End If
- 'Multipart/m?
- If content = "multipart/m" Then
- start = strString.IndexOf("<html>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'This means that although it's
- Multipart it may be <HTML>
- start = strString.IndexOf
- ("<HTML>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'There is no message!
- email.Text = ""
- Else
- finish = strString.IndexOf
- ("</HTML>")
- content2 = sMsg.Substring
- (start, ((finish - start) + 7))
- email.Text = content2
- End If
- Else
- finish = strString.IndexOf
- ("</html>")
- content2 = sMsg.Substring(start,
- ((finish - start) + 7))
- email.Text = content2
- End If
- End If
- 'Multipart/a?
- If content = "multipart/a" Then
- start = strString.IndexOf("<html>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'This means that although it's
- Multipart it may be <HTML>
- start = strString.IndexOf
- ("<HTML>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'There is no message!
- email.Text = "[There is no
- message to display.]"
- Else
- finish = strString.IndexOf
- ("</HTML>")
- content2 = sMsg.Substring
- (start, ((finish - start) + 7))
- email.Text = content2
- End If
- Else
- finish = strString.IndexOf
- ("</html>")
- content2 = sMsg.Substring(start,
- ((finish - start) + 7))
- email.Text = content2
- End If
- End If
- 'Text/HTML?
- If content = "text/html; " Then
- start = strString.IndexOf("<html>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'This means that although it's
- Multipart it may be <HTML>
- start = strString.IndexOf
- ("<HTML>")
- 'MessageBox.Show(start)
- If start < 1 Then
- 'There is no message!
- email.Text = "[There is no
- message to display.]"
- Else
- finish = strString.IndexOf
- ("</HTML>")
- content2 = sMsg.Substring
- (start, ((finish - start) + 7))
- email.Text = content2
- End If
- Else
- finish = strString.IndexOf
- ("</html>")
- content2 = sMsg.Substring(start,
- ((finish - start) + 7))
- email.Text = content2
- End If
- End If
- 'Now lets add the data to the infobar
- infobar.Text = "Subject: " & sSubject &
- vbNewLine & "From: " & sSenderName & vbNewLine
- & "Date: " & dDate
- 'infobar2.Text = "From: " & sSenderName
- 'Close the connection and the reader
- MyDataReader.Close()
- MyCommand.Connection.Close()
- End If
- 'The following deals with any errors that
- have occured in the process of the above.
- 'At present they only output to the console.
- 'Catch ODBC Exception
- Catch MyOdbcException As Odbc.OdbcException
- Dim i As Integer
- Console.WriteLine(MyOdbcException.ToString)
- 'Catch program exception
- Catch MyException As Exception
- Console.WriteLine(MyException.ToString)
- End Try
- End Sub
