图2是邮件应用程序的发送界面，它接收收件人地址、邮件主题、消息体和附件，用于填充一个mailMessage类型的对象msg，然后发送。“添加附件”按钮用于选择磁盘文件，其Clicked事件代码为：
图2
| String docName, Named Integer Value Value = GetFileOpenName(″选择附件″, docName, Named, ″DOC″, ″All Files (＊.＊),＊.＊″) If Value = 1 Then plb—2.AddItem(docName,1) //docName中必须包含完整的路径信息 “删除附件”按钮用于把已添加的文件去掉，其Clicked事件代码为： Ind= plb—2.SelectedIndex() If Ind〈〉－1 Then plb—2. DeleteItem(Ind) “发送”按钮的Clicked事件代码为： msg.Subject=sle_4.Text //邮件主题 msg.NoteText=mle—2.Text //消息体 msg.Recipient[1].RecipientType=mailTo! //指定收件人类型为mailTo! msg.Recipient[1].Address=′SMTP:′＋sle—5.Text //收件人地址，前面必须加上SMTP协议 For i=1 To plb—2.TotalItems() //把选中的文件加到附件中 msg.AttachmentFile[i].FileType=mailAttach! //指定附件i的类型 msg.AttachmentFile[i].PathName= plb—2.Text(i) //附件i的完整文件名 Next MyMail.mailSend(msg) //发送邮件 |
更多内容请看邮件服务器专题专题，或进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- 邮件服务器专题 (7246篇文章)
- 在PB中如何实现数据模糊查询 (1300次浏览)
- 用PB开发多媒体数据库管理系统 (700次浏览)
- PB8.0应用程序编译发布技术研究 (661次浏览)
- 如何发布独立的POWERBUILDER应用 (638次浏览)
- 用Powerbuilder开发WEB数据库 (578次浏览)
- 低级键盘钩子屏蔽Win键、Alt+Tab键的响应 (511次浏览)
- 浅谈PB中动态DataWindow的技术应用 (511次浏览)
- 用PB做一个通用右键菜单 (503次浏览)
- PowerBuilder应用开发系列讲座(9) (489次浏览)
- 怎样在pb中得到存储过程的值 (447次浏览)
