اخواني اريد ان اعمل برنامج لارسال رسالة بواسطة الوين سوك والذي يتكون من خمسة تكست في الاولى الخادم وفي الثانية المرسل وفي الثالثة المستقبل وفي الرابعة عنوان رسالة وفي الخامسة نص رسالة
علما بان جربت الكود وطلع لي أخطاء الكود هو
وضعت هذا الكود عند زر الارسال
Winsock1.connect text1 , 25
ومن ثم وضعت وقت وجعلته خاصيته أينبلد فولس ومن ثم وضعت هذا الكود فيه
Winsock1.SendData "MAIL FROM:" & text2 & vbNewLine
Winsock1.SendData "RCPT TO:" & Text3 & vbNewLine
Winsock1.SendData "DATA" & vbNewLine
Dim MSG As String
MSG = "From:" & Text2 & vbNewLine & "Date: " & _
Now & vbNewLine & "To:" & Text3 & vbNewLine & _
"Subject: " & Text4 & vbNewLine & vbNewLine & _
Text5 & vbNewLine
Winsock1.SendData MSG
Winsock1.SendData vbNewLine & vbNewLine & "." & vbNewLine & vbNewLine
وفي الاداة وين سوك في الحدث data arrival هذا الكود
timer1.enabeld=true
ولم أضغط على الارسال يطلع لي خطأ في السطر التالي
Winsock1.SendData "MAIL FROM:" & text2 & vbNewLine
فما هو الحل ارجوكم
اخوكم محمد الحفار من سورية (النبك)
http://members.lycos.co.uk/hafar2000/vbzoom/index.php
كما ارجو تحميل البرنامج واكتشاف الخطأ