Hallo ich bin Einsteiger beim Programmieren, und ein neues Mitglied...
Was ist denn daran so falsch??
______________________________________________________________________________________________
Hier der Code:
Private Sub Send_Mail()
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "Zinar_Eti@web.de"
myCredentials.Password = "zensiert"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de"
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress("Zinar_Eti@web.de")
Msg.To.Add("Zinar_Eti@web.de")
Msg.Subject = "Glückwunsch"
Msg.Body = "Neues Mitglied"
mySmtpsvr.Send(Msg)
MsgBox("Username: " & TextBox1.Text & vbCrLf & "Passwort: " & TextBox2.Text)
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
Mfg:
StarkerZwerg
(ICQ = 434382809)
Was ist denn daran so falsch??
______________________________________________________________________________________________
Hier der Code:
Private Sub Send_Mail()
Dim Msg As New MailMessage
Dim myCredentials As New System.Net.NetworkCredential
myCredentials.UserName = "Zinar_Eti@web.de"
myCredentials.Password = "zensiert"
Msg.IsBodyHtml = False
Dim mySmtpsvr As New SmtpClient()
mySmtpsvr.Host = "smtp.web.de"
mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials
Try
Msg.From = New MailAddress("Zinar_Eti@web.de")
Msg.To.Add("Zinar_Eti@web.de")
Msg.Subject = "Glückwunsch"
Msg.Body = "Neues Mitglied"
mySmtpsvr.Send(Msg)
MsgBox("Username: " & TextBox1.Text & vbCrLf & "Passwort: " & TextBox2.Text)
Catch ex As Exception
MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
Mfg:
StarkerZwerg
(ICQ = 434382809)
"Killerspiele" sollen verboten werden, da sie angeblich
zu Amokläufen führen.
Und was ist dann mit Tetris und den Leuten die Steine
von einer Brücke auf die Autobahn werfen??
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „StarkerZwerg“ ()