800A0401 - Erwartetes Ende der Anweisung

Habe ich einen .vbs-Datei erstellen Sie einen Ordner in Outlook. Ich habe das meiste kopiert das Skript direkt aus MSDN und bekommen ein "Erwartetes Ende der Anweisung" error code 800A0401 Antwort.

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

Nie ein .vbs-Skript vor. Nicht sicher, was ich bin fehlt.

Windows 7 64-bit und Outlook 2010. Läuft als lokaler administrator an.

InformationsquelleAutor gravyface | 2012-10-09

  1. 27

    Dieser Fehler ist, weil Sie nicht dim-Variablen, wie etwas bestimmtes im VBS. Genauer gesagt, explizit die "Dim" - Anweisung verwendet wird, ohne Definition der Variablen Typ, die in VBScript, da alle Variablen in VBScript sind automatisch vom Typ Variant. Wenn Sie versuchen, Sie Dim eine variable als alles andere, wird es werfen eine Fehlermeldung.

    Stattdessen möchten Sie:

    Dim myNameSpace
Dim myFolder
Dim myNewFolder

    Darüber hinaus scheinen Sie nur kopiert einige von VBA aus Outlook und versuchte es als VBS.

    VBscript nicht weiß, wie das zu interpretieren Application.GetNameSpace("MAPI").

    Müssen Sie auch erstellen Sie ein Outlook-Anwendung.

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

    Auch, da Sie keine Verweise in VBS, müssen Sie die späte Bindung verwenden für alle Objekte (das ist der Grund, warum ich verwendet CreateObject.) So neu geschrieben code ist wie folgt:

    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
    Oh, nicht sicher, ob VBScript-und Kleinschreibung, indem Sie myOUtlook in Ihrem ersten "set" - Zeile.
    Es ist nicht, wie VBA-technisch nicht groß-und Kleinschreibung. Der Unterschied ist, dass in VBA die IDE automatisch aktualisieren Kapitalisierung Inkonsistenzen.

    InformationsquelleAutor Daniel

Schreibe einen Kommentar