منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] مساعدة في ارسال رسالة بواسطة الكود الى بريدي الخاص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مساعدة في ارسال رسالة بواسطة الكود الى بريدي الخاص (/showthread.php?tid=10730)



مساعدة في ارسال رسالة بواسطة الكود الى بريدي الخاص - DamiDev - 19-11-14

السلام عليكم



قمت ببرمجة برنامج بواسطة Vb6

و أضفت له اضافة جديدة لكي أتواصل مع الشخص الذي برمجت له البرنامج في حالة ما وقع عطب ما أو يريد الاستفسار

دون الحاجة الى فتح الايميل او شيء من هذا القبيل

لقد سبق و قمت بالعملية قبل سنتين لكن ضاع مني الكود كاملا للأسف



مثال للخاصية التي أضفتها

في الصورة ترون كوموند و خانة للكتابة

الخانة مخصصة لكتابة الرسالة و عند الضغط على كوموند ستصلني رسالة الى ايمايلي الخاص





من لديه أي معلومة فليفدني بها

فصاحب البرنامج يريده بعد أسبوع و لم أنتهي منه بعد
جزاكم الله خيرا اخواني في الله



RE: مساعدة عاجلة جزاكم الله خيرا - تركي الحلواني - 19-11-14

ابحث يأخي عن طريقة إرسال إيميل 

واعد برمجتة بحيث يكون النص يوجه لك تلقائين




RE: مساعدة عاجلة جزاكم الله خيرا - DamiDev - 19-11-14

تركي الحلواني

لو وجدتها لما وضعت استفسارا هنا أخي Smile
فقد بحث كثيرا قبل وضع الاستفسار


RE: مساعدة عاجلة جزاكم الله خيرا - تركي الحلواني - 19-11-14

أبشر إن شاء الله راح ارفق لك ماتريد

لكن انا حالين بعيد عن جهازي ان شاء الله اول ما اجدها راح ارفقها لك واساعدك بعمل ماتريد فيه


RE: مساعدة عاجلة جزاكم الله خيرا - DamiDev - 19-11-14

بارك الله فيك أخي


RE: مساعدة في ارسال رسالة بواسطة الكود الى بريدي الخاص - dolce - 28-11-14

(19-11-14, 08:41 AM)DamiDev كتب :
السلام عليكم



قمت ببرمجة برنامج بواسطة Vb6

و أضفت له اضافة جديدة لكي أتواصل مع الشخص الذي برمجت له البرنامج في حالة ما وقع عطب ما أو يريد الاستفسار

دون الحاجة الى فتح الايميل او شيء من هذا القبيل

لقد سبق و قمت بالعملية قبل سنتين لكن ضاع مني الكود كاملا للأسف



مثال للخاصية التي أضفتها

في الصورة ترون كوموند و خانة للكتابة

الخانة مخصصة لكتابة الرسالة و عند الضغط على كوموند ستصلني رسالة الى ايمايلي الخاص





من لديه أي معلومة فليفدني بها

فصاحب البرنامج يريده بعد أسبوع و لم أنتهي منه بعد
جزاكم الله خيرا اخواني في الله
ضع هذا الكود فى زر الارسال مع مراعاة تغيير اسم التيكست بالايميلات المطلوبة بين ""
مع مراعاة ان كل الايميلات @gmai ,
واسف اننى لا امتلك رقم التفعيل للآداة فكنت أستخدم النسخة التجريبية
لو وجدت رقم تفعيل ارجو تفيدنا بيه
شكراً
Dim oSmtp As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"

' Set your sender email address
oSmtp.FromAddr = txtuser.Text' ايميل المُرسل

' Add recipient email address
oSmtp.AddRecipientEx txtrec.Text, 0 'ايميل المرسل اليه (المُستقبِل)

' Set email subject 'عنوان الرسالة
oSmtp.Subject = txtaddr.Text

' Set email body 'محتوى الرسالة
oSmtp.BodyText = txtcont.Text

' Your SMTP server address
oSmtp.ServerAddr = "smtp.gmail.com"

' User and password for ESMTP authentication, if your server doesn't require
' User authentication, please remove the following codes.
oSmtp.UserName = txtuser.Text 'ايميل المُرسِل
oSmtp.Password = txtpwd.Text 'باسورد المرسل

' If your smtp server requires SSL connection, please add this line
oSmtp.SSL_init

MsgBox "start to send email ..."

If oSmtp.SendMail() = 0 Then
MsgBox "email was sent successfully!"
Else
MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription()
End If