VB程序发邮件,如何设置邮件正文的字体颜色???

Question

   Set olapp = CreateObject("outlook.application")
    Set oitem = olapp.CreateItem(olMailItem)
    With oitem
        .Subject = todayYearTemp & "日出勤資料發送報告"
        .To = mailman
        .Body = "内容"
        .Send
    End With    这是我程序中的关键代码，有哪位高手知道，如何将“内容”二字显示为红色的？可否给出代码！    谢谢各位！

Answer 1

设置邮件的格式为html格式,然后将内容使用<font>标记修饰就可以了.类似:<font color=#ff0000>要发送的内容</font>我没用这个发过,我想一定有个属性类似"format"可以设置邮件格式的.

Answer 2

以下使用CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为sample.gif的图片，程序如下：首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件。Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
Dim strHTML as String
StrHTML=""
StrHTML= StrHTML+""
StrHTML = StrHTML +"
用CDONTS发送Email的例子"
StrHTML= StrHTML+""
StrHTML= StrHTML+"
以上例子嵌入了图片sample.gif"
StrHTML= StrHTML+""
With ObjMail
.From= "[email protected] "
.To= "[email protected]"
.Subject="Title"
.Body=strHTML
.AttachURL "c:\mydata\sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Send
End With
Set objMail=nothing
End Sub