فرستادن ایمیل

[amirsajjadi]

با سلام
من توی سایتم قسمتی رو به عنوان "پسوردم را فراموش کردم" دارم و وقتی که کاربر روی اون کلیک میکنه یوزر و ایمیل رو میگیره و پسورد رو به ایمیل میفرسته
حالا من توی فرستادن ایمیل مشکل دارم.
چطور باید ایمیل رو فرستاد (برنامه فرستادن ایمیل در دات نت رو هم بلدم ولی نام سرورها رو نمی دونم چی بدم) ؟

[r_mehrizi]

يه نمونه كد كه ميتونه كمكتون كنه



Public Function EmailSender(ByVal subject As String, ByVal body As String, ByVal reciver As String) As Boolean
Dim Mail As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage
Mail.BodyEncoding = System.Text.Encoding.UTF8
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", ConfigurationManager.AppSettings("smtpserver").Trim)
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", ConfigurationManager.AppSettings("sendusername").Trim)
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", ConfigurationManager.AppSettings("sendpassword").Trim)
Mail.To = reciver
Mail.Subject = subject
Mail.Body = body
Mail.From = ConfigurationManager.AppSettings("sendusername").Trim ' "test@dnpp.ir"
Dim s As String = System.DateTime.Now.ToShortTimeString
Mail.BodyEncoding = System.Text.Encoding.UTF8
Mail.BodyFormat = System.Web.Mail.MailFormat.Text
System.Web.Mail.SmtpMail.SmtpServer = ConfigurationManager.AppSettings("smtpserver").Trim
Try
System.Web.Mail.SmtpMail.Send(Mail)
Catch ex As Exception
End Try
End Function

[amirsajjadi]

با سلام
مشكلم حل شد