| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]MailSender如何设置颜色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30969) |
| -- 作者：西瓜住持 -- 发布时间：2013/4/8 8:58:00 -- [求助]MailSender如何设置颜色 如题。如何让正文设置颜色 |
| -- 作者：Bin -- 发布时间：2013/4/8 9:11:00 -- 这个应该是没办法设置了.FOXTABLE又没提供发送HTML内容的方式 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/4/8 9:36:00 -- 自己合成htm格式，然后作为邮件内容发送，但比较麻烦。 简单的办法是，设计一个htm文件，保存在本地，发送邮件的时候，以文本的形式读取这个文件，将有关标记内容替换为实际的数据。
一个思路，没有测试过，楼主可以试试，有结果说一下。 |
| -- 作者：FoxMan -- 发布时间：2013/4/8 17:02:00 -- 以下是引用狐狸爸爸在2013-4-8 9:36:00的发言：
自己合成htm格式，然后作为邮件内容发送，但比较麻烦。 简单的办法是，设计一个htm文件，保存在本地，发送邮件的时候，以文本的形式读取这个文件，将有关标记内容替换为实际的数据。
一个思路，没有测试过，楼主可以试试，有结果说一下。 ----------------------------------------------------------- 哈哈,給你一說,試了一下,還真可行,不過合成htm格式模板又要掌握HTM了(看了下,似乎也不很難): Dim flt1,flt2,s1,s2,s3,t1 As String Dim fts As String() = {"XX001","XX002","XX003"} Dim lst As String() = {"MR.MAN JOIN","123@yahoo.com.hk","8888888888"} flt1 = "D:\\aa\\Test.html" s1 = FileSys.ReadAllText(flt1,Encoding.Default) For Each t1 In fts s3=s1 For n1 As Integer =0 To lst.Length -1 s3=s3.Replace(("AX" & Format(n1+1,"000")),lst(n1)) Next flt2 = flt1.replace("Test",t1) FileSys.CopyFile(flt1, flt2,True) FileSys.WriteAllText(flt2, s3, False, Encoding.Default) Next [此贴子已经被作者于2013-4-8 21:24:12编辑过]
|
| -- 作者：FoxMan -- 发布时间：2013/4/8 17:44:00 -- 老大,HTML模板圖片的路徑,是否要保存網絡路徑別人才能看到? |
| -- 作者：狐狸爸爸 -- 发布时间：2013/4/8 17:47:00 -- 呵呵，直接发htm文件的话，必须是网络路径。 如果是发压缩包，可以将图片和htm一起发。 |
| -- 作者：FoxMan -- 发布时间：2013/4/8 17:47:00 -- 報表生成PDF美麗是沒說的,但體積有點大,發Email時怕超出限制. |
| -- 作者：FoxMan -- 发布时间：2013/4/8 17:52:00 -- 以下是引用狐狸爸爸在2013-4-8 17:47:00的发言：
呵呵，直接发htm文件的话，必须是网络路径。 如果是发压缩包，可以将图片和htm一起发。 将图片和htm一起发,太那個了 |