Aprire Microsoft Visual Basic Express e fare clic su " Nuovo progetto ... " nel riquadro sinistro dello schermo . Fare doppio clic su " Applicazione console . " Premere il tasto " Ctrl " e "A" e poi premere "Elimina" per rimuovere il codice che c'è.
2
Copia e incolla il seguente codice al modulo " Module1.vb " per leggere l'e-mail articoli nel tuo Outlook Posta in arrivo:
Importazioni Microsoft.Office.Interop
Module Module1
Sub Main ( ) per
Dim otkApp Come Outlook.Application = New Outlook.Application
Dim otkMailItem = " IPM.note "
Dim otkNameSpace Come Outlook.NameSpace = otkApp.GetNamespace ( " MAPI " ) per
Dim otkInboxFolder Come Outlook.MAPIFolder = _ otkNameSpace.GetDefaultFolder
( Outlook.OlDefaultFolders.olFolderInbox )
Dim otkMailItems As Outlook.Items = otkInboxFolder.Items
Dim otkMessage Come
Outlook.MailItem
Dim iCntr As Integer
iCntr = 1 Per otkMailItems.Count
otkMailItems.Item ( iCntr ) . MessageClass = otkMailItem Poi
otkMessage = Se
Avanti
otkApp = Nothing
otkNameSpace = Nothing
otkMailItems = Nothing
otkMessage = Nothing
End Sub End Module
3
Premere " F5 " per eseguire il programma .
Programmazione © www.354353.com