G
Guest
Hello
I do have some troubles running a VBS script on Win XP Home Edition + Outlook 2003 within Office 2003
a) I had not troubles on outlook 2002
b) I am administrator of the machine
c) the vbs file is on my hard drive and I run it once outlook 2003 is running. The aim of that script (see below) is to set the folders' names to English for running the installation of an US software (Franklin Covey (PlanPlus) for Outlook), and then, get back to the international names onces the installation is done.
d) I have the following error message
***Error Message : Window Script Error
I am working on that issue since last Sunday..Thanks a lot for your help, I took off all security within the Options Menu from Outlook to let any type of attachment running, without success..
Regards
JP
Dim app
Dim ns
Dim folder
Set app = CreateObject("Outlook.Application")
If Not app Is Nothing Then
Set ns = app.GetNameSpace("MAPI")
If Not ns Is Nothing Then
Set folder = ns.GetDefaultFolder(9) 'Calendar
If Not folder Is Nothing Then
folder.Name = "Calendar"
End If
Set folder = ns.GetDefaultFolder(10) 'Contacts
If Not folder Is Nothing Then
folder.Name = "Contacts"
End If
Set folder = ns.GetDefaultFolder(11) 'Journal
If Not folder Is Nothing Then
folder.Name = "Journal"
End If
Set folder = ns.GetDefaultFolder(12) 'Notes
If Not folder Is Nothing Then
folder.Name = "Notes"
End If
Set folder = ns.GetDefaultFolder(13) 'Tasks
If Not folder Is Nothing Then
folder.Name = "Tasks"
End IF
End If
End If
I do have some troubles running a VBS script on Win XP Home Edition + Outlook 2003 within Office 2003
a) I had not troubles on outlook 2002
b) I am administrator of the machine
c) the vbs file is on my hard drive and I run it once outlook 2003 is running. The aim of that script (see below) is to set the folders' names to English for running the installation of an US software (Franklin Covey (PlanPlus) for Outlook), and then, get back to the international names onces the installation is done.
d) I have the following error message
***Error Message : Window Script Error
Line : 16
Caract : 7
Error :"You do not have the rights for that instruction.." (translation from French)
Code : 80070005 Source : Microsoft Office Outlook
I am working on that issue since last Sunday..Thanks a lot for your help, I took off all security within the Options Menu from Outlook to let any type of attachment running, without success..
Regards
JP
Dim app
Dim ns
Dim folder
Set app = CreateObject("Outlook.Application")
If Not app Is Nothing Then
Set ns = app.GetNameSpace("MAPI")
If Not ns Is Nothing Then
Set folder = ns.GetDefaultFolder(9) 'Calendar
If Not folder Is Nothing Then
folder.Name = "Calendar"
End If
Set folder = ns.GetDefaultFolder(10) 'Contacts
If Not folder Is Nothing Then
folder.Name = "Contacts"
End If
Set folder = ns.GetDefaultFolder(11) 'Journal
If Not folder Is Nothing Then
folder.Name = "Journal"
End If
Set folder = ns.GetDefaultFolder(12) 'Notes
If Not folder Is Nothing Then
folder.Name = "Notes"
End If
Set folder = ns.GetDefaultFolder(13) 'Tasks
If Not folder Is Nothing Then
folder.Name = "Tasks"
End IF
End If
End If