Autosave attachments error using Len

Status
Not open for further replies.

scooby99

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server 2007
Im trying to autosave attachments with the subject. However, the subject is quite long and the first 33 characters are always the same, while the remaining part can differ in length. Ive been looking at some code and modified it as follows using the Len statement but i cant get it to work. Instead I get error messages that the path doesnt exist. Anyone has any ideas what im doing wrong?

Public Sub test(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fDate As String
Dim posr As Integer

If Weekday(Date) = vbMonday Then
fDate = Format(Date - 3, "YYYY-MM-DD")
Else
fDate = Format(Date - 1, "YYYY-MM-DD")
End If

saveFolder = "C:\Tickets\" & fDate & "\"

For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & Mid(itm.Subject, 33, len(itm.Subject)- 32) & ".pdf"
Set objAtt = Nothing
Next

End Sub
 
It seems that the problem lies with the fact that theres a "/" in the subject.
If I remove it from the subject, the code works fine. Does anyone know how I can modify the code to handle the issue with "/"?
 
I solved it myself by adding a replace argument into the code :)
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M How to AutoSave Attachments that meet a criteria to a folder on a local drive Outlook VBA and Custom Forms 3
D Autosave Attachment and Rename Outlook VBA and Custom Forms 1
C appending 'Date Modified' to autosave script Outlook VBA and Custom Forms 19
C Outlook 2007 Autosave feature and Draft folder Using Outlook 2
J Outlook 2010 messages freeze in outbox, do not autosave, then disappear after Outlook locks up Using Outlook 7
L Outlook attachments from OneDrive as links Using Outlook 0
G Print email attachments when hit subfolder Outlook VBA and Custom Forms 1
R Saving Emails and Attachments as .msg file Using Outlook 3
KurtLass Opening Graphics Attachments in Outlook 2021 Using Outlook 0
F Outlook 2016 Email with attachments not being received Using Outlook 2
Commodore PDF attachments started to open in Edge Using Outlook 0
T Outlook 2021 Cannot open attachments Outlook DeskTop 2021 Using Outlook 0
D ISOmacro to extract active mail senders name and email, CC, Subject line, and filename of attachments and import them into premade excel spread sheet Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to answer a mail with attachments Outlook VBA and Custom Forms 2
P Print attachments automatically and move the mail to an existing folder called "Ted" Outlook VBA and Custom Forms 4
G Schedule recurring email and attachments display Outlook VBA and Custom Forms 3
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 2
A Attachments.Delete Outlook VBA and Custom Forms 3
M Deleting attachments does not reduce file size Using Outlook 0
L unblocking attachments before sending Office 365 Advanced Protection Using Outlook 0
I Saving attachments from multiple emails and updating file name Outlook VBA and Custom Forms 0
R Use an ItemAdd to Save Attachments on Arrival Outlook VBA and Custom Forms 0
shrydvd vba to secure zip attachments Outlook VBA and Custom Forms 3
R fetching blocked attachments Outlook VBA and Custom Forms 0
H Outlook 2016 sent over 30 copies of an e-mail with attachments Using Outlook 1
W Automatically open attachments without automatically printing them Using Outlook 0
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
T Outlook converts sent email to txt attachments when sync Using Outlook 0
Nadine Rule to move attachments with specific name Outlook VBA and Custom Forms 1
R Outlook is NOT removing attachments. Using Outlook 4
Dan_W Nested email attachments Outlook VBA and Custom Forms 4
M Print email and, attachments sent in hyperlinks in the email Outlook VBA and Custom Forms 2
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
S DRAGGING MAIL AND ATTACHMENTS TO CALENDAR Using Outlook 1
D Print attachments automatically and moves the mail to a new folder Outlook VBA and Custom Forms 9
G Download pdf attachments only if email subject has one of words Outlook VBA and Custom Forms 8
D Saving Selected Emails as PDF and saving Attachments Outlook VBA and Custom Forms 6
R Quick Access view in File Explorer when saving attachments Using Outlook 0
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
I Forwarding attachments in email received Outlook VBA and Custom Forms 3
A Outlook - Send New 20 Attachments through Email Using Outlook 4
D Print Attachments only in selected emails using a macro Outlook VBA and Custom Forms 3
M Outlook 2016 msg attachments Using Outlook 0
N Saving And Deleting Outlook Attachments with Unknown Error Message Outlook VBA and Custom Forms 1
M Macro for attachments download adjustment Outlook VBA and Custom Forms 3
M VBA macro for Inbox's attachments search Outlook VBA and Custom Forms 0
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
S Outlook 2010 Cannot Open Attachments Using Outlook 14

Similar threads

Back
Top