800A0401 - Fin prévue de la déclaration

J'ai créé un .fichier vbs pour créer un dossier dans Outlook. J'ai copié la plupart des script droit de MSDN et d'obtenir un "on Attend la Fin de la Déclaration" code d'erreur 800A0401 réponse.

Option Explicit
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myNewFolder = myFolder.Folders.Add("Postini")

Wscript.Echo "Folder created"
Wscript.Quit

N'a jamais créé un .vbs script avant. Pas sûr de ce que je suis absent.

Windows 7 64 bits et Outlook 2010. L'exécution en tant qu'administrateur local.

source d'informationauteur gravyface

  1. 25

    Cette erreur est parce que vous ne pouvez pas dim variables comme quelque chose en particulier en VBS. Dit de manière plus explicite le "Dim" est utilisée sans définir le type de variable dans le langage VBScript, car toutes les variables en VBScript sont automatiquement de type Variant. Si vous essayez de varier la luminosité d'une variable en tant que quoi que ce soit, il lèvera une erreur.

    Au lieu de cela, vous voulez:

    Dim myNameSpace
Dim myFolder
Dim myNewFolder

    En outre, vous semblez avoir juste copié VBA à partir d'Outlook et a essayé de l'exécuter en tant qu'VBS.

    VBscript ne sais pas comment l'interpréter Application.GetNameSpace("MAPI").

    Vous devrez également créer une Application Outlook.

    dim myOutlook
set myOUtlook = CreateObject("Outlook.Application")

    Aussi, puisque vous ne pouvez pas fournir des références en VBS, vous devez utiliser la liaison tardive pour tous les objets (c'est pourquoi j'ai utilisé la fonction CreateObject.) Donc ré-écrit votre code est comme suit:

    Option Explicit
Dim myOutlook
Dim myNameSpace
Dim myFolder
Dim myNewFolder

set myOUtlook = CreateObject("Outlook.Application")
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6) '6 is the value of olFolderInbox
Set myNewFolder = myFolder.Folders.Add("Postini")  
Wscript.Echo "Folder created"
Wscript.Quit