VB6.0 收发邮件一例，附代码

内容索引:VB源码,网络相关,收发邮件 　　VB6.0 收发邮件一例，完整的源代码。收邮件的过程：需要先登录，活动窗体中具有输入焦点控件的字体设置，然后打开邮件对话，取得邮箱中邮件的数量，将邮件的信息装载到邮件列表窗体中的列表框，根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态，设置各个按扭及菜单的可用状态；当阅读邮件消息的子窗体处于是活动子窗体时，将MAPIMessages控件的消息索引与邮件消息列表框索引，设置为与当前阅读的邮件一致，当窗体大小发生改变时，调整各控件的大小； 　　发邮件：调用收发邮件设置对话框，撰写新邮件，使用MAPI对话框撰写及发送电子邮件，使用设计的窗体NewMsg撰写及发送电子邮件，在删除当前邮件后，下一封邮件的位置设置为当前位置，这时需要判断该邮件是否已经在子窗体MsgView中显示，如是，将其设为活动窗体，否则，用MsgView显示该邮件……