怎么让outlook发附件呀?

yodong

怎样让VBA调用outlook发附件呀?

yodong

Private Sub Send()

        Dim outObj As New Outlook.Application()

        Dim Item As Outlook.MailItemClass

        Item = outObj.CreateItem(0)

        Item.To = "l0@163.com "

        Item.Subject = "hello"

        Item.Body = "hell"

        Item.Attachments.Add("C:\abc.txt")

        Item.Send()

End Sub

逸_云

不行呀！