امتیاز موضوع:
  • 32 رای - 2.97 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
کمک در ارسال ایمیل در vb6
#1
Heart 
درود
نیاز به 1 سورس کد که هرچی در تکس باکس 1 و 2 تایپ کرده و رو کامنت کلیک میکنه بفرسته به جمیل خودم اون متن را.
با احترام
پاسخ
#2
درود

خوش امدید به فروم

با سورس زیر یاد میگیرید که چگونه با از طریق جیمیل ایمیل بفرستید سورس زیر با زبان ویژوال بیسیک 6 نوشته شده است.

کد:
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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#3
ببخشید اگه پست قدیمی رو بلا می یارم
میشه بگید چطور از تابع بالا باید استفاده کرد؟

توی این خط ارور می ده
Dim lobj_cdomsg As CDO.Message
پاسخ
#4
درود

این چه حرفیه دوست عزیز راحت باش

وی بی 6 باز کن

از منو PROJECT

REFERENCE رو انتخاب کن و بعد تیک

MICROSOFT CDO FOR WINDOWS 2000 LIBRARY رو بزن
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#5
(06-11-2012، 09:16 PM)Amin_Mansouri نوشته:  درود

خوش امدید به فروم

با سورس زیر یاد میگیرید که چگونه با از طریق جیمیل ایمیل بفرستید سورس زیر با زبان ویژوال بیسیک 6 نوشته شده است.

کد:
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
ببخشید ولی بازم کار نکرد.
پاسخ
#6
تست شده جواب میده
چگونه تابع رو فراخونی میکنید؟
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#7
دوست عزیز خیلی زیاد از کارتون خوشم اومد یعنی یه علمی رو به من اموختید که تا عمر دارم مدیون این محببت شما هستم
خیل زیاد دنبالش بودم ولی همه نمونه ها برنامه اتلوک رو باز میکردن
سپاسگزارم
بدترین شرایط زندگی من و تو آرزوی یکی دیگست



یه روز خوب میاد اینو میدونم
پاسخ
#8
Tongue 
درود دوست عزیز !!!!
من پدرم در اومده همه جور سورس دانلود کردم ،سورس شوما هم همینتور ولی همشون سره این خط ارور میدن

lobj_cdomsg.Send
یه خطا میگیره میگه سرور جواب نمیده و......
خلاصه مخم پوکید اگه میدونی مشکل از کجاست  لطف کن و بگو....
اصلا اگه برات زحمتی نیست خودت 1 باره دیگه چکش کن ببین کار میده؟؟؟
پاسخ
#9
[font]mohseng[font] [/font][/font]
درود دوست عزیز
خوب هستین؟
خوش امدید
سورسی که نوشتی بزار تا چک کنم
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
پاسخ
#10
درود
من با انواع سورس کار کردم اما یکسری که جواب میدن فقط تو 7 جواب میدن و تو xp ارور Error in loding dll میده
خواهشا راهنمایی کنید
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  ارسال مطلب در بلاگفا aleas 0 1,512 11-17-2014، 09:51 PM
آخرین ارسال: aleas
  ارسال متن کامل به html aghamali 5 2,640 11-03-2014، 05:58 PM
آخرین ارسال: aghamali
Wink ارسال فایل باftp بر روی هاست sajad-kh 0 1,531 04-08-2014، 07:29 PM
آخرین ارسال: sajad-kh
Heart جمع آوری ایمیل a.adhami 4 3,481 07-24-2013، 08:08 AM
آخرین ارسال: reza13812
Question مشکل در ارسال جمیل gachboy 8 5,541 11-03-2012، 08:08 PM
آخرین ارسال: gachboy
Smile ارسال PM به یاهو با YMSGMod.OCX alakimalaki 3 4,963 08-26-2012، 07:50 PM
آخرین ارسال: Kei armin
Question سورس ارسال pm به یاهو alakimalaki 5 4,129 08-17-2012، 02:32 PM
آخرین ارسال: Kei armin
Question روش های ارسال ایمیل Ghoghnus 15 13,587 07-30-2012، 03:50 PM
آخرین ارسال: alakimalaki

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
This forum uses Lukasz Tkacz MyBB addons.