Antwort

1

Sie sollten eine Sicherheitsfrage und eine Antwortspalte haben. Es gibt Proben im Netz und alles, was Sie tun müssen, ist SEARCH. Schauen Sie sich dieses Beispiel:

Dim SmtpServer As New SmtpClient() 
Dim mail As New MailMessage() 
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password") 
SmtpServer.Port = 587 
SmtpServer.Host = "smtp.gmail.com" 
mail = New MailMessage() 
mail.From = New MailAddress("[email protected]") 
mail.To.Add("TOADDRESS") 
mail.Subject = "Test Mail" 
mail.Body = "This is for testing SMTP mail from GMAIL" 
SmtpServer.Send(mail) 
MsgBox("mail send") 

(Es wird eine E-Mail an einen Benutzer senden) Aber bevor Sie oben ausführen, sollten Sie das Passwort von Ihrem Tisch holen:

SELECT CompanyPwd FROM tableName WHERE Email = ''; 
+0

Sie meinen diesen Satz dim thepassword als Zeichenfolge thePassword = (New TextField ("", Settings.Connection1DataAccessObject.ExecuteScalar ("SELECT Passwort von Benutzern WHERE Email = '" & theEmailAddress & "'"))). GetFormattedValue() –

+0

ich habe ein Fehler in TextField und Select Sentence sollte sein "Wählen Sie CompanyPwd von Firma wo Email = & TheEmailAddress &" "))). GetFormattedValue() –