Vba RTF(Rich Text) Mail Body Insert File

Sub new_mail()

    Dim olMailItem As MailItem

    Dim xlOutLook As Outlook.Application

    Dim objTxt As Attachment, objExcel As Attachment

    Dim myCell As Object

    Set xlOutLook = New Outlook.Application

    Set olMailItem = xlOutLook.CreateItem(0)

    olMailItem.BodyFormat = olFormatRichText

    olMailItem.Body = "Hello, Jayden." & vbCrLf & "txtFilePos" & vbCrLf & "This is an sample of RTF mails."

    olMailItem.Subject = "Testing"

    'olMailItem.Save

    olMailItem.Display

' 15是字符开始的地点，25是字符结束的地点

‘    Set myCell = olMailItem.GetInspector.WordEditor.Application.ActiveDocument.Range(15, 25) , 不要用Active,因为会导致可能没Active然后没对象的情况

Set myCell = olMailItem.GetInspector.WordEditor.Application.Documents[1].Range(15, 25)

    myCell.Select

    myCell.InsertFile "C:\Users\jtang20\Desktop\Msg.txt"

End Sub