<<< 返回 access911.net 编程静态资料库索引页

关于ACCESS发邮件的一些摘录(未整理)

 

作者:loadhigh等多人  摘自:EXCELHOME  录入:cg1  时间:2004-2-28  浏览人次:2274


专题地址:http://access911.net/fixhtm/71FAB41E10DCEAF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:关于用 OUTLOOK 发邮件的一些摘录。

 


打开outlook,在Visual Basic编辑器中插入一个模块,加入下面这段代码

Sub SendMail()
'
'函数功能: 创建Outlook的MailItem,并发送邮件
'作者:Winak
'时间:2003-7-22 

  Dim ItemUsageEmail As Outlook.MailItem
  
  '创建MailItem对象
  Set ItemUsageEmail = Application.CreateItem(olMailItem)
  
  With ItemUsageEmail
        .To = "winak@163.net"      '设置收件人地址        
        .Subject = "Report"     '邮件主题        
        .Body = "This is a example"            '邮件正文        
        .Attachments.Add "e:\Report.doc"        
        
        .Display 显示邮件

       .Send            发送邮件
   
  End With

End Sub


说明:  .d.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB41E10DCEAF3.htm

 


上一篇:在窗体的图片控件中,如何指定只显示我选定的图片的某个区域?

下一篇:如何用代码在“默认值”里实现自动编号?单据流水号生成问题。

2017年2月22日生成静态资料