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
Orginal code
Hoffentlich könnt ihr mir helfen
mfg Trumpetboy
Der code den ich umgeändert habe
VB.NET-Quellcode
- Public Sub sendmail()
- ' Neues MailMessage-Objekt mit Absender und
- ' Empfänger-Adresse erstellen
- Dim oMail As New MailMessage(TextBox4.Text, TextBox2.Text)
- ' SMTP-Server
- Dim oSMTP As New SmtpClient
- With oSMTP
- ' Mailserver
- .Host = Label5.Text
- .Port = 25
- ' Erweiterte Mail-Einstellungen
- .UseDefaultCredentials = False
- .DeliveryMethod = SmtpDeliveryMethod.Network
- ' SMTP-AUTH mit UserName und Kennwort
- .Credentials = New Net.Authorization(Passwort, Benutzername)
- End With
- With oMail
- ' Betreff
- .Subject = TextBox3.Text
- ' Nachricht (kein HTML)
- .IsBodyHtml = False
- .Body = TextBox5.Text
- ' ggf. Kopie-Empfänger hinzufügen
- '.CC.Add(New MailAddress("emailadresse"))
- ' ggf. BCC-Empfänger hinzufügen
- '.Bcc.Add(New MailAddress("emailadresse"))
- ' Anlagen hinzufügen
- If ListBox1.SelectedItem = "" Then
- Else
- .Attachments.Add(New Attachment((ListBox1.SelectedItem.ToString)))
- End If
- ' Priorität einstellen
- .Priority = MailPriority.Normal
- End With
- Try
- ' Nachricht senden
- oSMTP.Send(oMail)
- MsgBox("Nachricht wurde versandt.")
- Catch oEx As Exception
- MsgBox("Fehler: " & oEx.Message.ToString)
- End Try
- End Sub
Orginal code
VB.NET-Quellcode
- Imports System.Net.Mail
- ...
- Private Sub Button1_Click(ByVal sender As System.Object, _
- ByVal e As System.EventArgs) Handles Button1.Click
- ' Neues MailMessage-Objekt mit Absender und
- ' Empfänger-Adresse erstellen
- Dim oMail As New MailMessage("Ihre_Mailadresse", "Empfänger_Mailadresse")
- ' SMTP-Server
- Dim oSMTP As New SmtpClient
- With oSMTP
- ' Mailserver
- .Host = "Ihr_Mailserver"
- .Port = 25
- ' Erweiterte Mail-Einstellungen
- .UseDefaultCredentials = False
- .DeliveryMethod = SmtpDeliveryMethod.Network
- ' SMTP-AUTH mit UserName und Kennwort
- .Credentials = New Net.NetworkCredential("Benutzername", "Kennwort")
- End With
- With oMail
- ' Betreff
- .Subject = "Test-Nachricht"
- ' Nachricht (kein HTML)
- .IsBodyHtml = False
- .Body = "Dies ist eine Test-Nachricht"
- ' ggf. Kopie-Empfänger hinzufügen
- '.CC.Add(New MailAddress("emailadresse"))
- ' ggf. BCC-Empfänger hinzufügen
- ' .Bcc.Add(New MailAddress("emailadresse"))
- ' Anlagen hinzufügen
- ' .Attachments.Add(New Attachment(("pfad_und_dateiname")))
- ' Priorität einstellen
- .Priority = MailPriority.Normal
- End With
- Try
- ' Nachricht senden
- oSMTP.Send(oMail)
- MsgBox("Nachricht wurde versandt.")
- Catch oEx As Exception
- MsgBox("Fehler: " & oEx.Message.ToString)
- End Try
- End Sub
Hoffentlich könnt ihr mir helfen
mfg Trumpetboy