AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > PowerBuilder

用PB编写邮件应用程序(3)

51自学网 http://www.wanshiok.com
3.发送邮件

  图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) //发送邮件

 

 

 
上一篇:用PB编写邮件应用程序(2)  下一篇:用PB编写邮件应用程序(4)