首页 文章

Vbscript找到.apk并导入outlook

提问于
浏览 次
0

我写了一个脚本，可以找到.apk并在outlook中导入aoutomaticly .

但我有一个问题 . 我可以设置4路径文件夹 . 并且脚本查看路径文件夹并找到apk .

但是当这个脚本可以找到.apk文件夹时，程序就完成了 .

此脚本看起来不是另一条路径 .

On Error Resume Next
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objnet = CreateObject("wscript.network")
    Set olkApp = CreateObject("Outlook.Application") 
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\")
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\Local Settings\Application Data\Microsoft\Outlook")
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\Belgelerim\mail")
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\AppData\Local\Microsoft\Outlook")
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\Belgelerim\mailbox")
     For Each objFile in objFolder
         If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then
            olkApp.Session.AddStore objFile.Path
     End If
Next
MsgBox "Done"

例如，此脚本查找路径.apk文件夹

(Set objFolder = objFSO.GetFolder("C:\Documents and Settings\" & objnet.UserName & "\"))

而且看起来不是另一条道路 .

如何解决这个问题呢 .

谢谢你的帮助 .

vbscript outlook

1 回答

  • 1

    never 使用 On Error Resume Next 来控制程序流程 . 这是愚蠢的 . 检查错误可预测的条件，而不是让它们失败 .

    Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objnet = CreateObject("WScript.Network")
Set olkApp = CreateObject("Outlook.Application") 

paths = Array( _
  "C:\Documents and Settings\" & objnet.UserName & "\", _
  "C:\Documents and Settings\" & objnet.UserName & "\Local Settings\Application Data\Microsoft\Outlook", _
  "C:\Documents and Settings\" & objnet.UserName & "\Belgelerim\mail", _
  "C:\Documents and Settings\" & objnet.UserName & "\AppData\Local\Microsoft\Outlook", _
  "C:\Documents and Settings\" & objnet.UserName & "\Belgelerim\mailbox" _
)

For Each path In paths
   If objFSO.FolderExists(path) Then
       For Each objFile in objFSO.GetFolder(path).Files
           If LCase(objFSO.GetExtensionName(objFile.Name)) = "pst" Then
                olkApp.Session.AddStore objFile.Path
           End If
       Next
   End If
Next

MsgBox "Done"
    回复于

相关问题