کد ارسال email
کد ارسال email
رازقی پر پر شد :flower:
سلام
اگه سرورت win 2000 هست معمولا CDONTS.NewMail استفاده میشه
اما برای 2003 CDO.message .
یکبار آبجکت شو بساز ببین کدوم رو داری؟
Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
set MyCDONTSMail3=nothing
و
Set MyCDONTSMail3 = CreateObject("CDO.message")
set MyCDONTSMail3=nothing
ممنون از جوابتان.
رزاقی پرپر شد یعنی چه؟
راستش یکی از آهنگهای داریوشه
مشکلت حل شد؟
میشه لطفا یک مثال کامل ساده بزارید من سرورم linux هست
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
گذاشتن مثال ساده هست
اما اینکه رو سرور linux میتونی آبجکت ویندوز بسازی مهمه؟؟/؟
نمیدونم از کجا باید بفهمم؟
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
اول مشخص کن با چی داری مینیویسی؟ یعنی کدت چیه؟
با asp میشه؟
وب سایت شخصی
وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.
Function send_mail()
mailer=1
If mailer = 1 Then
Set objCDOMail = server.CreateObject("CDO.Message")
Else
If mailer = 2 Then
Set objCDOMail = server.CreateObject("CDONTS.NewMail")
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
End If
End If
matn = "body"
If mailer = 1 Then
matn = body
objCDOMail.htmlBody = matn
else
objCDOMail.body = matn
End If
objCDOMail.from = from
objCDOMail.To = db("email")
objCDOMail.Subject = Request("subject")
objCDOMail.Send
Set objCDOMail = Nothing
End Function
دراین باید dllSet objCDOMail = server.CreateObject("CDONTS.NewMail
cdo رو سرور رجیستر کرده باشند در غیر این صورت
کار نخواهد کرد!!!!!!!!!!!!!!!!!!
:موفق:
php کار نمیکنم ولی میدونم که تو اون بخش هم یه چند نفری در این مورد پست زدن
تو google و سایتهای php بگردی پیدا میکنی