excel vba 控制outlook發件,文字顏色怎麽設置.

參考下面的VBA代碼

Sub Send_Email()

Dim i As Integer

Dim MyOutlookApp As Outlook.Application

Dim MyFolder As Outlook.MAPIFolder

Dim MyNewMail As Outlook.MailItem

Dim MyAttachments As Outlook.Attachments '附件

Set MyOutlookApp = New Outlook.Application

Set MyFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "我的郵件文件夾 ")

Set MyNewMail = MyOutlookApp.CreateItem(olMailItem)

With MyNewMail

.To = "YourFridentMail@sina.com " '目標郵件地址

.Cc="aaa@qq.com"

.Subject = "test " '標題

.HTMLBody = " This is red "

.AlternateRecipientAllowed = True '此郵件可轉發

.AutoForwarded = True '此郵件允許自動轉發

.DeleteAfterSubmit = False '發送後保留副本

'發送之後移動到指定文件夾

.SaveSentMessageFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "備份文件夾 ")

.ReadReceiptRequested = True '要求收件人回執

'SaveSentMessageFolder

End With

'附件

Set MyAttachments = MyNewMail.Attachments

MyAttachments.Add "c:\win\abc.txt ", olByValue

MyNewMail.Save '保存

MyNewMail.Send '發送

MyFolder.Display '顯示office outlook

End Sub