Problem mit E-mail

  • VB.NET

    Problem mit E-mail

    Hi ich habe einen Tip top E-mail code doch leider habe ich ein Problem ich möchte das Pawort und die anderen sachen in AUTH haben und ich habe es schon ein bisschen geschafft Doch dann kommt eine Fehlermeldung die besagt das "passwort" ungültig in den wert Bolean konvertiert wird. was kann ich da Tun das ich es Authentifiziert habe ??

    Der code den ich umgeändert habe

    VB.NET-Quellcode

    1. Public Sub sendmail()
    4. ' Neues MailMessage-Objekt mit Absender und
    5. ' Empfänger-Adresse erstellen
    6. Dim oMail As New MailMessage(TextBox4.Text, TextBox2.Text)
    8. ' SMTP-Server
    9. Dim oSMTP As New SmtpClient
    10. With oSMTP
    11. ' Mailserver
    12. .Host = Label5.Text
    13. .Port = 25
    15. ' Erweiterte Mail-Einstellungen
    16. .UseDefaultCredentials = False
    17. .DeliveryMethod = SmtpDeliveryMethod.Network
    19. ' SMTP-AUTH mit UserName und Kennwort
    21. .Credentials = New Net.Authorization(Passwort, Benutzername)
    22. End With
    24. With oMail
    25. ' Betreff
    26. .Subject = TextBox3.Text
    28. ' Nachricht (kein HTML)
    29. .IsBodyHtml = False
    30. .Body = TextBox5.Text
    32. ' ggf. Kopie-Empfänger hinzufügen
    33. '.CC.Add(New MailAddress("emailadresse"))
    35. ' ggf. BCC-Empfänger hinzufügen
    36. '.Bcc.Add(New MailAddress("emailadresse"))
    38. ' Anlagen hinzufügen
    39. If ListBox1.SelectedItem = "" Then
    40. Else
    41. .Attachments.Add(New Attachment((ListBox1.SelectedItem.ToString)))
    42. End If
    43. ' Priorität einstellen
    44. .Priority = MailPriority.Normal
    45. End With
    47. Try
    48. ' Nachricht senden
    49. oSMTP.Send(oMail)
    51. MsgBox("Nachricht wurde versandt.")
    53. Catch oEx As Exception
    54. MsgBox("Fehler: " & oEx.Message.ToString)
    55. End Try
    57. End Sub



    Orginal code

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. ...
    3. Private Sub Button1_Click(ByVal sender As System.Object, _
    4. ByVal e As System.EventArgs) Handles Button1.Click
    6. ' Neues MailMessage-Objekt mit Absender und
    7. ' Empfänger-Adresse erstellen
    8. Dim oMail As New MailMessage("Ihre_Mailadresse", "Empfänger_Mailadresse")
    10. ' SMTP-Server
    11. Dim oSMTP As New SmtpClient
    12. With oSMTP
    13. ' Mailserver
    14. .Host = "Ihr_Mailserver"
    15. .Port = 25
    17. ' Erweiterte Mail-Einstellungen
    18. .UseDefaultCredentials = False
    19. .DeliveryMethod = SmtpDeliveryMethod.Network
    21. ' SMTP-AUTH mit UserName und Kennwort
    22. .Credentials = New Net.NetworkCredential("Benutzername", "Kennwort")
    23. End With
    25. With oMail
    26. ' Betreff
    27. .Subject = "Test-Nachricht"
    29. ' Nachricht (kein HTML)
    30. .IsBodyHtml = False
    31. .Body = "Dies ist eine Test-Nachricht"
    33. ' ggf. Kopie-Empfänger hinzufügen
    34. '.CC.Add(New MailAddress("emailadresse"))
    36. ' ggf. BCC-Empfänger hinzufügen
    37. ' .Bcc.Add(New MailAddress("emailadresse"))
    39. ' Anlagen hinzufügen
    40. ' .Attachments.Add(New Attachment(("pfad_und_dateiname")))
    42. ' Priorität einstellen
    43. .Priority = MailPriority.Normal
    44. End With
    46. Try
    47. ' Nachricht senden
    48. oSMTP.Send(oMail)
    49. MsgBox("Nachricht wurde versandt.")
    51. Catch oEx As Exception
    52. MsgBox("Fehler: " & oEx.Message.ToString)
    53. End Try
    54. End Sub


    Hoffentlich könnt ihr mir helfen

    mfg Trumpetboy

Facebook
Telefonspende