ارسال ایمل بصورت خودکار

[Malihe]

سلام
لطفا اگه تجربه در این زمینه دارید کمکم کنید
من یک وب اپلیکیشن نوشتم که اطلاعات مورد نظر رو از کاربر می گیرد و در یک پایگاه access نگه می دارد که یکی از این اقلام داده ذخیره شده در پایگاه داده مربوطه تاریخ خاصی هست (میلادی)
می‌خواستم گزارشی برای این برنامه بنویسم که تاریخ جاری سیستم را با فیلد مربوط به تاریخ به ازای هر رکورد روی پایگاه مقایسه کند و اگر یکی هست بصورت خودکار یک ایمیل برای فرد مالک اون اطلاعات ارسال کند که موضوع و متن ثابتی برای این ایمیلها وجود دارد ، آدرس فرد مورد نظر هم در پایگاه موجود هست
این ایمیل به منظور یادآوری برای انجام یک کار خاص هست (یک جور اخطار که انجام آن کار فراموش نشود)
این برنامه با asp,html,vbscript,... نوشته شده

ممنون می شم کمکم کنید

[sunboy]

سلام دوست عزیز

یه سری به این سایت بزن


www.webwizguide.com

سورس های جالبی برای ایمیل زدن پیدا می کنی و می تونی بسته به نیازت اونا رو تغغیر بدی
موفق باشی

[laya]

<!-- #INCLUDE FILE="adovbs.inc" -->
<%

Function forget_pass(email,pass)

Dim StrFrom
Dim StrSubject
Dim strBody
Dim objMail

strFrom = "laya1359@yahoo.com"
strSubject = "Your Password"

' Open the file
strBody = "Dear user,"&VbCrLf
strBody = strBody & "Here is your Forgotten Password :" &VbCrLf&VbCrLf
strBody = strBody & "Password : "&pass&VbCrLf&VbCrLf

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = email 'set 'To' address
objMail.From = strFrom 'set 'From' address
objMail.Value("Reply-To") = strFrom 'set 'Reply to' address
objMail.Subject = strSubject 'set the subject line
objMail.Body = strBody 'set the message content
objMail.Send 'and send the message
Set objMail = Nothing
'then destroy the component
End Function
%>