+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: روش های ارسال ایمیل (/showthread.php?tid=296)
صفحات
1
2
RE: روش های ارسال ایمیل - Amin_Mansouri - 05-20-2011
سلام
دوست عزیز متاسفانه من الان تهرانم و با نوت بوک خودم انلاین نمشیم.
3/3 عمل جراحی دارم که در تایپک دیگر عدم تاخیر چند روزم رو بیان میکنم.
شما فعالیت کن هر جاش گیر کردی بگو من بهت کمک میکنم و همچنین در اخر رو سورست خودم روش کار میکنم و روشهای خودمو بهش اضافه میکنم و هر سوالی داشته باشی دریغ نمیکنم از کمک کردن چون میدونم هدفت خرابکاری به سیستم های داخلی نیست.
RE: روش های ارسال ایمیل - Ghoghnus - 05-20-2011
(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
RE: روش های ارسال ایمیل - Amin_Mansouri - 05-20-2011
سلام
بله ببین دوست عزیز امده یه متغیر اول در نظر گرفته
Dim lobj_cdomsg As CDO.Message
در دستور بعدی امده از دستور set و new استفاده کرده
Set lobj_cdomsg = New CDO.Message
Set در مورد اشیاء کاربرد داره اصولا و یک شیء را به متغیر یا پارامتری ارجاع می دهد و با دستور new هم چیز جدیدی تعریف میکنه توضیحات بیشتر :
اخذ حافظه بطور ديناميک Dynamic Memory Allocation :
براي ايجاد و نگهداري ساختارهاي داده اي ديناميک بايستي در هنگام اجراي برنامه بتوان فضاي بيشتري براي نگهداري داده هاي جديد بدست آورد . با استفاده از کلمه کليدي New مي توان در ويژوال بيسيک حاقظه ديناميک گرفت :
Set NewNode=New ListNode
RE: روش های ارسال ایمیل - Ghoghnus - 05-21-2011
دوست عزیز
میشه بگیدcdoچیه و چه فایلی را باید اضافه کنم به برنامه تا بشه یه ابجکت از این ساخت؟
RE: روش های ارسال ایمیل - Amin_Mansouri - 05-21-2011
(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.
RE: روش های ارسال ایمیل - alakimalaki - 07-30-2012
ققنوس عزیز حواست باشه که اگه یه نفر برنامتو با VbDecompiler باز کنه میتونه پسوورد اکانت جیمیلتو برداره
lobj_cdomsg.Configuration.Fields(cdoSendUsername) = "username@googlemail.com"
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = "password"
حتا اگه یخورده وارد باشه میتونه از همه جای ویروست سر دربیاره یا Antivirus براش بسازه