Error 75

Status
Not open for further replies.

Jeremy Ollenbuttel

New Member
Outlook version
Outlook 2016 32 bit
Email Account
Exchange Server 2010
Good afternoon,

I have the following code running in Outlook 2016 along with a rule to print the attachments of specific emails as they arrive in the inbox;

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

'detect Temp
Dim oFS As FileSystemObject
Dim sTempFolder 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
For Each oAtt In Item.Attachments
FileName = oAtt.FileName
FullFile = cTmpFld & "\" & FileName

'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

This works fine if emails drop in one at a time, if I get multiple emails from the same sender I get the error 75
which is file or path error, I'm guessing that this is due to the temp save and print of the attachment.

Is ther a way of dealing with each email in turn to ensure the path is free before starting on the next?

Any help appreciated.

Kind regards

Jeremy
 
Assuming they aren't arriving at the same split second, it should work - i wonder if it's because the macro is busy. Try splitting it into two macros - the rule hands off to the second macro. You could also try a temp folder named with the sendon time or add the time to the temp filename.

Sub LSPrint(Item As Outlook.MailItem)
newprintmacro item
end sub

Sub newprintmacro(Item As Outlook.MailItem)
'all the print code
endsub
 
Assuming they aren't arriving at the same split second, it should work - i wonder if it's because the macro is busy. Try splitting it into two macros - the rule hands off to the second macro. You could also try a temp folder named with the sendon time or add the time to the temp filename.

Sub LSPrint(Item As Outlook.MailItem)
newprintmacro item
end sub

Sub newprintmacro(Item As Outlook.MailItem)
'all the print code
endsub
Hi,
Thanks for the quick response, the emails are generated from a reporting system and can hit my inbox simultaneously some times it may generate close to 100 or so.

I'm new to vba in outlook could you help a bit further with the possibility of splitting the code into two?

Thanks
 
All you need to do is replace the name of the macro with this then test it. Hundreds at once can be a problem though, especially if the filename is identical. You could try a counter.... but outlook rules really can't handle a ton of messages at once. Using a rule to move them to a folder then have a macro watch the folder might work a little better.


Code:
Sub LSPrint(Item As Outlook.MailItem)
newprintmacro item
end sub

Sub newprintmacro(Item As Outlook.MailItem)


to add a counter, at the very top of the module, add
dim counter as long

then add this as the first line (under the sub name)
counter = counter + 1

and change the filename to

FileName = oAtt.FileName & counter
 
Hi,

I hope I understood you correctly, with the code below I still get the error but nothing prints now?

Regards

Code:
Dim counter As Long

Sub LSPrint(Item As Outlook.MailItem)
NewPrintMacro Item
counter = counter + 1

End Sub
Sub NewPrintMacro(Item As Outlook.MailItem)

On Error GoTo OError

'detect Temp
Dim oFS As FileSystemObject
Dim sTempFolder 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
For Each oAtt In Item.Attachments
FileName = oAtt.FileName & counter
FullFile = cTmpFld & "\" & FileName

'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
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
L Error when exporting Sent Mail to Excel Outlook VBA and Custom Forms 6
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0
S macro error 4605 Outlook VBA and Custom Forms 0
humility36 Cannot move emails to archive - 440 error Outlook VBA and Custom Forms 1
D.Moore Strange VBA error Outlook VBA and Custom Forms 4
T Event Error on non existent Event. Using Outlook 2
P now on office 365 but getting error messages about missing Outlook 2013 cache folders Using Outlook 2
W Outlook 365 I am getting the "Either there is no default mail client" error when I try to send an email on excel Office 365 Using Outlook 1
A Links in email getting error message about group policy Using Outlook 4
Aussie Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives Using Outlook 1
Cathy Rhone Mail merge error message Using Outlook 1
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
V Outlook error 500 Using Outlook 2
O Comma Separated Values.ADR and A file error has occurred in the translator Using Outlook 6
D We're sorry but outlook has run into an error Using Outlook 6
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 4
P Outlook 2013 All imported Mail Rules in error when imported into new profile Using Outlook 5
H Outlook 2019 Certificate error Using Outlook 2
V Date and/or time error in Outlook Form Outlook VBA and Custom Forms 0
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
E Complite error on SaveAsFile method Outlook VBA and Custom Forms 2
I Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010 Outlook VBA and Custom Forms 5
D Outlook VBA error extracting property data from GetRules collection Outlook VBA and Custom Forms 10
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Compile error: User-defined type not defined Outlook VBA and Custom Forms 0
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
M ERROR: None of your email accounts could send to this recipient Using Outlook 2
J OLADD.FAE Error When Exporting Contacts Using Outlook 6
C Send/receive error 80040119 Using Outlook 2
W error with the permission for the file Outlook VBA and Custom Forms 0
L Outlook 2019 MAC sync error after working for 4 hours Using Outlook 1
A Run time error 424. object required in outlook 2013 Outlook VBA and Custom Forms 10
M error code 0x8DE00006 Using Outlook 1
M Desktop Version Of Outlook Generating Error Using Outlook 4
M Send/Receive error 0x800CCC0F Using Outlook 0
T Outlook 2016 CSV Translator Import Error Using Outlook 6
ManaarZakaria I'm afraid of this issue, cause of strange error Exchange Server Administration 2
P Suppress dialog box on email check error? Using Outlook 5
vodkasoda Object could not be found Error in Outlook 2007 Outlook VBA and Custom Forms 5
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
avant-guvnor Outlook.Application now produces error Outlook VBA and Custom Forms 5
P Run Time Error 91 when linking contact to task in VBA Outlook VBA and Custom Forms 1
N Error 0x80090326 when trying to setup IMAP account on Outlook.com Using Outlook.com accounts in Outlook 1
N Saving And Deleting Outlook Attachments with Unknown Error Message Outlook VBA and Custom Forms 1
Dennis Gaudenzi Your setup couldn't be started because of an unexpected error (mapi 0x80040604) Using Outlook 14
M Outlook 2013 fails to start -- missing WindowsCodecs.dll error Using Outlook 3
Steshelter ICloud Unexpected Error Using Outlook 5
Rupert Dragwater "there was an error reading this theme" Using Outlook 3
A Error: The name cannot be matched to a name in the address list Using Outlook.com accounts in Outlook 0

Similar threads

Back
Top