有關mail的問題

發文回覆瀏覽次數：3291

推到 Plurk!

推到 Facebook!

尚未結案

sham1980
一般會員

發表：17
回覆：14
積分：6
註冊：2005-05-10

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-06-06 17:31:35

IP:210.65.xxx.xxx 未訂閱

請問一下，有關使用mailformat.HTML時應該利用什麼方式才能讓textbox的文字斷行。因為使用html格式時， textbox都會連在一起，沒有幫我們斷行，這有辦法解決嗎？

oddman
一般會員

發表：0
回覆：9
積分：1
註冊：2005-04-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-06-07 15:54:25

IP:220.130.xxx.xxx 未訂閱

Hi : 試試能不能加入換行字元 \r\n 執行換行的需求....

sham1980
一般會員

發表：17
回覆：14
積分：6
註冊：2005-05-10

發送簡訊給我

#3 引用回覆回覆

發表時間：2005-06-07 17:29:01

IP:210.65.xxx.xxx 未訂閱

什麼是\r\n呀，不了耶！我是在寫別人寄給另一個人的mail，那個人可能不會在textbox上加\r\n，在asp.net中有\r\n嗎？我是用vb.net 的asp.net 我知道斷行是用chr(13)。可是在textbox中也不能要求斷行要加chr(13)，請問有人能解決使用html格式寄mail時 textbox能夠自動換行的方法嗎？

oddman
一般會員

發表：0
回覆：9
積分：1
註冊：2005-04-19

發送簡訊給我

#4 引用回覆回覆

發表時間：2005-06-08 16:12:34

IP:220.130.xxx.xxx 未訂閱

\r\n 是C#的換行語法啦.... 如果是VB 可以寫成 TextBox1.Text = "Text 1 ....." & vbCrLf & "Text 2 ....." 另外記得要將TextBox1的TextMode 設為MultiLine 這樣就會將TextBox1 內的 Text 自動換行了參考一下...

sham1980
一般會員

發表：17
回覆：14
積分：6
註冊：2005-05-10

發送簡訊給我

#5 引用回覆回覆

發表時間：2005-06-08 17:41:00

IP:210.65.xxx.xxx 未訂閱

這個可能要實做才知道，您可以試試看寄封mail，試試用您的方法，收到信時是否您輸入的字會換行。因為我使用您的方法都會有問題。 ps：您不能要求對方輸入時打換行字元。 vbcrlf = CHR(13)

sham1980
一般會員

發表：17
回覆：14
積分：6
註冊：2005-05-10

發送簡訊給我

#6 引用回覆回覆

發表時間：2005-06-09 10:35:34

IP:210.65.xxx.xxx 未訂閱

這是我自己後來的解決方法，大家可以參考看看，我是利用html中的textarea，這樣textbox中的資料才會換行介面沒有美化，只是初始階段！ Imports System.Web Imports System.Web.Mail Function SendMail2(ByVal EngineNO As String) '利用html格式傳送mail Dim mail As New MailMessage Dim RRR As String Dim mailbody As String If LoginOK Then RRR = "claud@subtron.com.tw" mail.To = RRR mail.From = FounderID.Text 'mail.From = "claud@subtron.com.tw" mail.Subject = "工務叫修，一般維護處理請修單" mail.BodyFormat = MailFormat.Html 'mail的格式，可分為html及text。 mailbody = "<BODY background='http://myeip/images/back001.GIF' bgproperties='fixed'>" mailbody += "一般維護處理請修單" mailbody += "" mailbody += "" mailbody += "" mailbody += "" mailbody += "" mailbody += "" mailbody += "

工務編號：	" + EngineNO + "
提出者：	" + FounderID.Text + "
提出部門：	" + Founder_depart.Text + "
提出者主管：	" + TextBox2.Text + "
提出者分機：	" + TextBox3.Text + "
提出內容：	<textarea rows='6' name='S1' cols='55' >" + TextBox4.Text + "</textarea></td>

</body>" '提出內容是文字方塊textbox mail.Body = mailbody On Error Resume Next SmtpMail.SmtpServer = "BGASTEXG" SmtpMail.Send(mail) If Err.Number <> 0 Then Label6.Text = "傳送mail時有問題，請洽資訊部門。" Else Label6.Text = "維護處理請修單已寄發工務部" End If Else Label6.Text = "請先登入旭德科技 EIP 系統 !!" End If End Function

sham1980
一般會員

發表：17
回覆：14
積分：6
註冊：2005-05-10

發送簡訊給我

#7 引用回覆回覆

發表時間：2005-06-09 10:53:49

IP:210.65.xxx.xxx 未訂閱

因為直接用html的格式，這個網頁就把它直接轉換了。我用圖檔把中間主要部份存起來，大家參考一下！

系統時間：2024-05-22 0:32:36

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！