تقييم الموضوع :
  • 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 ك ب / التحميلات : 68)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 70)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 195 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] مساعدة في كتابة كود الزر تخزين مزنة 9 217 28-11-16, 12:44 PM
آخر رد: مزنة
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,577 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,038 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  ارجو المساعدة في تحويل اكواد bidaya 7 119 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] برنامج الفراهيدي الاصيله 1 83 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,117 27-08-16, 07:18 PM
آخر رد: عمور2016
  [vb6.0] ارجو التعديل amer2000 2 141 08-08-16, 03:02 PM
آخر رد: amer2000
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 206 28-07-16, 11:51 PM
آخر رد: استايل
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 139 24-07-16, 11:58 PM
آخر رد: abomna

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


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