سلام
دوست عزیز متاسفانه من الان تهرانم و با نوت بوک خودم انلاین نمشیم.
3/3 عمل جراحی دارم که در تایپک دیگر عدم تاخیر چند روزم رو بیان میکنم.
شما فعالیت کن هر جاش گیر کردی بگو من بهت کمک میکنم و همچنین در اخر رو سورست خودم روش کار میکنم و روشهای خودمو بهش اضافه میکنم و هر سوالی داشته باشی دریغ نمیکنم از کمک کردن چون میدونم هدفت خرابکاری به سیستم های داخلی نیست.
(05-17-2011، 07:39 AM)پارسا نوشته: [ -> ]سورس بعدی که از طریق smtp gmail (اکانتتتون ) میتونید ایمیل ارسال کنید.
سورس ساده و قابل فهمه اگر جایی مشکل داشتی بگو راهنمایی میکنم.
Send email through Google gmail
کد پی‌اچ‌پی:
Public Function SendMail(msgBody As String)
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = 465
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = 1
lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "username@googlemail.com"
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password"
lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = 2
lobj_cdomsg.Configuration.Fields.Update
lobj_cdomsg.To = "someone@somewhere.com"
lobj_cdomsg.From = "username@googlemail.com"
lobj_cdomsg.Subject = "subject"
lobj_cdomsg.TextBody = "body"
'lobj_cdomsg.AddAttachment ("filepath")
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing
End Function
اقا میشه در مورد این قسمت بیشتر توضیح بدین
Dim lobj_cdomsg As CDO.Message
سلام
بله ببین دوست عزیز امده یه متغیر اول در نظر گرفته
Dim lobj_cdomsg As CDO.Message
در دستور بعدی امده از دستور set و new استفاده کرده
Set lobj_cdomsg = New CDO.Message
Set در مورد اشیاء کاربرد داره اصولا و یک شیء را به متغیر یا پارامتری ارجاع می دهد و با دستور new هم چیز جدیدی تعریف میکنه توضیحات بیشتر :
اخذ حافظه بطور ديناميک Dynamic Memory Allocation :
براي ايجاد و نگهداري ساختارهاي داده اي ديناميک بايستي در هنگام اجراي برنامه بتوان فضاي بيشتري براي نگهداري داده هاي جديد بدست آورد . با استفاده از کلمه کليدي New مي توان در ويژوال بيسيک حاقظه ديناميک گرفت :
Set NewNode=New ListNode
دوست عزیز
میشه بگیدcdoچیه و چه فایلی را باید اضافه کنم به برنامه تا بشه یه ابجکت از این ساخت؟
(05-21-2011، 01:45 PM)Wolf_Delta نوشته: [ -> ]دوست عزیز
میشه بگیدcdoچیه و چه فایلی را باید اضافه کنم به برنامه تا بشه یه ابجکت از این ساخت؟
cdo اینه :
کد پی‌اچ‌پی:
'Windows API/Global Declarations for :Send email through Google gmail
'**************************************
You must add a reference to Microsoft CDO For Windows 2000 library.
ققنوس عزیز حواست باشه که اگه یه نفر برنامتو با VbDecompiler باز کنه میتونه پسوورد اکانت جیمیلتو برداره
lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "username@googlemail.com"
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password"
حتا اگه یخورده وارد باشه میتونه از همه جای ویروست سر دربیاره یا Antivirus براش بسازه