vb教程-邮件收发器（VB tutorial mail transceiver）

vb教程-邮件收发器（VBtutorialmailtransceiver）VBtutorial-mailtransceiver.Txtwithoutalineyouseemeonline,hurrytostealth,restassured.I'mnotgoingtomesswithyou.Goodnowbutneverabandontheydo.Doyouknowme?IremembertwoyearsagomybrotherPetertaughtmetolearnVBprogrammingwhenyouwerealistener.Oh,IamDoraemon,sincethelasttimeIlearnedandbrotherVBwasobsessedwiththeprogram,withmyexcellentprogrammingskillsandquickthinkingability,isnowinalargesoftwarecompanyasaprogrammer.Therecenthotweather,wasreadytotakeadvantageofthevacationtimeathometoadjustit,didnotexpectthecousinsmallmushroomshavespottedavacationtimetoplayhere,IalsoteachhimisVBprogramming,itisjustadenandintothefire.Myheartcouldnotresisthimdetemirkind,afewsweetwordsjustbait,butsmallmushroomshehadcomeintocontactwithVB,Idon'tneedtoexplainagainfromthebeginningsometediousbasicknowledge,soIdecidedtospendalittletimetogivehimaquickexampletoimproveshort-termtraining,soastolethimlearntoknowledgeofVB,Idon'thavetootired,canbealittlemoretimetorest.Firstday,useVBtosendandreceivee-mailTinkerBell:Isaid,"mushroom",sinceyouhavelearnedthebasicsofVB,andhavedonesomesimpleprocedures,thenIwillnotwastesaliva,teachyoutounderstandtheinterface,understandthecontrolsandlearngrammar.Whydon'tIteachyouhowtomakesomereallyusefulprogramsthatwilldeepenyourknowledgeofVBandgiveyouagreatsenseofaccomplishment?!Smallmushroom:OK,what'stheprocedure?TinkerBell:ofcoursenotassimpleasmybrotherusedtobe,butsomepracticalprograms,orasmallgame,andsoon.Whatdoyouthink?Mushroom:allright.Butdon'tteachmetoplaygamestoday,oryou'llhavenoideatomorrow.TinkerBell:Iknowthat,solet'sstartmakingaprogramtosendandreceivee-mails.Smallmushroom:sendandreceivee-mail?Willitbedifficult?TinkerBell:itisnotdifficulttocallthemeeting.Thedifficultonewillnot.Thereismyfamousteacherpointingout,whatareyouafraidof?Let'sgetstarted!First,thepreparatoryworkDoraemon:writteninVBe-mailprogramneedsbycallingtheMicrosoftCorpMAPI(MessagingApplicationProgrammingInterfacemessagingapplicationprogramminginterface),itneedstoachievetwoe-mailfunctioncorecontrol:MAPIcontrolandMAPIcontrolmessagesession.TheMAPIsessioncontrolisusedtoestablishandcontrolaMicrosoftMailsession,andtheMAPImessagecontrolisusedtocreateandreceivemailmessages.Inaddition,theWindowssystemmusthaveMAPImailsystem,suchasExchange,Outlookandothersoftware,butalsosetupacertain,toensurethatthemailsystemcanbeusedproperly.Smallmushroom:haha,itdoesnotmatter,IusetheOutlook,justinlinewiththerequirements.ButwhereareyoutalkingabouttheMAPIcontrol?TinkerBell:inVB,thereareready-made,buttheprogramisnotdirectlyplacedinthetoolbox,weneedourownMAPIcontroltojointheVBtoolbox.First,rightontheleftsideoftheVBdirectlyinthecontrolbarclick,andchoose"components"commandinthepop-upmenu,thenyoucanactivatethecomponentsettingswindow,inwhichthe"control"listbox,selectthe"MicrosoftMAPIControls"a(Fig.1),thenpressthe"OK"buttoncanbefoundthetoolboxmorethantwoicons,thisistheMAPIsessioncontrolandMAPIcontrolmessageicon(asshowninFigure2).Figure1,figuretwoTwo,mailprogramTinkerBell:afteraddingthecontrolsweneed,startcustomizingthemaildeliveryprogram.Thebasicprocessingofthismailsendingprogramis:composingmailaccordingtotheuserinputinformation,andthenusingtheSendmethodoftheMAPImessagecontroltosendoutthemail.Specificmethodsarecompletedasfollows:1,createanewVBprojectandsettheCaptionpropertyofthedefaultformForm1tosendmail".2.AddaMAPIsessioncontrolMAPISession1andaMAPImessagecontrolMAPIMessages1inForm1.In3,Form1addedthreeTextBoxcontrols,theirnameattributesaresetto"txtSendTo","txtSubject"and"txtMessage",inadditiontotheMultilineattributeoftxtMessageissettoTrue".ThesethreeTextBoxcontrolswillbeusedtofillintherecipient'saddress,themailtopic,andthebodyofthemessage.4,addthreeLabelcontrolsinForm1,settheirCaptionattributesto"recipients","themes"and"content",andputthemintherightplacetomarkthecorrespondingTextBoxcontrols.5,inForm1addaCommandButtoncontrol,itsCaptionattributeandnameattributesaresetto"send"and"Send"".Whenallcontrolsareadded,theyshouldlooklikefigure3.FigurethreeMushroom:it'squitelikethis.Then,youshouldfillinthecode.TinkerBell:Yes,here'sthecodesection:1,addthefollowingcodetotheForm1Form_Loadevent:Private,Sub,Form_Load()MAPISession1.SignOn/runtheprogramafterthemailboxloginoperationEndSub2,addthefollowingcodetotheForm1Form_Unloadevent:Private,Sub,Form_Unload(Cancel,As,Integer)ExitmailboxoperationwhenMAPISession1.SignOff/exitprogramEndSub3addsthefollowingcodetothecmdSendClickevent:Private,Sub,cmdSend_Click()WithMAPIMessages1.MsgIndex=-1.RecipDisplayName=txtSendTo.Text/receiveraddress.MsgSubject=txtSubject.Text/mailtopic.MsgNoteText=txtMessage.Text/mailtextNumberoftasksestablishedbetween.SessionID=MAPISession1.SessionID/sendprogramandmailtool.SendEndWithMsgBox"themailhasbeensent!"Sendmail"/sendsuccessfullydisplayedmessageboxEndSubSuchanemailpartwascompletedafterrunningtheprogram,justfilloutamessagerecipient,subjectandcontent,pressthe"send"buttoncommand,mailhassuccessfullysenttothedestination(asshowninFigure4).Figure4Smallmushroom:reallysendout,butthisisnotyourgift?Iwon'tbelieveituntilIreceivethisletter!TinkerBell:Yeah,Idon'tbelieveityetWell,here'sanothermailreceivingprogramtopickuptheletter.Three,mailreceivingprogramDoraemon:receivemailproceduresthanmailingproceduresaremorecomplex,theprogramfirstneedFetchmethodusingMAPImessagecontroltoreadmail,thisprocesswilltaketheuserinboxallunreadmailmessagesareallinstalledintheMAPImessagecontrol.Then,checktheMAPIMsgCountattributecontrolstodeterminethetotalnumberofmessagesreadbytheFetchmethodofthemessage,andthenyoucanspecifywhichneedtodealwithanemailbysettingtheMsgIndexattributeMAPImessagecontrol.ItshouldbenotedthatthecountoftheMsgIndexattributevaluebeginsat0,thatis,theinitialmailindexnumberis0,andtheindexnumberofthesecondmessageis1,andsoforth.Thedetailsareasfollows:1.CreateanewVBprojectandsettheCaptionpropertyofthedefaultform"Form1"to"receivemail"".2.AddaMAPIsessioncontrolMAPISession1andaMAPImessagecontrolMAPIMessages1inForm1.In3,Form1addedthreeLabelcontrolandaTextBoxcontrol,thethreelabelcontrolsthenameattributeweresetto"lblMsgDateReceived","lblMsgOrigDisplayName"and"lblMsgSubject",thenameofthepropertiesoftheTextBoxcontrolissetto"txtMsgNoteText",andtheTextpropertyandCaptionpropertyoftextboxcontrolsthelabelcontrolthecontentsoftheempty.Thesefourcontrolswillbeusedtodisplaythedate,thesender,thetopic,andthecontentofthemessage,respectively.4,settheLockedattributeofthetxtMsgNoteTextcontrolandtheMultilinepropertytoTrue,andtheScrollBarspropertyto2-Vertical".5,inForm1addfourLabelcontrols,usedtomarkthefourcontrols,andtheirCaptionattributesaresetto"date","sender","theme"and"content"".6,addaLabelcontrolinForm1,setitsnameattributeto"lblMsgCount",andtheCaptionattributeissetto"zerothmessages",totaling0messages".Thiscontrolisusedtodisplaythetotalnumberofmessagesreceivedandhowmanymessagesarecurrentlybeingprocessed.In7,Form1addedthreeCommandButtoncontrols,theirnameattributesaresetto"cmdPrevious","cmdNext"and"cmdClose",Captionattributesaresetto"a","an"and"off".Mushroom:sowhataboutthespecificprogramcode?TinkerBell:worriedagain,isn'tit?WillIlietoyou?Hereisthespecificprogramcode:1,writeasubroutineFetchNewMail:Public,Sub,FetchNewMail()MAPIMessages1.FetchUnreadOnly=TrueTheMAPIMessages1.Fetch/FetchcommandplacestheletterintheinbufferofthesystemmemoryEndSub2,writeasubroutineDisplayMessage:Public,Sub,DisplayMessage()LblMsgCount.Caption="a"(Str&Ltrim(MAPIMessages1.MsgIndex+1))&"emailtotal&Ltrim(Str(MAPIMessages1.MsgCount))&"mail"lettersfromMsgCount/knownumber,thenMsgIndexissettoseealetter,thecontentsofthetitleLblMsgDateReceived.Caption=MAPIMessages1.MsgDateReceived/collectdateofletterTxtMsgNoteText.Text=MAPIMessages1.MsgNoteText/collectthecontentsoftheletterLblMsgOrigDisplayName.Caption=MAPIMessages1.MsgOrigDisplayName/sendthenameofthemessageLblMsgSubject.Caption=MAPIMessages1.MsgSubject/mailtopicEndSub3addsthefollowingcodetotheForm1Fo