User-1793215261 posted
Hello
I have the following in my Register.aspx.vb code to register a new user in my SQL database and to send an email to the user asking him to confirm his email address by clicking on a link:
Protected Sub CreateUser_Click(sender As Object, e As EventArgs)
Dim userName As String = Email.Text
Dim manager = Context.GetOwinContext().GetUserManager(Of ApplicationUserManager)()
Dim signInManager = Context.GetOwinContext().Get(Of ApplicationSignInManager)()
Dim user = New ApplicationUser() With {.UserName = userName, .Email = userName}
Dim result = manager.Create(user, Password.Text)
If result.Succeeded Then
Dim code = manager.GenerateEmailConfirmationToken(user.Id)
Dim callbackUrl = IdentityHelper.GetUserConfirmationRedirectUrl(code, user.Id, Request)
manager.SendEmail(user.Id, $"Confirm your account", "Dear {Email}<br><br>Please confirm your account by clicking <a href=""" & callbackUrl & """>here</a>. <br>Your account details are provided below: <br><br>Email:{Email}<br>Password:{Password}")
signInManager.SignIn(user, isPersistent:=False, rememberBrowser:=False)
Dim target = String.Format("~/success.aspx?Email={0}", Email.Text)
Response.Redirect(target, True)
Else
ErrorMessage.Text = result.Errors.FirstOrDefault()
End If
End Sub
But how do I intergrate other important SMTP mail server information, such as (but not limited to):
Dim myMessage As New MailMessage
Dim Smtpserver As New SmtpClient
Dim CC As MailAddress = New MailAddress("myemail@mysite.com")
myMessage.CC.Add(New MailAddress("myemail@mysite.com"))
myMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
myMessage.IsBodyHtml = True, myMessage.Priority = MailPriority.Normal
myMessage.Priority = MailPriority.Normal
Smtpserver.DeliveryMethod = SmtpDeliveryMethod.Network
Smtpserver.Host = ("nameOfServer")
Smtpserver.Port = 25
Smtpserver.EnableSsl = True
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("info@mysite.com", "myPassword")
Smtpserver.Credentials = basicAuthenticationInfo
Smtpserver.Send(myMessage)
myMessage.Dispose()
myMessage = Nothing
Smtpserver = Nothing
Thank you!
