# outlook 2007, replying with attachments **URL:** \ **Category:** NYSpeed Off Topic\ **Created:** [October 15, 2008, 11:17am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495 "2008-10-15T11:17:52Z")\ **Posts on this page:** 8\ **Page:** 1
**Author:** ![micah](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/micah/32/7257_2.png) [@micah](https://forums.speedlife.net/u/micah)\ **Post date:** [October 15, 2008, 11:17am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/1 "2008-10-15T11:17:52Z")
is there an option anywhere i can change in outlook so that when i hit reply or reply all i can leave the attachments on ? im so sick of fwding then putting everyones email in again ---
**Author:** ![Dr.Stevil](https://avatars.discourse-cdn.com/v4/letter/d/da6949/32.png) [@Dr.Stevil](https://forums.speedlife.net/u/Dr.Stevil)\ **Post date:** [October 15, 2008, 11:19am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/2 "2008-10-15T11:19:36Z")
forwarding doesn’t keep them? works fine over here edit: n/m re-read what you posted. can you create a contact list for the people you normally forward stuff on to? ---
**Author:** ![newman](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/newman/32/7569_2.png) [@newman](https://forums.speedlife.net/u/newman)\ **Post date:** [October 15, 2008, 11:20am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/3 "2008-10-15T11:20:16Z")
why do you need to send it back to them? they already have it! ---
**Author:** ![micah](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/micah/32/7257_2.png) [@micah](https://forums.speedlife.net/u/micah)\ **Post date:** [October 15, 2008, 11:20am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/4 "2008-10-15T11:20:33Z")
fwding keeps it, replying or replying all doesnt ---
**Author:** ![BuickGN](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/buickgn/32/7200_2.png) [@BuickGN](https://forums.speedlife.net/u/BuickGN)\ **Post date:** [October 15, 2008, 11:29am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/5 "2008-10-15T11:29:29Z")
nope, no way in outlook 07 to do this It would be nice if there was a reply with attachment option tho. ---
**Author:** ![micah](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/micah/32/7257_2.png) [@micah](https://forums.speedlife.net/u/micah)\ **Post date:** [October 15, 2008, 11:29am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/6 "2008-10-15T11:29:59Z")
how SILLY ---
**Author:** ![9c1](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/9c1/32/7392_2.png) [@9c1](https://forums.speedlife.net/u/9c1)\ **Post date:** [October 15, 2008, 11:32am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/7 "2008-10-15T11:32:57Z")
There is no simple way to do this that I can see. Found this for 2003, I would presume it would work for 2007 as well. It’s involved but if you must have the feature: > Follow the steps below and you can create a new button on your message toolbar which will create a reply and attach any current file attachments. > > In outlook main windows go to Tools-\>Macro-\>Visual Basic Editor. > In the visual Basic Editor goto Insert-\>Module. > Paste the code at the end of this message. > Open a new message. > Goto View-\>Toolbars-\>Customize. > Select the Commands Tab. > Click the command Rearrange Commands > Select the Toolbar Radio Button. > Verify that the drop down box next to the button says Standard. > Click the Add button. > Select Macros from the left list. and in the right list Project1.ReplyWithAttach should be highlighted. > Click OK > Move the command up or down to position it where you like. Then click close. You should now see a button that says Project1.ReplyWithAttach > > Public Sub ReplyWithAttach() > 'Make declarations > Dim myOlApp As Outlook.Application > Dim myInspector As Outlook.Inspector > Dim myItem As Outlook.MailItem > Dim myReplyItem As Outlook.MailItem > Dim myAttachments As Outlook.Attachments > Dim myReplyAttachments As Outlook.Attachments > Dim fso > Dim TempFolder As String > Set fso = CreateObject(“Scripting.FileSystemObject”) > TempFolder = fso.GetSpecialFolder(2) > Set myOlApp = CreateObject(“Outlook.Application”) > Set myInspector = myOlApp.ActiveInspector > > 'Create variable to store files names 10 max if you need more then 10, change the value below > Dim filenames(10) As String > > If Not TypeName(myInspector) = “Nothing” Then > If TypeName(myInspector.CurrentItem) = “MailItem” Then > Set myItem = myInspector.CurrentItem > Set myAttachments = myItem.Attachments > If myAttachments.Count \> 0 Then > For Count = 1 To myAttachments.Count > myAttachments.Item(Count).SaveAsFile "c:" & myAttachments.Item(Count).DisplayName > filenames(Count) = myAttachments.Item(Count).DisplayName > Next > > Set myItem = myInspector.CurrentItem > Set myReplyItem = myItem.Reply > Set myReplyAttachments = myReplyItem.Attachments > > For Count = 1 To myAttachments.Count > myReplyAttachments.Add "c:" & filenames(Count), olByValue, 1, “4th Quarter 1996 Results Chart” > myReplyItem.Display > fso.DeleteFile "c:" & filenames(Count) > Next > > End If > Else > MsgBox “The item is of the wrong type.” > End If > End If > End Sub ---
**Author:** ![micah](https://yyz2.discourse-cdn.com/flex034/user_avatar/forums.speedlife.net/micah/32/7257_2.png) [@micah](https://forums.speedlife.net/u/micah)\ **Post date:** [October 15, 2008, 11:56am UTC](https://forums.speedlife.net/t/outlook-2007-replying-with-attachments/56495/8 "2008-10-15T11:56:22Z")
that actually worked! for single files, like xls, jpg files etc… didn’t work for an attachment in outlook message format. but kinda cool , wish it would reply all though i wonder how i can edit that code to do so