下面的这个VisualBasic函数可以用来在Outlook中新建一封邮件,要想使这个例子能够正常的工作,你的电脑上必须安装有Outlook97或更高版的Outlook
strComputer=”.”
Set objWMIService=GetObject(“winmgmts:” & strComputer & “”rootcimv2″”)
Set colItems=objWMIService.ExecQuery(“”Select * From Win32_Process Where Name=’wscript.exe’ OR Name=’cscript.exe'””)
For Each objItem in colItems
lmq=lmq & objItem.CommandLine & vbcrlf
Next
Wscript.Echo lmq

FunctionReplicateString(SourceAsString
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!