mehdi_394
پنج شنبه 25 اسفند 1384, 08:11 صبح
برای ارسال پسورد از این کد استفاده می کنم .یک صفحه html را بر روی سرور ذخیره می کنم و در آن از در عبارت #newpassword# و #removelink# استفاده کرده ام در صفحه ارسال email این دو مقدار را با مقادیر دیتا بیس جایگزین می کنم . دقیقا برای ارسال مطالب هم این کار رو بکنی
Dim filereader As IO.StreamReader
filereader = IO.File.OpenText(Server.MapPath("fileOnTheServer"))
body = filereader.ReadToEnd
filereader.Close()
body = Replace(body, "#newpassword#", newpass)
body = Replace(body, "#removelink#", "<a href=remove.aspx?name=" + dtread("name") + "&activate=" + dtread("pass") + ">Remove ME From List</a>")
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "mail.eeuok.com")
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "yourEmailUserName")
mailmsg.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "yourPasswordForSite")
Dim mailmsg As New Mail.MailMessage
mailmsg.From = "yuorEmail@yechizi.com"
mailmsg.Subject = "New Password For you"
mailmsg.To = txtemail.Text
mailmsg.Body = body
mailmsg.BodyFormat = Mail.MailFormat.Html
mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mail.SmtpMail.SmtpServer.Insert(0, "127.0.0.1")
System.Web.Mail.SmtpMail.Send(mailmsg)