Outlook发送邮件的VBA宏

Sub SendFile()
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = ThisOutlookSession.Application
    Set objMail = olApp.CreateItem(olMailItem)
    With objMail
        .BodyFormat = olFormatPlain
        .Subject = "您的文件"
        .Body = "您的文件，请查收"
       '收件人
        .To = "lishewen@gmail.com"
        '抄送
        .CC = "me@lishewen.com"
        '附件
        .Attachments.Add "c:\算神\黎摄文.txt
        .Send
    End With
End Sub