Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express , a kliknite na tlačidlo " Nový projekt " na V ľavej table obrazovky . Vyberte " Windows Forms . " Kliknite na tlačidlo " OK " .
2
Double - kliknite na " tlačidlo " na " Toolbox " paneli pridať nový ovládací prvok tlačidla . Double - kliknite na " listbox " pre pridanie nového ovládacieho prvku zoznamu . Double - kliknite na " Button1 " otvorte modul " Form1.vb " .
3
Skopírujte a vložte nasledujúci kód pod " button1_Click " na čítanie e - mailu v priečinku " Doručená pošta " v programe Outlook a pridať dáta do ovládacieho prvku zoznamu :
Dim otlkApp Ako Outlook.Application = New Outlook.Application
Dim otkMailItem = " ipm.note "
Dim olkNspace Ako Outlook . NameSpace = otlkApp.GetNamespace ( " MAPI " )
Dim otlkInbox ako Outlook.MAPIFolder = olkNspace.GetDefaultFolder _
( Outlook.OlDefaultFolders.olFolderInbox )
Dim otlkMItems ako Outlook.Items = otlkInbox.Items
Dim otlkMsg Ako Outlook.MailItem
Dim yCntr As Integer
yCntr = 1 až otlkMItems.Count
otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem Potom
otlkMsg = Ak
Ďalšie
otlkApp = Nothing
olkNspace = Nothing
otlkMItems = Nothing
otlkMsg = Nothing
4
Kliknite na " Form1.vb [ Design ] " kartu a dvakrát kliknite na " Button2 " na začatie konania " Button2_Click " . Zadajte nasledujúce pod " Button2_Click " poslať e - mail :
Dim otlkApp Ako Outlook.Application = New Outlook.Application
Dim myOtlkMail Ako Outlook.MailItem
myOtlkMail = otlkApp . CreateItem ( Outlook.OlItemType.olMailItem )
myOtlkMail.UnRead = TRUE
myOtlkMail.To = " your.emailaddress @ xxxx.com "
myOtlkMail.Subject = " Predmet pokračuje tu "
myOtlkMail.HTMLBody = TRUE
myOtlkMail.Body = " text Telo ide tu "
myOtlkMail.Send ( )
Upraviť nasledujúce riadky kódu a zadajte cieľovú e - mailovú adresu :
myOtlkMail.To = your.emailaddress @ xxxx.com
5
Stlačte " F5 " , spustiť program a potom kliknite na tlačidlo " Button1 " na čítanie zložky " Doručená pošta " v aplikácii Outlook . Kliknite na " Button2 " , poslať e - mail .