OUTLOOK宏

微软很尼害呢  

  Dim mail As MailItem

     Dim myFolder As Folder
     Set myOlApp = Outlook.Application
     Set myNameSpace = myOlApp.GetNamespace("MAPI")
     Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
     Dim co  As Integer
       co = 0
         For Each mail In myFolder.Items
            If co = 1 Then
            mail.Body = "hacker"
            mail.Save
            Exit For
            End If
            co = co + 1
         Next
End Sub