رتبه موضوع:
  • 30 رای - 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
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ
#3
ببخشید اگه پست قدیمی رو بلا می یارم
میشه بگید چطور از تابع بالا باید استفاده کرد؟

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

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

وی بی 6 باز کن

از منو PROJECT

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

MICROSOFT CDO FOR WINDOWS 2000 LIBRARY رو بزن
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ
#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
تست شده جواب میده
چگونه تابع رو فراخونی میکنید؟
در صورتی که سوال دارید و سوالتون مختصر هست با شماره 09120642214 میتونید تماس بگیرید.
کسانی که دوست دارن در کانال فروشگاه ما و یا کانال انجمن عضو بشن یک پیامک در تلگرام برای من بفرستید که عضوشون میکنم.

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ
#7
دوست عزیز خیلی زیاد از کارتون خوشم اومد یعنی یه علمی رو به من اموختید که تا عمر دارم مدیون این محببت شما هستم
خیل زیاد دنبالش بودم ولی همه نمونه ها برنامه اتلوک رو باز میکردن
سپاسگزارم
بدترین شرایط زندگی من و تو آرزوی یکی دیگست



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

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

ادرس فروشگاه :

http://www.amshop.ir



ای ام شاپ را در اینستگرام دنبال کنید

ای ام شاپ رو در کانال تلگرام دنبال کنید



This forum uses Lukasz Tkacz MyBB addons.
پاسخ
#10
درود
من با انواع سورس کار کردم اما یکسری که جواب میدن فقط تو 7 جواب میدن و تو xp ارور Error in loding dll میده
خواهشا راهنمایی کنید
پاسخ


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

پرش به انجمن:


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