Weten hoe je een e-mail applicatie te maken kunt u tijd besparen wanneer u nodig hebt om e-mail voor gebruikers te controleren . De gemakkelijkste manier om een e-mailtoepassing te maken is met behulp van Microsoft Office Outlook . Outlook is een e-mail management systeem dat u voorziet van alle tools die nodig zijn om e-mail te beheren . U kunt gebruik maken van Visual Basic.NET ( VB.NET ) naar een e-mailtoepassing maken met behulp van het object Outlook-toepassing . VB.NET is een programmeertaal gebruikt om Windows-toepassingen zoals e-mail programma's te maken . Wat je nodig hebt
Microsoft Visual Basic Express & Microsoft Office
Toon Meer Aanwijzingen
1 Start Microsoft Visual Basic Express en klik op " Nieuw Project " op de linkervenster van het scherm . Selecteer " Windows Forms Application . " Klik op "OK . "
Dubbelklik op " Button " 2 op de " Toolbox " deelvenster naar een nieuwe knop controle toe te voegen . Dubbelklik op " ListBox " om een nieuwe keuzelijst toe te voegen . Dubbelklik op " Button1 " om de " Form1.vb " module de volgende code te openen .
Kopieer en plak 3 onder " Button1_Click " om e-mail te lezen in de folder " Inbox" van Outlook en de gegevens toe te voegen aan de ListBox control: Dim otlkApp
Zoals Outlook.Application = Nieuwe Outlook.Application Dim otkMailItem = " IPM.Note " Dim olkNspace Als Outlook
. NameSpace = otlkApp.GetNamespace ( " MAPI " ) Dim otlkInbox
Zoals Outlook.MAPIFolder = olkNspace.GetDefaultFolder _
( Outlook.OlDefaultFolders.olFolderInbox ) Dim otlkMItems
als Outlook.Items = otlkInbox.Items Dim otlkMsg
Zoals Outlook.MailItem Dim yCntr
als Geheel
yCntr = 1 To
otlkMItems.Count Als otlkMItems.Item ( yCntr ) . MessageClass = otkMailItem otlkMsg dan
=
Volgende
otlkApp = Nothing olkNspace
= Nothing otlkMItems
= Nothing
otlkMsg = Nothing
indien 4 Klik op de " Form1.vb [Design ] " tab en dubbelklik op " Button2 " om de " Button2_Click " behandeling over te gaan . Typ het volgende onder " Button2_Click " om een email te sturen : Dim otlkApp
Zoals Outlook.Application = Nieuwe Outlook.Application Dim myOtlkMail
Zoals Outlook.MailItem myOtlkMail
= otlkApp . CreateItem ( Outlook.OlItemType.olMailItem ) op myOtlkMail.UnRead = True
myOtlkMail.To = " your.emailaddress @ xxxx.com "
myOtlkMail.Subject = " onderwerp gaat hier " myOtlkMail.HTMLBody = True myOtlkMail.Body =
" Body tekst gaat hier " myOtlkMail.Send ( ) op
Bewerk de volgende regels code en typ de bestemming emailadres : myOtlkMail.To = your.emailaddress @ xxxx.com
Druk op " F5 "
5 om uw programma uit te voeren , en vervolgens op " Button1 " naar de map " Postvak IN " van Outlook lezen . Klik op " Button2 " om een email te sturen .
|
