save attachment using outlook 2007

Status
Not open for further replies.
S

Smlt

I have written a code to save and rename an attachment after an outlook rule

sorts the email into a folder. My issue is that I wrote it for outlook 2003

and we are currently being upgraded to outlook 2007. I have not programmed in

2007 (I am new to programming) and I am hoping someone can shed some light on

what changes I need to make so that it runs. Here is what I have:

Sub CAMPMM2(Item As Outlook.MailItem)

Set FSOC = CreateObject("scripting.filesystemobject")

filecountC = FSOC.GetFolder("M:\CAMPMM\").Files.Count

If filecontC > 0 Then

FSOC.deletefile "M:\CAMPMM\CAMPMM.zip"

End If

For Each Atmt In Item.Attachments

' This filename path must exist! Change folder name as

necessary.

ext = Atmt.FileName

ext = Right(ext, Len(ext) - InStrRev(ext, ".") + 1)

FileName = "M:\CAMPMM\CAMPMM" & ext

'Atmt.SaveAsFile FileName

Atmt.SaveAsFile FileName

i = i + 1

'Set Item = Item.FindNext

Next Atmt

End Sub

Thanks - Jim
 
K

Ken Slovak - [MVP - Outlook]

Virtually all Outlook macro code from versions prior to Outlook 2007 will

run unchanged in Outlook 2007. Your code is no exception.

"Jim" <Jim> wrote in message

news:F922D971-4F7B-4CE1-B808-B9733A70B9E6@microsoft.com...
> I have written a code to save and rename an attachment after an outlook
> rule
> sorts the email into a folder. My issue is that I wrote it for outlook
> 2003
> and we are currently being upgraded to outlook 2007. I have not programmed
> in
> 2007 (I am new to programming) and I am hoping someone can shed some light
> on
> what changes I need to make so that it runs. Here is what I have:

> Sub CAMPMM2(Item As Outlook.MailItem)

> Set FSOC = CreateObject("scripting.filesystemobject")
> filecountC = FSOC.GetFolder("M:\CAMPMM\").Files.Count

> If filecontC > 0 Then
> FSOC.deletefile "M:\CAMPMM\CAMPMM.zip"

> End If

> For Each Atmt In Item.Attachments
> ' This filename path must exist! Change folder name as
> necessary.

> ext = Atmt.FileName
> ext = Right(ext, Len(ext) - InStrRev(ext, ".") + 1)
> FileName = "M:\CAMPMM\CAMPMM" & ext
> 'Atmt.SaveAsFile FileName

> Atmt.SaveAsFile FileName
> i = i + 1
> 'Set Item = Item.FindNext

> Next Atmt
> End Sub

> Thanks - Jim
>
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
W Save Outlook attachment in network folder and rename to current date and time Outlook VBA and Custom Forms 18
V VB script code to save a specific email attachment from a given email Outlook VBA and Custom Forms 14
B VBA Help Email that will save as draft and send as attachment Outlook VBA and Custom Forms 3
peacepanda How to save attachment looking at the attachment name Outlook VBA and Custom Forms 1
D Automatically save attachment to network folder Exchange Server Administration 1
C How To Open Outlook Attachment in Excel, Modify some Data, then Re-Save It Using Outlook 3
S Save an attachment back to the original e-mail. Using Outlook 2
J Outllok 2010 won't save changes to an attachment Using Outlook 1
H Can't save Outlook attachment to Skydrive Using Outlook 2
B Cannot save the attachment Using Outlook 1
J Enable prompt to save/open attachment Using Outlook 1
J OWA wont allow to save attachment Using Outlook 2
M "Cannot save the attachment" error from Outlook 2007. File IS written, but, with Zero bytes. Using Outlook 5
J Save attachment if email is from joe Outlook VBA and Custom Forms 4
H Save .msg attachment as .rtf Outlook VBA and Custom Forms 10
E Auto Save Zip File Attachment to Network Folder Outlook VBA and Custom Forms 1
S unable to save attachment Outlook VBA and Custom Forms 1
D Prevent popup of "Do you want to save changes?" when closing after opening an appointment to view Outlook VBA and Custom Forms 2
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Outlook 2013 Script Assistance - Save Opened Link with Subject Added Outlook VBA and Custom Forms 1
R Use an ItemAdd to Save Attachments on Arrival Outlook VBA and Custom Forms 0
W Outlook Calendar does not save view any longer! Using Outlook 3
S automate save the .xlxs file to share Network Using Outlook 1
S save email from excel Outlook VBA and Custom Forms 1
Y Open and Save Hyperlink Files in multiple emails Outlook VBA and Custom Forms 9
O Save attachments using hotkey without changing attributes Outlook VBA and Custom Forms 1
N Open & Save VBAProject.Otm using VBA Code Outlook VBA and Custom Forms 1
R VBA | Chosing path to save file Outlook VBA and Custom Forms 1
W Save and rename outlook email attachments to include domain name & date received Outlook VBA and Custom Forms 4
V Change default default save location to Quick Access Using Outlook 1
C Change default "Save Sent Item To" folder Outlook VBA and Custom Forms 9
C Outlook - cannot save subject line changes Using Outlook 2
J Save E-mail attachments in a specific folder Outlook VBA and Custom Forms 0
I Outlook 2016 64bit - on receipt convert emails into PDF and save Outlook VBA and Custom Forms 2
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
N editing drafts - won't let me save Using Outlook 12
nathandavies Email Details to Excel & Save as .MSG on one macro - combination of 2 macros Outlook VBA and Custom Forms 3
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
D Save Sent Item to Using Outlook 0
Diane Poremsky Save Selected Email Message as .msg File New Slipstick.com Articles 11
Diane Poremsky Export (Save) Outlook Contact photos New Slipstick.com Articles 0
Diane Poremsky Save Messages and Attachments to a New Folder New Slipstick.com Articles 0
B Delete/replace old files and save new attachments Using Outlook 1
E Outlook 2016 and Numerous Prompts to Save Emails Using Outlook 3
Diane Poremsky Save Outlook Email as a PDF New Slipstick.com Articles 0
Diane Poremsky Edit and Save Outlook's Read-Only Attachments New Slipstick.com Articles 0
Diane Poremsky Save Attachments to the Hard Drive New Slipstick.com Articles 2
C Save Subject of Received Email as a String Outlook VBA and Custom Forms 1
Similar threads


















































Top