Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " v ľavej časti obrazovky . Double - kliknite na " Console Application . " Stlačte tlačidlo " Ctrl " a " A " a potom stlačte tlačidlo " Delete " odstrániť kód , ktorý je tam .
2
Skopírujte a vložte nasledujúci kód do modulu " Module1.vb " čítať e - mail položky v priečinku Doručená pošta programu Outlook :
Dovoz Microsoft.Office.Interop
Module Module1
Sub Main ( )
Dim otkApp Ako Outlook.Application = Nové Outlook.Application
Dim otkMailItem = " IPM.Note "
Dim otkNameSpace ako Outlook.NameSpace = otkApp.GetNamespace ( " MAPI " )
Dim otkInboxFolder ako Outlook.MAPIFolder = otkNameSpace.GetDefaultFolder _
( Outlook.OlDefaultFolders.olFolderInbox )
Dim otkMailItems Ako Outlook.Items = otkInboxFolder.Items
Dim otkMessage Ako Outlook.MailItem
Dim iCntr As Integer
iCntr = 1 otkMailItems.Count
Ak otkMailItems.Item ( iCntr ) . MessageClass = otkMailItem Potom
otkMessage = Ak
Ďalšie
otkApp = Nothing
otkNameSpace = Nothing
otkMailItems = Nothing
otkMessage = Nothing
end Sub end Module
3
Stlačte " F5 " pre spustenie programu .