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
 
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.
Similar threads
Thread starter Title Forum Replies Date
G Save attachment run a script rule Outlook VBA and Custom Forms 0
S save attachment with date & time mentioned inside the file Outlook VBA and Custom Forms 0
A Edit attachment Save and Reply Outlook VBA and Custom Forms 0
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
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
G Save emails as msg file from Outlook Web AddIn (Office JS) Outlook VBA and Custom Forms 0
E Outlook 365 Save Selected Email Message as .msg File - oMail.Delete not working when SEARCH Outlook VBA and Custom Forms 0
E Save Selected Email Message as .msg File - digitally sign email doesn't works Outlook VBA and Custom Forms 1
M Outlook Macro to save as Email with a file name format : Date_Timestamp_Sender initial_Email subject Outlook VBA and Custom Forms 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
W Create a Quick Step or VBA to SAVE AS PDF in G:|Data|Client File Outlook VBA and Custom Forms 1
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 1
D VBA Macro to Print and Save email to network location Outlook VBA and Custom Forms 1
N VBA Macro To Save Emails Outlook VBA and Custom Forms 1
N Save emails within a certain date range to network drive Outlook VBA and Custom Forms 0
T Outlook 365 Move newly created tasks automatically on save. Outlook VBA and Custom Forms 1
N Save Selected Email Message as .msg File Outlook VBA and Custom Forms 12
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
N Save selected messages VBA does not save replies and/or messages that contain : in subject Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
S Add VBA save code Using Outlook 0
S Outlook (2016 32bit; Gmail IMAP) - Save sent message to Outllook Folder Outlook VBA and Custom Forms 0
P Outlook pst file is too huge with POP3. How to save more space? Using Outlook 4
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

Similar threads

Back
Top