Outlook Redemption VBScript Translation

[exodius]

Could someone help me with what I should be putting differently in this translation?

Taking this code from the Outlook Redemption website:

skPrimaryExchangeMailbox = 3
skDelegateExchangeMailbox = 4
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set Store = Session.Stores.DefaultStore
if (Store.StoreKind = skPrimaryExchangeMailbox) or (Store.StoreKind = skDelegateExchangeMailbox) Then
  set OOFAsistant = Store.OutOfOfficeAssistant
  OOFAsistant.OutOfOffice = true
  OOFAsistant.OutOfOfficeText = "Sorry, I am out of office at the moment!"
Else
  MsgBox "Out Of Office Assistant is only available for the Exchange mailboxes"
End If

I came up with:

$skPrimaryExchangeMailbox = 3
$skDelegateExchangeMailbox = 4

$oOutlook = ObjCreate("Outlook.Application")
$oSession = ObjCreate("Redemption.RDOSession")
$oSession.MAPIOBJECT = $oOutlook.Session.MAPIOBJECT
$oStore = $oSession.Stores.DefaultStore
if $oStore.StoreKind = $skPrimaryExchangeMailbox or $oStore.StoreKind = $skDelegateExchangeMailbox Then
  $OOFAssistant = $oStore.OutOfOfficeAssistant
  $OOFAssistant.OutOfOffice = true
  $OOFAssistant.OutOfOfficeText = "Sorry, I am out of office at the moment!"
Else
  MsgBox (0, "", "Out Of Office Assistant is only available for the Exchange mailboxes")
EndIf

But it doesn't so much work.I'm pretty sure my implementation is off where I reference $oOutlook.Session.MAPIOBJECT, but I don't know what else to put there. Any thoughts?

[water]

Please search the forum for "MAPIOBJECT" and/or "Redemption.RDOSession". There are some hits that might help you.

I'm not good with Outlook, just with the search function

[exodius]

Figured it out, seems like the example on their website must not be updated to the latest syntax or something...

Here's what resolved it for me:

$skPrimaryExchangeMailbox = 3
$skDelegateExchangeMailbox = 4

$oSession = ObjCreate("Redemption.RDOSession")
$oSession.Logon
$oStore = $oSession.Stores.DefaultStore
if $oStore.StoreKind = $skPrimaryExchangeMailbox or $oStore.StoreKind = $skDelegateExchangeMailbox Then
  $OOFAssistant = $oStore.OutOfOfficeAssistant
  $OOFAssistant.OutOfOffice = true
  $OOFAssistant.OutOfOfficeText = "Sorry, I am out of office at the moment!"
Else
  MsgBox (0, "", "Out Of Office Assistant is only available for the Exchange mailboxes")
EndIf