• 65 Vote(s) - 2.75 Average
  • 1
  • 2
  • 3
  • 4
  • 5
کمک در ارسال ایمیل در vb6
#1
Heart 
درود
نیاز به 1 سورس کد که هرچی در تکس باکس 1 و 2 تایپ کرده و رو کامنت کلیک میکنه بفرسته به جمیل خودم اون متن را.
با احترام
  Reply
#2
درود

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

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

Code:
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
  Reply
#3
ببخشید اگه پست قدیمی رو بلا می یارم
میشه بگید چطور از تابع بالا باید استفاده کرد؟

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

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

وی بی 6 باز کن

از منو PROJECT

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

MICROSOFT CDO FOR WINDOWS 2000 LIBRARY رو بزن

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply
#5
(06-11-2012، 09:16 PM)Amin_Mansouri Wrote: درود

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

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

Code:
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
ببخشید ولی بازم کار نکرد.
  Reply
#6
تست شده جواب میده
چگونه تابع رو فراخونی میکنید؟

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply
#7
دوست عزیز خیلی زیاد از کارتون خوشم اومد یعنی یه علمی رو به من اموختید که تا عمر دارم مدیون این محببت شما هستم
خیل زیاد دنبالش بودم ولی همه نمونه ها برنامه اتلوک رو باز میکردن
سپاسگزارم
بدترین شرایط زندگی من و تو آرزوی یکی دیگست



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

lobj_cdomsg.Send
یه خطا میگیره میگه سرور جواب نمیده و......
خلاصه مخم پوکید اگه میدونی مشکل از کجاست  لطف کن و بگو....
اصلا اگه برات زحمتی نیست خودت 1 باره دیگه چکش کن ببین کار میده؟؟؟
  Reply
#9
[font]mohseng[font] [/font][/font]
درود دوست عزیز
خوب هستین؟
خوش امدید
سورسی که نوشتی بزار تا چک کنم

گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
  Reply
#10
درود
من با انواع سورس کار کردم اما یکسری که جواب میدن فقط تو 7 جواب میدن و تو xp ارور Error in loding dll میده
خواهشا راهنمایی کنید
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  ارسال مطلب در بلاگفا aleas 0 1,960 11-17-2014، 09:51 PM
Last Post: aleas
  ارسال متن کامل به html aghamali 5 3,958 11-03-2014، 05:58 PM
Last Post: aghamali
Wink ارسال فایل باftp بر روی هاست sajad-kh 0 1,952 04-08-2014، 07:29 PM
Last Post: sajad-kh
Heart جمع آوری ایمیل a.adhami 4 4,804 07-24-2013، 08:08 AM
Last Post: reza13812
Question مشکل در ارسال جمیل gachboy 8 7,238 11-03-2012، 08:08 PM
Last Post: gachboy
Smile ارسال PM به یاهو با YMSGMod.OCX alakimalaki 3 5,830 08-26-2012، 07:50 PM
Last Post: Kei armin
Question سورس ارسال pm به یاهو alakimalaki 5 5,629 08-17-2012، 02:32 PM
Last Post: Kei armin
Question روش های ارسال ایمیل Ghoghnus 15 17,316 07-30-2012، 03:50 PM
Last Post: alakimalaki

Forum Jump:


Users browsing this thread: 1 Guest(s)