[__omid__]

درود
نیاز به 1 سورس کد که هرچی در تکس باکس 1 و 2 تایپ کرده و رو کامنت کلیک میکنه بفرسته به جمیل خودم اون متن را.
با احترام

[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

[Bug]

ببخشید اگه پست قدیمی رو بلا می یارم
میشه بگید چطور از تابع بالا باید استفاده کرد؟

---

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

[Amin_Mansouri]

درود

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

وی بی 6 باز کن

از منو PROJECT

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

MICROSOFT CDO FOR WINDOWS 2000 LIBRARY رو بزن

[kmkm]

درود

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

با سورس زیر یاد میگیرید که چگونه با از طریق جیمیل ایمیل بفرستید سورس زیر با زبان ویژوال بیسیک 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

ببخشید ولی بازم کار نکرد.

[Amin_Mansouri]

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

[mohammad-alone]

دوست عزیز خیلی زیاد از کارتون خوشم اومد یعنی یه علمی رو به من اموختید که تا عمر دارم مدیون این محببت شما هستم
خیل زیاد دنبالش بودم ولی همه نمونه ها برنامه اتلوک رو باز میکردن
مرسی

[mohseng]

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

lobj_cdomsg.Send
یه خطا میگیره میگه سرور جواب نمیده و......
خلاصه مخم پوکید اگه میدونی مشکل از کجاست  لطف کن و بگو....
اصلا اگه برات زحمتی نیست خودت 1 باره دیگه چکش کن ببین کار میده؟؟؟

[Amin_Mansouri]

[font]mohseng[font] [/font][/font]
درود دوست عزیز
خوب هستین؟
خوش امدید
سورسی که نوشتی بزار تا چک کنم

[aghamali]

سلام
من با انواع سورس کار کردم اما یکسری که جواب میدن فقط تو 7 جواب میدن و تو xp ارور Error in loding dll میده
خواهشا راهنمایی کنید