[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 175
  • Last Modified:

Convert VBA from outlock to vb script

Hi!

In outlock you have a function to save email as MSG file.
I can make a function in vba in outlock for this job:

Dim Message As MailItem
Dim t1 As Integer
Dim s1 As String

Set myNameSpace = Application.GetNamespace("MAPI")
'Set myJobber = myNameSpace.GetDefaultFolder(olFolderJobber)
Set myInboks = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("test1")
t1 = 1
s1 = "Fil"

For Each Message In myInboks.Items
      s1 = s1 & Str(t1)
      Message.SaveAs "C:\tt1\" & s1 & ".msg", olMSG
      s1 = Message.MarkForDownload
           
      s1 = "Fil"
      t1 = t1 + 1
Next Message


But need to have the same function in VB.SCRIPT
Is this possible in VB.SCRIPT ?

Please help ASAP

0
team2005
Asked:
team2005
  • 6
  • 6
1 Solution
 
David LeeCommented:
Hi team2005.

This should do it.
Const olFolderInbox = 6
Dim Message
Dim t1
Dim s1
 
Set olkApp = GetObject(,"Outlook.Application")
Set myNameSpace = olkApp.GetNamespace("MAPI")
Set myInboks = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("test1")
t1 = 1
s1 = "Fil"
 
For Each Message In myInboks.Items
      s1 = s1 & Str(t1)
      Message.SaveAs "C:\tt1\" & s1 & ".msg", olMSG
      s1 = Message.MarkForDownload
           
      s1 = "Fil"
      t1 = t1 + 1
Next Message

Open in new window

0
 
team2005Author Commented:
Hi!

Tryed your code, but get a error message:

Error message is : Expected end of statment

Here ---> End Message     (gives the error)

???
0
 
David LeeCommented:
"Here ---> End Message"
Sorry, I don't see that anywhere in the code.  Can you give me a line number?
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
team2005Author Commented:
Hi!

Sorry , my mistace

Next Message  ---> Line 19
0
 
David LeeCommented:
Well, that's your code.  I just made the changes necessary to run from VBScript.  I made no change to that line nor to the loop it's a part of.  If it fails in VBScript, then it should fail int he VBA original too.  That aside, I don't see why it should fail.  That type of FOR ... NEXT loop should never fail so long as no items are being removed from the original collection.  I don't see any Delete or Move commands, so that shouldn't be the case.
0
 
team2005Author Commented:
Hi!

When i tryed your code in VBA in outlock.
Its working just fine, so what is the different
using VB.SCRIPT ???

Strange....
0
 
David LeeCommented:
Good question.  Try taking Message off of line 19, leaving just Next.
0
 
team2005Author Commented:
Hi!

Tryed to remove Message like you say.
And now its making the files.
But when i dobbelclick the created file, it do not show this email
in outlock. But give me a message like:

Cannot open file <filename> The file may not exist , you may not have permission to open it, or it may be
open in another program. Right click the folder that contains the file , and then click Properties to check
your permissions for the folder.

Why dosent this work, when the same code work in outlock ???

Very very strange



0
 
David LeeCommented:
Ummm, I think I missed something.  Add this line to the top of the file.

Const olMSG = 3
0
 
team2005Author Commented:
Hi!

YES, its working now.

Thank you so mutch for BIG help
0
 
team2005Author Commented:
Thanks
0
 
David LeeCommented:
Cool.  Glad I could help.
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

  • 6
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now