[OpenPop.NET] MessageNumber aus Sub in TextBox wiedergeben

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    [OpenPop.NET] MessageNumber aus Sub in TextBox wiedergeben

    Hey Com,

    ich wollte die MessageNumber aus einer Sub in einer TextBox wiedergeben.Mein Code für das Ermitteln der Number:

    VB.NET-Quellcode

    1. Private Shared Function GetMessageNumberFromSelectedNode(ByVal node As TreeNode) As Integer
    2. If node Is Nothing Then
    3. Throw New ArgumentNullException("node")
    4. End If
    7. If TypeOf node.Tag Is Integer Then
    8. Return CInt(node.Tag)
    11. End If
    14. Return GetMessageNumberFromSelectedNode(node.Parent)
    15. End Function


    Der Code für die TreeView, Kommentar da wo es hin soll:

    VB.NET-Quellcode

    1. Private Sub listMessages_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles listMessages.AfterSelect
    2. messageTextBox.Visible = True
    3. senderBox.Visible = True
    4. senderLbl.Visible = True
    8. Dim message As Message = messages(GetMessageNumberFromSelectedNode(listMessages.SelectedNode))
    9. senderBox.Text = message.Headers.From.MailAddress.Address
    10. msgNumb.Text = 'HIER SOLL DIE MESSAGENUMBER ERSCHEINEN
    19. If TypeOf listMessages.SelectedNode.Tag Is MessagePart Then
    20. Dim selectedMessagePart As MessagePart = DirectCast(listMessages.SelectedNode.Tag, MessagePart)
    21. If selectedMessagePart.IsText Then
    24. messageTextBox.Text = selectedMessagePart.GetBodyAsText()
    28. Else
    29. Bugtracker.RichTextBox1.Text = Bugtracker.RichTextBox1.Text & vbCrLf & "$invalid:mail_text/body"
    30. messageTextBox.Text = "<<ThunderMail>> Cannot show this part of the email. It is not text <<ThunderMail>>"
    31. End If
    32. Else
    36. Dim plainTextPart As MessagePart = message.FindFirstPlainTextVersion()
    37. If plainTextPart IsNot Nothing Then
    39. messageTextBox.Text = plainTextPart.GetBodyAsText()
    40. Else
    42. Dim textVersions As List(Of MessagePart) = message.FindAllTextVersions()
    43. If textVersions.Count >= 1 Then
    44. messageTextBox.Text = textVersions(0).GetBodyAsText()
    45. Else
    46. Bugtracker.RichTextBox1.Text = Bugtracker.RichTextBox1.Text & vbCrLf & "$invalid:mail_text/body"
    47. messageTextBox.Text = "<<ThunderMail>> Cannot show this part of the email. It is not text <<ThunderMail>>"
    48. End If
    49. End If
    50. End If
    52. End Sub


    Wie kann ich das machen ?

    Gruß iEi

    So:

    VB.NET-Quellcode

    1. Dim nb = GetMessageNumberFromSelectedNode(listMessages.SelectedNode)
    2. Dim message As Message = messages(nb)
    3. senderBox.Text = message.Headers.From.MailAddress.Address
    4. msgNumb.Text = nb.ToString
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende