[Amin_Mansouri]

سلام
دوست عزیز متاسفانه من الان تهرانم و با نوت بوک خودم انلاین نمشیم.
3/3 عمل جراحی دارم که در تایپک دیگر عدم تاخیر چند روزم رو بیان میکنم.
شما فعالیت کن هر جاش گیر کردی بگو من بهت کمک میکنم و همچنین در اخر رو سورست خودم روش کار میکنم و روشهای خودمو بهش اضافه میکنم و هر سوالی داشته باشی دریغ نمیکنم از کمک کردن چون میدونم هدفت خرابکاری به سیستم های داخلی نیست.

[Ghoghnus]

سورس بعدی که از طریق 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

[Amin_Mansouri]

سلام
بله ببین دوست عزیز امده یه متغیر اول در نظر گرفته
Dim lobj_cdomsg As CDO.Message
در دستور بعدی امده از دستور set و new استفاده کرده
Set lobj_cdomsg = New CDO.Message

Set در مورد اشیاء کاربرد داره اصولا و یک شیء را به متغیر یا پارامتری ارجاع می دهد و با دستور new هم چیز جدیدی تعریف میکنه توضیحات بیشتر :
اخذ حافظه بطور ديناميک Dynamic Memory Allocation :

براي ايجاد و نگهداري ساختارهاي داده اي ديناميک بايستي در هنگام اجراي برنامه بتوان فضاي بيشتري براي نگهداري داده هاي جديد بدست آورد . با استفاده از کلمه کليدي New مي توان در ويژوال بيسيک حاقظه ديناميک گرفت :
Set NewNode=New ListNode

[Ghoghnus]

دوست عزیز
میشه بگیدcdoچیه و چه فایلی را باید اضافه کنم به برنامه تا بشه یه ابجکت از این ساخت؟

[Amin_Mansouri]

دوست عزیز
میشه بگیدcdoچیه و چه فایلی را باید اضافه کنم به برنامه تا بشه یه ابجکت از این ساخت؟

cdo اینه :

کد پی‌اچ‌پی:

'Windows API/Global Declarations for :Send email through Google gmail
'**************************************
You must add a reference to Microsoft CDO For Windows 2000 library. 


[alakimalaki]

ققنوس عزیز حواست باشه که اگه یه نفر برنامتو با VbDecompiler باز کنه میتونه پسوورد اکانت جیمیلتو برداره


lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "username@googlemail.com"
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password"





حتا اگه یخورده وارد باشه میتونه از همه جای ویروست سر دربیاره یا Antivirus براش بسازه