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

[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").Tri  m)

        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").T  rim)

        Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", ConfigurationManager.AppSettings("sendpassword").T  rim)

        Mail.To = reciver

        Mail.Subject = subject

        Mail.Body = body

        Mail.From = ConfigurationManager.AppSettings("sendusername").T  rim ' "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").Tri  m

        Try

            System.Web.Mail.SmtpMail.Send(Mail)

        Catch ex As Exception

        End Try

    End Function

 

[amirsajjadi]

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