Variable not defined

[josros60]

Hi,

i got this vba code in the internet and added to outlook and create a rule per instructions but every time i run it
gave an error variable not define, could you please check for me which variables are not define in this code, much appreciated.

here the code:

Sub LSPrint(Item As Outlook.MailItem)On Error GoTo OError


'detect Temp
Dim oFS As FileSystemObject
Dim sTempFolder As String
Dim cTmpFld As String
Set oFS = New FileSystemObject


'Temporary Folder Path
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)


'creates a special temp folder
cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
MkDir (cTmpFld)


'save & print
Dim oAtt As Attachment
Dim FileName As String
For Each oAtt In Item.Attachments
FileName = oAtt.FileName
[B][COLOR=#ff0000]FullFile = cTmpFld & "\" & FileName[/COLOR][/B]

'save attachment
oAtt.SaveAsFile (FullFile)


'prints attachment
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")


Next oAtt


'Cleanup
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing


OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub


End Sub

thank you,

 

[Michael M]

Fullfile hasn't been defined

Should be dim FullFile as string

FullFile = cTmpFld & "\" & FileName

 

[josros60]

thank you very much for the help.

now when run game same error and another line

[COLOR=#B22222]Set objShell = CreateObject("Shell.Application")[/COLOR]
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")

Thanks again

 

[Michael M]

Add

Dim objShell as Object
Dim objFolder as Object