Copy Subject Line When Saving Attachment

  • Thread starter Thread starter Kris
  • Start date Start date
Status
Not open for further replies.
K

Kris

Hello,

I have a macro that I found online and modified it to my needs but I

am hitting a wall.

The macro saves an attachment from the file and names it using the

subject line. However every subject line starts the same for example

"Department - ". Is there any way when the file is saving to make sure

that isn't included in the file name?

The code I am using for that section is below.

Any help would be appreciated.

Thanks

For Each Item In SubFolder.Items

For Each Atmt In Item.Attachments

If LCase(Right(Atmt.FileName, Len(ExtString))) = LCase

(ExtString) Then

FileName = DestFolder & Item.Subject & ".csv"

Atmt.SaveAsFile FileName

I = I + 1

End If

Next Atmt

Next Item
 
The Replace() function is useful for simple parsing like that:

FileName = DestFolder & Replace(Item.Subject, "Department - ", "") &

".csv"

Sue Mosher

"Kris" <kris.king@gmail.com> wrote in message

news:452c2a93-1a9d-442e-92e8-088488b9f254@h18g2000yqj.googlegroups.com...
> Hello,

> I have a macro that I found online and modified it to my needs but I
> am hitting a wall.
> The macro saves an attachment from the file and names it using the
> subject line. However every subject line starts the same for example
> "Department - ". Is there any way when the file is saving to make sure
> that isn't included in the file name?

> The code I am using for that section is below.
> Any help would be appreciated.
> Thanks

> For Each Item In SubFolder.Items
> For Each Atmt In Item.Attachments
> If LCase(Right(Atmt.FileName, Len(ExtString))) = LCase
> (ExtString) Then
> FileName = DestFolder & Item.Subject & ".csv"
> Atmt.SaveAsFile FileName
> I = I + 1
> End If
> Next Atmt
> Next Item
 
On Jul 23, 3:27 pm, "Sue Mosher [MVP]" <sue...@turtleflock.com> wrote:
> The Replace() function is useful for simple parsing like that:

>     FileName = DestFolder & Replace(Item.Subject, "Department - ", "") &
> ".csv"

> > Sue Mosher
>    >      >    
> "Kris" <kris.k...@gmail.com> wrote in message

> news:452c2a93-1a9d-442e-92e8-088488b9f254@h18g2000yqj.googlegroups.com...

>
> > Hello,

>
> > I have a macro that I found online and modified it to my needs but I
> > am hitting a wall.
> > The macro saves an attachment from the file and names it using the
> > subject line. However every subject line starts the same for example
> > "Department - ". Is there any way when the file is saving to make sure
> > that isn't included in the file name?

>
> > The code I am using for that section is below.
> > Any help would be appreciated.
> > Thanks

>
> > For Each Item In SubFolder.Items
> >        For Each Atmt In Item.Attachments
> >            If LCase(Right(Atmt.FileName, Len(ExtString))) = LCase
> > (ExtString) Then
> >                FileName = DestFolder & Item.Subject &".csv"
> >                Atmt.SaveAsFile FileName
> >                I = I + 1
> >            End If
> >        Next Atmt
> >    Next Item-




That worked great! Thanks!
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Sending email copy (*.msg file) of sent email if subject line contains specific string. Outlook VBA and Custom Forms 1
K ind specific Subject line from outlook and copy the content of the email body to exce Outlook VBA and Custom Forms 0
Stilgar Relsik Create a rule to copy text from an email and paste it in the subject line. Using Outlook 1
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
V Copy and paste body and subject and send multiple emails Outlook VBA and Custom Forms 3
F How can i copy the mail subject and the link to the mail to th clipboard? Outlook VBA and Custom Forms 3
C Copy from one Profile to another Using Outlook 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
D Copy Appointment Body to Task Body Outlook VBA and Custom Forms 0
M copy field value to custom field Outlook VBA and Custom Forms 0
O In Agenda-view - How to copy an existing item months ahead or back? Using Outlook 0
C Move or copy from field to field Outlook VBA and Custom Forms 0
Z Copy specific email body text Outlook VBA and Custom Forms 0
B Need to Copy an email to a subfolder Outlook VBA and Custom Forms 2
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 5
S Copy Tasks/Reminders from Shared Mailbox to Personal Tasks/Reminders Outlook VBA and Custom Forms 0
A Cannot copy this folder because it may contain private items Using Outlook 0
C Copy Move item won't work Outlook VBA and Custom Forms 2
Z VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
Commodore Move turns into "copy" Using Outlook 3
C Copy Outlook contact field value to another field Outlook VBA and Custom Forms 1
J Copy to calendar function no longer working in outlook 365 Using Outlook 5
F Copy and replace not update contact in another pst Using Outlook 0
B Outlook Business Contact Manager with SQL to Excel, User Defined Fields in BCM don't sync in SQL. Can I use VBA code to copy 1 field to another? BCM (Business Contact Manager) 0
Commodore Folders always closed in move/copy items dialog box Using Outlook 3
N Outlook rules don't create a copy for bcc'ed emails Using Outlook 3
geofferyh Outlook 2010 How to Copy Outlook Attachment to a Specific Folder? Outlook VBA and Custom Forms 3
S Custom Form, copy user field data to message body Outlook VBA and Custom Forms 12
R Copy Outlook Public Folders to a File Server Shared Folder Using Outlook 0
K Outlook Rules: Move a Copy Using Outlook 4
oliv- HOW TO COPY /USE FOLDERS ICONS Outlook VBA and Custom Forms 2
E Copy e-mail body from outlook and insert into excel Outlook VBA and Custom Forms 3
B Copy/Move Exchange inbox to Pop inbox Using Outlook 4
O Copy mails from many subfolders to 1 foldr Using Outlook 2
K How to find specific header and copy the mail body Using Outlook 0
J Copy or Export Outlook Mail to Excel Outlook VBA and Custom Forms 6
G Copy Contact field to Appointment Custom Form Field Outlook VBA and Custom Forms 2
G How to Copy Multi Select Listbox Data to Appointment Outlook VBA and Custom Forms 3
Carrie Dickey Outlook 2016 created two calendars titled Calendar1 - appear to be a copy Using Outlook 2
P How to copy and append data from Outlook 2016 message into Excel 2016 workbook Using Outlook 0
R Macro to copy email to excel - Runtime Error 91 Object Variable Not Set Outlook VBA and Custom Forms 11
H Macro to Copy Specific content from Mail Body and Paste to Excel Outlook VBA and Custom Forms 4
M How to keep reccurence during copy tasks to calendar? Using Outlook 1
Diane Poremsky Copy New Appointments to Another Calendar using VBA Using Outlook 0
Diane Poremsky Use a macro to copy data in Outlook email to Excel workbook Using Outlook 0
C Copy Task to Non-Microsoft PIM "Rainlendar" Using Outlook 0
G VBA Copy draft email to a new email - attachments not copided Using Outlook 7
C Copy email to excel runtime error 5020 Using Outlook 5
I Copy email from folder to folder - FAILS Using Outlook 5
M Copy new appointments created in multiple shared calendars to another exchange calendar Outlook VBA and Custom Forms 1

Similar threads

Back
Top