Private Sub ToFTPButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToFTPButton.Click Dim tempFilePath As String = Application.StartupPath + "/temp.txt" Dim content As String = richTextBox1.Text
Try System.IO.File.Delete(tempFilePath) Catch End Try End Sub
Public Sub UploadFile(ByVal host As String, ByVal username As String, ByVal password As String, ByVal filePath As String) Dim ftpReq As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(host & "/" & System.IO.Path.GetFileName(filePath) & System.IO.Path.GetExtension(filePath)), System.Net.FtpWebRequest) ftpReq.Credentials = New System.Net.NetworkCredential(username, password) ftpReq.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim data As Byte() = System.IO.File.ReadAllBytes(filePath)
ftpReq.ContentLength = data.Length Dim st As System.IO.Stream = ftpReq.GetRequestStream() st.Write(data, 0, data.Length) st.Close()
Dim response As System.Net.FtpWebResponse = Nothing Try response = DirectCast(ftpReq.GetResponse(), System.Net.FtpWebResponse) MessageBox.Show("Upload File Complete, status : " & response.StatusDescription) Catch MessageBox.Show("Upload File Faild") End Try End Sub
لمزيد من المعلومات قم بزيارة صفحتنا على الفيسبوك .. امزح امزح خخخخ
اسمح لي بالاقتراح
مادام البريد يدعم html فاقترح استخدام قوالب جاهزة تجهزها في مجلد البرنامج وتستدعيها عند الارسال مع استبدال المحتوى بما تكتبه بالبرنامج.
اقصد بالقوالب اي جهز صفحة بالفرونت بيج واستخدم div -(وامسح كافة المحتوى الاخر مثل html ,head,body)- لتحتوي كافة التخطيطات والنصوص وضع جملة فريدة تستبدلها بواسطة البرنامج.
لو اعجبك الاقتراح وتريد مثال اكتب رد.
سعود كتب :اسمح لي بالاقتراح
مادام البريد يدعم html فاقترح استخدام قوالب جاهزة تجهزها في مجلد البرنامج وتستدعيها عند الارسال مع استبدال المحتوى بما تكتبه بالبرنامج.
اقصد بالقوالب اي جهز صفحة بالفرونت بيج واستخدم div -(وامسح كافة المحتوى الاخر مثل html ,head,body)- لتحتوي كافة التخطيطات والنصوص وضع جملة فريدة تستبدلها بواسطة البرنامج.
لو اعجبك الاقتراح وتريد مثال اكتب رد.
رد رد رد رد رد رد
هههههههههههههههه
انا الى محتاج ده
كيف اضع صور فى RichTextBox وكيف االون الكلام اكيف اكبر الخط واجعله مثل برنامج الوورد؟ كل هذه الاسئله يمكن الرد عليها بسهوله ولكن السؤال الاهم والذى لم اجد له اجابه حتى الان هو كيف ارسل الايميل بهذا التنسيق ؟
السلام عليكم
على ماظن انه لا يمكنك ارسال رسالة بهذا التنسيق بواسطة RichTextBox
يوجد فى المرفقات مثال لأرسال رسالة بتنسيق HTML ويمكنك تنسيقة كما تريد (اضافة صورة او تكبير الخط ... إلخ)