Er zijn 2 reacties in dit onderwerp

[Luc2803]

Hallo,

Deze code werkt als ik het "paswoord" invoer in de code.
Het is echter de bedoeling dat meerdere gebruikers dit kunnen gebruiken.
Ik heb echter een probleem om een Email te verzenden als ik het gedeelte "paswoord" verander in een Textbox met PasswordChar.

Code:

Try
		 Dim Smtp_Server As New SmtpClient
		 Dim e_mail As New MailMessage()
		 Smtp_Server.UseDefaultCredentials = False
		 Smtp_Server.Credentials = New Net.NetworkCredential(TextBox1.Text, Textbox4.Text)
		 Smtp_Server.Port = 587
		 Smtp_Server.EnableSsl = True
		 Smtp_Server.Host = "smtp.gmail.com"
		 e_mail = New MailMessage()
		 e_mail.From = New MailAddress(TextBox1.Text)
		 e_mail.To.Add(TextBox2.Text)
		 e_mail.Subject = TextBox3.Text
		 e_mail.IsBodyHtml = False
		 e_mail.Body = RichTextBox1.Text
		 Smtp_Server.Send(e_mail)
		 MsgBox("Mail Sent")
	 Catch error_t As Exception
		 MsgBox(error_t.ToString)
	 End Try

Dan krijg ik een foutmelding zie bijlage.
Hoe kan ik dit voorkomen?

Bijgevoegde Bestanden

•  Error.jpg   162,04K   0 downloads

[Luc2803]

De oplossing gevonden door Textbox4 te vervangen in de code door een Label.
De label in de form onzichtbaar gemaakt.
Dit is misschien niet de voorziene oplossing maar het werkt.

[Damic]

Ik moest even zoeken maar je kan ook een maskedTextbox gebruiken dan heb je altijd de ingegeven text als text maar de gebruiker ziet alleen je ingesteld mask