Danielxmovies
Gebruiker
- Lid geworden
- 8 okt 2011
- Berichten
- 300
Hallo,
Ik heb een email zender in vb.
Hij werkte eerst gewoon goed, maar een tijdje later deed ie het niet meer.
Dit is de code:
en dit is de foutmelding:
Ik heb een email zender in vb.
Hij werkte eerst gewoon goed, maar een tijdje later deed ie het niet meer.
Dit is de code:
Code:
Public Class Form2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Settings.Username = "Mijn email adres"
My.Settings.Password = "mijn wachtwoord"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim message As New Net.Mail.MailMessage(My.Settings.Username, "mijn email ewaar die heen gaat", "aanmelden voor Free website", "Username:" + " " + TextBox1.Text + vbCrLf + "Password:" + " " + TextBox2.Text + vbCrLf + "Message:" + " " + RichTextBox1.Text)
Dim smtp As New Net.Mail.SmtpClient("smtp.gmail.com ", 465)
Dim user As New Net.NetworkCredential(My.Settings.Username, My.Settings.Password)
smtp.EnableSsl = True
smtp.Credentials = user
smtp.Port = 465
smtp.Host = "smtp.gmail.com "
smtp.Send(message)
MsgBox("Bericht verzonden wacht nu tot de nieuwe versie uitkomt, kijk voor updates in stammenforum", MsgBoxStyle.Information, "Succes!")
Me.Close()
Catch ex As Exception
MsgBox("Error - " + ex.Message, MsgBoxStyle.Exclamation, "Error")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form1.Show()
End Sub
End Class
en dit is de foutmelding:
Error - The operation has timed out.
Laatst bewerkt door een moderator: