L'utilisation de VBA pour lire les nouveaux messages électroniques Outlook?

J'ai le code suivant qui indique quand un nouveau message est arrivé!

Private Sub Application_NewMail()
    MsgBox "New Mail Has Arrived"
End Sub

Comment puis-je lire le corps,l'objet de ce courrier? Existe-il des bons tutoriels pour la programmation outlook?

J'ai trouvé msdn tutoriel qui a été utile, mais a été aperçu général.

OriginalL'auteur kinkajou | 2011-11-04

  1. 18

    Vous aurez besoin de quelque chose comme ceci:

    Private WithEvents myOlItems  As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
      Set olApp = Outlook.Application
      Set objNS = olApp.GetNamespace("MAPI")
      Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)

On Error GoTo ErrorHandler

  Dim Msg As Outlook.MailItem

  If TypeName(item) = "MailItem" Then
    Set Msg = item

    MsgBox Msg.Subject
    MsgBox Msg.Body

  End If

ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub

    Collez le code dans ThisOutlookSession et redémarrez Outlook. Lorsqu'un message entre dans votre local par défaut de la Boîte de réception, vous verrez la fenêtre contextuelle avec l'objet et le corps.

    comment pourrais-je savoir les objets et conditions, y a des tutoriels?
    Oui, mais vous êtes probablement mieux de commencer une nouvelle question pour cela. Essayez de msdn.microsoft.com/en-us/library/aa221870(v=office.11).aspx pour Outlook 2003 le modèle d'objet.
    le code ne fonctionne pas j'ai essayé de trouver le problème mais en vain...
    Si vous voulez de l'aide, vous aurez besoin d'être plus précis que "le code ne fonctionne pas".
    Génial trucs Jimmy...vous rock et m'a sauvé une tonne de temps.

    OriginalL'auteur JimmyPena