本身OUTLOOK就是MICROSOFT的一部分
里面内置VBA
当然后接口了
里面内置VBA
当然后接口了
解决方案 »
- 锁定操作系统
- 各位大侠,给我提点建议,感谢!
- 为什么我选择行时mshflexgrid第一列总选不中,后面的列可以选中呢??如何整行都选中??谢了
- vb如何控制EXCEL进行合计?
- 请问这样的分类表的内容,怎样才能按我的要求显示出来 select 语句怎么写。。给个提示。。。
- 提个建议,大家提问题的时候最好把主要内容列为标题
- 请问, 在北京VB程序员的工资大概是多少到多少之间呢?
- 小菜鸟继续提问:我用VC++做的dll,build 成功了。我想把它引用到我的VB 工程里。在引用时出现错误“Can't add a reference to the speci
- 各位大姐快来帮我 在客户端怎样删除FTP目录
- 请教各位大师VB怎样实现象C那样的命令行参数 举例:filename prar1 ...
- 请问:怎么实现在MSHFlexGrid或类似功能控件中,将一列数据显示为CheckBox形式?
- 我都快疯了!请问如何实现对ACCESS数据库的查询?并用DataGrid反映结果?有高分相赠!!
比如判断新邮件的题目:
Private Sub Application_NewMail()
Set fs = CreateObject("Scripting.FileSystemObject")
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)Set myItem = myFolder.Items(1)If myItem.Subject = "SC REPORT" Then
Set ss = fs.OpenTextFile("c:\test.txt", 8, True)
ss.writeline (myItem.Subject)
ss.writeline (myItem.SenderName)
ss.writeline (myItem.Body)End IfIf myItem.Subject = "JP BKG REPORT" Then
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\" & _
myAttachments.Item(1).DisplayNamemyAttachments.Item(2).SaveAsFile "C:\" & _
myAttachments.Item(2).DisplayNameEnd IfEnd Sub
VB里面在你装了OUTLOOK就有了的
MAPI控件专门服务于OUTLOOK邮件。
MAPI本身的局限性也太大了,一个功能少,二是不支持多种字体的(读取韩文写的内容就是乱码)。
我也在研究这个,共同探讨吧。