Solved

Convert VBA from outlock to vb script

Posted on 2008-06-16
12
166 Views
Last Modified: 2013-11-26
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
Comment
Question by:team2005
  • 6
  • 6
12 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 21796021
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
 
LVL 2

Author Comment

by:team2005
ID: 21796086
Hi!

Tryed your code, but get a error message:

Error message is : Expected end of statment

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

???
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21796121
"Here ---> End Message"
Sorry, I don't see that anywhere in the code.  Can you give me a line number?
0
Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

 
LVL 2

Author Comment

by:team2005
ID: 21796163
Hi!

Sorry , my mistace

Next Message  ---> Line 19
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21796208
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
 
LVL 2

Author Comment

by:team2005
ID: 21796231
Hi!

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

Strange....
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21796348
Good question.  Try taking Message off of line 19, leaving just Next.
0
 
LVL 2

Author Comment

by:team2005
ID: 21796474
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
 
LVL 76

Expert Comment

by:David Lee
ID: 21796518
Ummm, I think I missed something.  Add this line to the top of the file.

Const olMSG = 3
0
 
LVL 2

Author Comment

by:team2005
ID: 21796623
Hi!

YES, its working now.

Thank you so mutch for BIG help
0
 
LVL 2

Author Closing Comment

by:team2005
ID: 31467703
Thanks
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21797987
Cool.  Glad I could help.
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
A long time ago (May 2011), I have written an article showing you how to create a DLL using Visual Studio 2005 to be hosted in SQL Server 2005. That was valid at that time and it is still valid if you are still using these versions. You can still re…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question