版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
vb教程-郵件收發(fā)器(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
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 抗腫瘤藥物臨床管理辦法培訓(xùn)
- 山東中醫(yī)藥大學(xué)《機(jī)器人視覺融合檢測(cè)技術(shù)》2023-2024學(xué)年第一學(xué)期期末試卷
- 工廠和外貿(mào)合同范例
- 品牌代理運(yùn)營(yíng)合同范例
- 一對(duì)一合伙合同范例
- 出售模具生鐵合同范例
- 罐體合同范例
- 采購(gòu)氣瓶合同范例
- 租戶遣散咨詢服務(wù)合同范例
- 機(jī)器買賣交易合同范例
- 政府采購(gòu)評(píng)審專家考試題及答案
- 2024新能源光伏電站運(yùn)行規(guī)程
- 屋頂氣窗施工方案
- 兒童游樂場(chǎng)安全防范與應(yīng)急處理預(yù)案
- 小學(xué)高年級(jí)段學(xué)生數(shù)學(xué)講題比賽教學(xué)活動(dòng)安排方案
- 廣東廣業(yè)投資集團(tuán)限公司社會(huì)公開招聘高頻500題難、易錯(cuò)點(diǎn)模擬試題附帶答案詳解
- 中鹽寧夏鹽業(yè)有限公司招聘筆試題庫(kù)2024
- 產(chǎn)科護(hù)理個(gè)案分享案例
- “雙碳”目標(biāo)下低碳建筑全生命周期碳排放核算
- 古代小說戲曲專題-形考任務(wù)4-國(guó)開-參考資料
- 行長(zhǎng)招聘筆試題與參考答案(某大型國(guó)企)
評(píng)論
0/150
提交評(píng)論