تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا
#1
الحمد لله وحده والصلاة والسلام على ما لا نبى بعده

اخوانى فى الله صعقت عندما سمعت انه تم اغلاق منتدى فيجوال بيزك 4 عرب

ولاكن الحمد لله وجدت هذا المنتدى البديل واتمنى من الله عز وجل ان يكون افضل منتدى

انا كنت عملت موضوع من حوالى سنتين فى منتدى فيجوال بيسك وساعدنى فيه الاعضاء وتم بحمد الله

ولاكن بمرور الوقت مسحته والآن دخلت على المنتدى لكى ادخل على الموضوع واصمم برنامج مثل الى مسحته وجدت المنتدى مغلق

واتمنى ان تساعدونى

البرنامج عبارة عن مثل هذه الصورة



وهو عبارة عن

2 تيكست
1 بوتن

البرنامج الذى صممته من قبل كان بالـ VB.6

هذا البرنامج يرسل رسائل الى اميلى

يعنى اصدقائى واقاربى يكتبون لى رسائل

وهذا البرنامج يكون مخصوص لى ليس للعامة

حتى لا يتطلع احد على رسائلى

اتمنى ان تساعدونى وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
لو ممكن توضح أي قسم كان موضوعك لأني محمل مواضيع كثيرة ولم أستطع تحديده
الرد }}}
تم الشكر بواسطة:
#3
والله يا اخى كان هذا منذ حوالى سنتين وصعب على ان اتذكر Sad

بس افتكر ان الاكواد كانت بسيطة نوعا ما
الرد }}}
تم الشكر بواسطة:
#4
اسف علي التأخير
فقط أصلي العشاء وارجعلك
الرد }}}
تم الشكر بواسطة:
#5
جزاك الله خيرا ورفع قدرك على المتابعة

وفى انتظارك
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

- هذا مثال إرسال إيميل عن طريقة إيميلك الجيميل . مضمون وأنا أستخدمة . لازم يكون معاك إيميل gmail ولازم تضع الباسورد الخاص بإيميلك في الكود نفسه . هذا المثال عدل عليه حسب حاجتك .

- تحياتي .


الملفات المرفقة
.rar   SendEmailByGmail.rar (الحجم : 363.54 ك ب / التحميلات : 101)
الرد }}}
تم الشكر بواسطة:
#7
جزاك الله خيرا اخى ولاكن

البرنامج الذى كان عندى كان بيقبل اى اميل

وكان سهل جدا

ولا يتطلب منى ان اضع الباسورد
الرد }}}
تم الشكر بواسطة:
#8
اخوانى فى الله فى محرج البحث جوجل وجدت فى احد المنتديات شخص يطلب طلب مثل طلبى بالظبط

ورد عليه احد الاعضاء وكتب له هذا الكود

ارجو المساعدة لانى ليس لدى خبرة كبيرة فى الفيجوال

اذا امكن ان احد الاعضاء يصنع البرنامج ويرفعه لى

وجزاكم الله خيرا

[HTML]Dim Response As String, Reply As Integer, DateNow As String
Dim first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As String
Dim Seventh As String, Eighth As String
Dim Start As Single, Tmr As Single



Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)

Winsock1.LocalPort = 0 ' Must set local port to 0 (Zero) or you can only send 1 e-mail pre program start

If Winsock1.State = sckClosed Then ' Check to see if socet is closed
DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mmConfuseds") & "" & " -0600"
first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf ' Get who's sending E-Mail address
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf ' Get who mail is going to
Third = "Date:" + Chr(32) + DateNow + vbCrLf ' Date when being sent
Fourth = "From:" + Chr(32) + FromName + vbCrLf ' Who's Sending
Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf ' Who it going to
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf ' Subject of E-Mail
Seventh = EmailBodyOfMessage + vbCrLf ' E-mail message body
Ninth = "mouse mailer" + vbCrLf ' What program sent the e-mail, customize this
Eighth = Fourth + Third + Ninth + Fifth + Sixth ' Combine for proper SMTP sending

Winsock1.Protocol = sckTCPProtocol ' Set protocol for sending
Winsock1.RemoteHost = MailServerName ' Set the server address
Winsock1.RemotePort = 25 ' Set the SMTP Port
Winsock1.Connect ' Start connection

WaitFor ("220")

StatusTxt.Caption = "Connecting...."
StatusTxt.&@#&@#&@#&@#&@#&@#&@#

Winsock1.SendData ("HELO worldcomputers.com" + vbCrLf)

WaitFor ("250")

StatusTxt.Caption = "Connected"
StatusTxt.&@#&@#&@#&@#&@#&@#&@#

Winsock1.SendData (first)

StatusTxt.Caption = "Sending Message"
StatusTxt.&@#&@#&@#&@#&@#&@#&@#

WaitFor ("250")

Winsock1.SendData (Second)

WaitFor ("250")

Winsock1.SendData ("data" + vbCrLf)

WaitFor ("354")


Winsock1.SendData (Eighth + vbCrLf)
Winsock1.SendData (Seventh + vbCrLf)
Winsock1.SendData ("." + vbCrLf)

WaitFor ("250")

Winsock1.SendData ("quit" + vbCrLf)

StatusTxt.Caption = "Disconnecting"
StatusTxt.&@#&@#&@#&@#&@#&@#&@#

WaitFor ("221")

Winsock1.Close
Else
MsgBox (Str(Winsock1.State))
End If

End Sub
Sub WaitFor(ResponseCode As String)
Start = Timer ' Time event so won't get stuck in loop
While Len(Response) = 0
Tmr = Start - Timer
DoEvents ' Let System keep checking for incoming response **IMPORTANT**
If Tmr > 50 Then ' Time in seconds to wait
MsgBox "SMTP service error, timed out while waiting for response", 64, MsgTitle
Exit Sub
End If
Wend
While ****(Response, 3) <> ResponseCode
DoEvents
If Tmr > 50 Then
MsgBox "SMTP service error, impromper response code. Code should have been: " + ResponseCode + " Code recieved: " + Response, 64, MsgTitle
Exit Sub
End If
Wend
Response = "" ' Sent response code to blank **IMPORTANT**
End Sub


Private Sub Command1_Click()
SendEmail txtEmailServer.Text, txtFromName.Text, txtFromEmailAddress.Text, txtToEmailAddress.Text, txtToEmailAddress.Text, txtEmailSubject.Text, txtEmailBodyOfMessage.Text
MsgBox ("Mail Sent")
StatusTxt.Caption = "Mail Sent"
StatusTxt.&@#&@#&@#&@#&@#&@#&@#
Beep

Close
End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData Response ' Check for incoming response *IMPORTANT*

End Sub[/HTML]
الرد }}}
تم الشكر بواسطة:
#9
وهذا الموضوع اتمنى ان يفيدنى

ارجو القاء نظرة عليه

http://vb4arb.com/vb/showthread.php?1579...C%E3%ED%E1
الرد }}}
تم الشكر بواسطة:
#10
أسف جدا علي التأخير

لقد أرفقت لك ملف مضغوط يحتوي علي ثلاث مواضيع قديمة أرجو أن ينال أعجابك وتجد به طلبك.

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

أما بخصوص الكود تبعك فأعذرني لعدم تمكني من الأكواد واللغة عامة , فأنا ماإلا سوي هاوي للغة ولست دارسا لها.


الملفات المرفقة
.zip   sendmail.zip (الحجم : 388.45 ك ب / التحميلات : 99)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] إظهار رسائل تنبيه تلقائي ع سطح المكتب aboezzat84 0 113 07-01-24, 02:27 PM
آخر رد: aboezzat84
  استفسار بارك الله فيكم افيدوني اي سفن 2 189 26-12-23, 05:15 PM
آخر رد: اي سفن
  مساعدة في تغيير حجم الفورم حسب دقة عرض الشاشة amazonette 3 588 30-03-23, 02:47 PM
آخر رد: amazonette
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,131 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 866 07-09-22, 10:05 PM
آخر رد: Taha Okla
  [سؤال] اريد مساعدة donia hamdan 2 971 03-09-22, 10:23 AM
آخر رد: سعود
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,220 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم