Outlook - Termin-Erstelung per VBS funktioniert nicht

Hi.

Ich nutze auf meinem PC das folgende VBS-Script um in Outlook einen Termin anzulegen:

Dim objArgs, olkApp, olkNS, olkAppointment
Set objArgs = WScript.Arguments
If objArgs.Count > 0 Then
    Set olkApp = CreateObject("Outlook.Application")  
    Set olkNS = olkApp.GetNamespace("MAPI")  
    olkNS.Logon "Outlook"  
    Set olkAppointment = olkApp.CreateItem(1)
    For I = 0 to objArgs.Count - 1
          Select Case LCase(Mid(objArgs(I),1,3))
                Case "/s:"      'Subject  
                      olkAppointment.Subject = Mid(objArgs(I),4)
                Case "/l:"      'Location  
                      olkAppointment.Location = Mid(objArgs(I),4)
                Case "/t:"      'Start time  
                    olkAppointment.Start = Mid(objArgs(I),4)
                Case "/e:"      'End time  
                      olkAppointment.End = Mid(objArgs(I),4)
                Case "/a:"      'All day event  
                      olkAppointment.AllDayEvent = Mid(objArgs(I),4)
                Case "/r:"      'Reminder set  
                      olkAppointment.ReminderSet = BooleanValue(Mid(objArgs(I),4))
                Case "/b:"      'Body  
                      olkAppointment.Body = Mid(objArgs(I),4)
          End select
    Next
    olkAppointment.Display
End If
Set objArgs = Nothing
Set olNS = Nothing
Set olApp = Nothing
WScript.Quit

Function BooleanValue(varValue)
      Select Case varValue
            Case "True","true", "T", "t"  
                  BooleanValue = True
            Case "False", "false", "F", "f"  
                  BooleanValue = False
            Case 0
                  BooleanValue = True
            Case 1
                  BooleanValue = False
      End Select
End Function 

Die entsprechenden Parameter (Betreff, Zeit usw) gebe ich per batchfile mit (Argumente).

Funktioniert auf meinem PC perfekt
Habe es soeben auf einem anderen PC probiert, hier bekomme ich jedoch immer die Fehlermeldung
"Termin2Outlook.vbs(15, 21) Microsoft Outlook: Das Objekt unterstützt diese Methode nicht."

Woher kommt diese nichtssagende Meldung?

Woran kann es liegen, dass ich mit meiner vbs-datei keinen Termin auf dem zweiten PC anlegen kann?

Lieben Dank!

Please also mark the comments that contributed to the solution of the article

Content-Key: 491087

Url: https://administrator.de/contentid/491087

Printed on: April 20, 2024 at 12:04 o'clock

4 Comments

Latest comment

Woher kommt diese nichtssagende Meldung?

Auf dem anderen PC gibt es wohl kein Outlook-Profil namens "Outlook"

olkNS.Logon "Outlook"

Outlook Version, Datum/Zeitformat usw. kennen wir vom anderen Rechner nicht.

Hab ich auch schon vermutet, gibt es aber und wird so auch verwendet.

Das es sowieso nur ein Profil gibt ist der aber auch überflüssig.

Outlook Version, Datum/Zeitformat und deine Parameter usw. kennen wir vom anderen Rechner nicht. Da führst du ebenfalls keine Konvertierung der Parameter in Date Objekte durch.

Regionseinstellungen sind ident.
(siehe Screenshot)

Die Parameter (Betreff, Start- und Endzeit sowie Text) übergebe ich aus unserer Warenwirtschaft, sind also auch auf beiden PCs ident.

Einziger (ersichtlicher) Unterschied:

PC 1: