以下是引用狐狸爸爸在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