Hey Com,
ich wollte die MessageNumber aus einer Sub in einer TextBox wiedergeben.Mein Code für das Ermitteln der Number:
Der Code für die TreeView, Kommentar da wo es hin soll:
Wie kann ich das machen ?
Gruß iEi
ich wollte die MessageNumber aus einer Sub in einer TextBox wiedergeben.Mein Code für das Ermitteln der Number:
VB.NET-Quellcode
Der Code für die TreeView, Kommentar da wo es hin soll:
VB.NET-Quellcode
- Private Sub listMessages_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles listMessages.AfterSelect
- messageTextBox.Visible = True
- senderBox.Visible = True
- senderLbl.Visible = True
- Dim message As Message = messages(GetMessageNumberFromSelectedNode(listMessages.SelectedNode))
- senderBox.Text = message.Headers.From.MailAddress.Address
- msgNumb.Text = 'HIER SOLL DIE MESSAGENUMBER ERSCHEINEN
- If TypeOf listMessages.SelectedNode.Tag Is MessagePart Then
- Dim selectedMessagePart As MessagePart = DirectCast(listMessages.SelectedNode.Tag, MessagePart)
- If selectedMessagePart.IsText Then
- messageTextBox.Text = selectedMessagePart.GetBodyAsText()
- Else
- Bugtracker.RichTextBox1.Text = Bugtracker.RichTextBox1.Text & vbCrLf & "$invalid:mail_text/body"
- messageTextBox.Text = "<<ThunderMail>> Cannot show this part of the email. It is not text <<ThunderMail>>"
- End If
- Else
- Dim plainTextPart As MessagePart = message.FindFirstPlainTextVersion()
- If plainTextPart IsNot Nothing Then
- messageTextBox.Text = plainTextPart.GetBodyAsText()
- Else
- Dim textVersions As List(Of MessagePart) = message.FindAllTextVersions()
- If textVersions.Count >= 1 Then
- messageTextBox.Text = textVersions(0).GetBodyAsText()
- Else
- Bugtracker.RichTextBox1.Text = Bugtracker.RichTextBox1.Text & vbCrLf & "$invalid:mail_text/body"
- messageTextBox.Text = "<<ThunderMail>> Cannot show this part of the email. It is not text <<ThunderMail>>"
- End If
- End If
- End If
- End Sub
Wie kann ich das machen ?
Gruß iEi