منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا (/showthread.php?tid=8018)

الصفحات: 1 2

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 17-03-13

الحمد لله وحده والصلاة والسلام على ما لا نبى بعده

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

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

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

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

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

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



وهو عبارة عن

2 تيكست
1 بوتن

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

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

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

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

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

اتمنى ان تساعدونى وجزاكم الله خيرا

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - عبدالله الصافي - 17-03-13

لو ممكن توضح أي قسم كان موضوعك لأني محمل مواضيع كثيرة ولم أستطع تحديده

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 17-03-13

والله يا اخى كان هذا منذ حوالى سنتين وصعب على ان اتذكر Sad

بس افتكر ان الاكواد كانت بسيطة نوعا ما

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - عبدالله الصافي - 17-03-13

اسف علي التأخير
فقط أصلي العشاء وارجعلك

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 17-03-13

جزاك الله خيرا ورفع قدرك على المتابعة

وفى انتظارك

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - VB_Coder - 18-03-13

السلام عليكم

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

- تحياتي .

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 18-03-13

جزاك الله خيرا اخى ولاكن

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

وكان سهل جدا

ولا يتطلب منى ان اضع الباسورد

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 18-03-13

اخوانى فى الله فى محرج البحث جوجل وجدت فى احد المنتديات شخص يطلب طلب مثل طلبى بالظبط

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

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

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

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

[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]

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - مسلم - 18-03-13

وهذا الموضوع اتمنى ان يفيدنى

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

http://vb4arb.com/vb/showthread.php?1579-%D8%E1%C8-%C8%D1%E4%C7%E3%CC-%C7%D1%D3%C7%E1-%D1%D3%C7%E1%C9-%C7%E1%ED-%C7%E3%ED%E1-%ED%C7%E5%E6-%C7%E6-%CC%E3%ED%E1

مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا - عبدالله الصافي - 18-03-13

أسف جدا علي التأخير

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

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

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