Save attachments from GroupWise

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
I am a trying to save .doc and .docx files from a folder in GroupWise to a network folder. We are running GroupWise 8.0.3 with the latest patches. The article here: showthread.php?510-Article-Extract-Novell-Groupwise-Attachments-And-Save-To-A-Directory&highlight=GroupWise (sorry, would not let me post the link) explains how to do it. I also saw a couple of threads that talk about it, but guess I am missing part of the puzzle.

I only changed this:
Code:
'Change required variables here!
sLoginName = "ajannson"
sFolderToSearch = "Census"
sSavePath = "C:\Share\DOCS\Census\mail" 'do not add trailing \ sFileType = "docx"
Here is what I get:
C:\Download>attach.wsf
Microsoft (R) Windows Script Host Version 5.7 Copyright (C) Microsoft Corporation. All rights reserved.
C:\Download\attach.wsf(70, 2) Windows Script Host: Unterminated entity reference
- matching ';' not found

I did not change anything else in the script. I did run it from the local HD on the PC.
I am not sure what you are using for a VB editor.
I have not checked to see the Groupware Type Library checked.

Can someone shed some light on how to set this up, where to run it and etc...
TNX Will
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,519
Reaction score
4
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Hi Will,

Do you really have the sFileType = "docx" at the end of the line? I beleive it should be:
Code:
'Change required variables here!
sLoginName = "ajannson"
sFolderToSearch = "Census"
sSavePath = "C:\Share\DOCS\Census\mail" 'do not add trailing \ 
sFileType = "docx"
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
it is actually correct...
Windows didn't paste correctly:
'Change required variables here!
sLoginName = "ajannson"
sFolderToSearch = "Census"
sSavePath = "C:\Share\DOCS\Census\mail" 'do not add trailing \
sFileType = "docx"
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
From a differnt PC, I get this information:
Script: C:\Download\attach.vbs
Line: 2
Char: 16
Error: Expected end of etatement
Code: 800A0401
Source: Microsoft VBScript compilation error

Will
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
Here you go :)

Option Explicit
Private ogwApp As GroupwareTypeLibrary.Application
Private ogwRootAcct As GroupwareTypeLibrary.Account
Sub Groupwise_SaveAttachToFile()
'Author : Ken Puls
'Macro Purpose: Save all attachments of specified file type into a
'user specified folder using Groupwise
'NOTE: Reference to Groupware Type Libary required
Dim ogwFolder As Folder, _
ogwFoundFolder As Folder, _
i As Long, _
sCommandOptions As String, _
sMailPassword As String, _
sLoginName As String, _
sFolderToSearch As String, _
sFileType As String, _
sSavePath As String, _
ogwMail As Mail
'Change required variables here!
sLoginName = "ajannson"
sFolderToSearch = "Census"
sSavePath = "C:\Download\ajansson" 'do not add trailing \
sFileType = "docx"
'Set application object reference if needed
If ogwApp Is Nothing Then 'Need to set object reference
DoEvents
Set ogwApp = CreateObject("NovellGroupWareSession")
DoEvents
End If
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,519
Reaction score
4
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Yuck. Okay, here's the deal...

The code you've got is meant to be early bound in order to run. vbscript doesn't do that. It's going to need conversion to late binding to run.

I don't have time to do that right today, but I'll see if I can get to it tomorrow.
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
Any help would be great! I have a user with over 1000 email messages with attachments in just one folder!! She is leaving service soon!

TNX Will
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,519
Reaction score
4
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Actually, Will, if you're in a hurry, why not just run it from Excel VBA (which is where it was designed)?

Open Excel, press Alt+F11 to get into the VBE, copy the code into a standard module, set the reference as documented in the article, make your changes and have the user run it. It'll be WAY easier than going through the hassle of converting the code....
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
I did not know how to run it in Excel.. This is new to me!!
OK, I did what I think I am suppose to do and NO joy....
This is what I have changed:
'Change required variables here!
sLoginName = "ajannson"
sFolderToSearch = "Census"
sSavePath = "C:\Download\ajansson" 'do not add trailing \
sFileType = "docx"

Set GroupWare under Tools - Preferences - Added the GroupWare option.
Pasted the script into a new module
Ran the script.

It appears to run, but nothing appears in C:\Download\ajansson.
Where does the password for ajannson get set or input? As an FYI, I was logged into GroupWise.
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
OK, I am seeing an oddity...
Same PC
My login, chose a folder and chose pdf files. Works great. I thoguht I had it.
user Login, chose folder and chose docx, does not work...
Any ideas?? more in the morning....

Will
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
OK, I have proved that it is NOT able to save DOCX file extentions. I have not tried Excel or any others. I know that DOC & PDF works. Any ideas or suggestions?

Also I have some files that are all called 07 or 09... is there a neat way to do a save as and it come out with the subject and the file extention?

Will
 

Ken Puls

Administrator
Staff member
Joined
Mar 13, 2011
Messages
2,519
Reaction score
4
Points
38
Location
Nanaimo, BC, Canada
Website
www.excelguru.ca
Excel Version(s)
Excel Office 365 Insider
Hi Will,

Try replacing this:
Code:
If Right(.Attachments(i).Filename, 3) = sFileType Then
	.Attachments(i).Save _
	sSavePath & "\" & .Attachments(i).Filename
End If

With this:
Code:
If Right(.Attachments(i).Filename, len(sFileType)) = sFileType Then
.Attachments(i).Save _
sSavePath & "\" & .Attachments(i).Filename
End If

I think that should fix it for you.
 

wliporace

New member
Joined
Jan 15, 2013
Messages
10
Reaction score
0
Points
0
Thank you!! I was able to save the docx files with no problem.

TNX Will
 
Top