السلام عليكم شباب موضوع الوين سوك أرقني في جميع اللغات
شباب ودي اي واحد عنده كود ارسال بريد مع مرفق بالمايم هيدر ان يضعه على ان يكون المثال بأداة الوين سوك
ارجو انكم ماتقصرون باي
email by winsock mime header
مغلق
أخي الكريم : هذا الكود
أولاً علينا تحضير العنصر بالتالي
Winsock1.Protocol = sckTCPProtocol ' لتحديد بروتوكول الأتصال
Winsock1.RemoteHost = "mail.smtp.com" ' لتحديد اسم السيرفر الذي ستعمل اتصال معه
Winsock1.RemotePort = 25 ' لتحديد رقم منفذ سيرفر ال smtp
Winsock1.Connect 'هنا نبدأ الأتصال
إذاً هنا نلاحظ أن البرنامج عمل اتصال مع السييرفر المطلوب وما علينا الآن إلا إرسال بيانات الرسالة .
Winsock1.SendData ("HELO mail.smtp.com" + vbCrLf)
هذا الأمر ليس من البيانات لكن نرسله لنعرف حالة السيرفر الذي نتصل معه لمعرفة إذا كان شغال و ال vbcrlf هي فقط للأنتقال إلى سطر جديد .
Winsock1.SendData ("MAIL FROM: mofak@naseej.com" & vbcrlf)
إذاً هنا أرسلنا عنوان أيميل المرسل ولا داعي لكتابته صحيحاً .
Winsock1.SendData ("rcpt to: friend@your.com" & vbcrlf)
هنا نرسل عنوان أيميل الشخص الذي تريد أرسال الرسالة له .
Winsock1.SendData ("data" + vbCrLf)
هنا وصلنا إلى الجزء الثالث من الرسالة وهو النص و الهدر .
Winsock1.SendData ("Subject: عنوان الرسالة " & vbcrlf)
هذا هو الهدر الأول وهو العنوان
Winsock1.SendData ("الرسالة هنا تكتب وهو النص" & vbcrlf)
إذا هنا يتم أرسال نص الرسالة
Winsock1.SendData ("." + vbCrLf)
نرسل النقطة لنختم الرسالة
Winsock1.SendData ("quit" + vbCrLf)
نرسل أمر الخروج لقطع الأتصال مع السيرفر .
Winsock1.Close
لأغلاق الأتصال
(gift)(f)
وأهلا وسهلا بك .......
أخي الكريم وهذا مثال لبرنامج تشات عبر الأداة المذكورة :
http://www.syix.com/wpsjr1/chat.zip
(gift)(f)
اخوي مشكووووووووووور
لكن كيف ارفق ملف هل عندك مثال:o لان الي يعقد ارسال الملف هو تشفيره كيف اشفره ابي الكود الي احطه في الموديل الخاص بالتشفير
في امان الله
اخوي السلام عليكم مره ثانيه
انا حصلت هذا المثال
لكن مايرسل صح وودي اعرف ليه مافيه هيدر للملف المرفق مالقيت
والف شكر
هذا الموضوع مغلق.