UNiComp.iR

ASP
دسته:
تهیه شده در ⇐ UNiComp.iR

سلام.
در این پست میخوام یاد بدم که چطوری با استفاده از ASP 3 میشه ایمیل فرستاد!
برای این منظور ما نیاز به کامپوننت CDONTS.DLL داریم. این فایل را میتونین با یه جستجو در گوگل پیدا کنین.
برای استفاده از این کلاس اول باید اونو در سیستم رجیستر کنید. که براای رجیستر کردن باید از فایل REGSVR32.EXE بصورت زیر استفاده کنین:

regsvr32.exe cdonts.dll

با این کار فایل به راحتی در سیستم نصب شده و میتونین از توابع آن استفاده کنین...
برای ارسال ایمیل به چهار چیز نیاز داریم:

1- ایمیل فرستنده From
2- ایمیل گیرنده To
3- موضوع ایمیل Subject
4- بدنه ایمیل Body

در زیر 3 مثال آورده ام که طریقه ارسال ایمیل را به شکلهای مختلفن با استفاده از این کلاس نشان میدهد.
اولین مثال نشون میده که چطوری یه ایمیل ساده بفرستیم. دومین مثال هم نحوه ارسال ایمیل را بصورت HTML نشان میدهد و در مثال سوم هم نحوه ضمیمه نمودن یک فایل را به ایمیل نشان میده.

مثال ا:

<% Dim MyBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From = "somebody@nowhere.com" MyCDONTSMail.To = "nobody@nowhere.com" MyCDONTSMail.Subject = "This is a Test" MyBody = "Thank you " & vbCrLf MyBody = MyBody & "Please do visit us again" & vbCrLf MyBody = MyBody & "Always at your service" MyCDONTSMail.Body = MyBody MyCDONTSMail.Send set MyCDONTSMail = nothing %>

مثال 2:

<% Dim MyCDONTSMail Dim HTML Set MyCDONTSMail = CreateObject("CDONTS.NewMail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""FFFFFF"">" HTML = HTML & "" HTML = HTML & "Name Of Store " HTML = HTML & "Incoming Customer Order " HTML = HTML & "Bla Bla Bla Bla Bla" HTML = HTML & "<body>" HTML = HTML & "<html>" MyCDONTSMail.From= "myself@myplace.com" MyCDONTSMail.To="toyou@urplace.com" MyCDONTSMail.Subject="Saying Hello" MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 MyCDONTSMail.Body=HTML MyCDONTSMail.Send set MyCDONTSMail=nothing %>

و مثال 3:

<% Dim MyBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "somebody@nowhere.com" MyCDONTSMail.To= "nobody@nowhere.com" MyCDONTSMail.Cc="nobody2@nowhere.com" MyCDONTSMail.Subject="This is a Test" MyCDONTSMail.AttachFile Server.MapPath("/somedirectory/myfile.txt") ' or you could specify the path exactly if you knew it like below ' MyCDONTSMail.AttachFile "C:\inetpub\wwwroot\somedirectory\myfile.txt" MyBody = "Thank you" & vbCrLf MyBody = MyBody & "Please visit us again" & vbCrLf MyBody = MyBody & "Always at your service" MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing %>

به این نکته توجه داشته باشین که این شی باید روی سیستم شما رجیستر شده باشد و همچنین IIS را برای ایمیل درست ست کرده باشین. البته این شی در بسیاری از هاست هایی که فروشی هستن نصب شده است و فقط کافیه که کد را در صفحه خود بنویسین و حالشو ببرین!!!!!

نظر یادتون نره؟!!

| سعید |
| جمعه یکم آذر 1387

ASP کلاسیک - ارسال ایمیل با ASP 3

در باره سایت

آرشیو موضوعی

آمار سایت

خوراک سایت

مطالب قبلی

آرشیو ماهیانه

پیوند ها

لینک دوستان

KeyWords