Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
default mailbox and moving attachments
I have found whilst look for help the nifty bit of code below,
It comes from a site called (if I remember correctly,) dicks-clicks.com What it does it looks for files in my mailbox with a certain line in the subject and moves that email elsewhere whilst at the same time pulling out the attachment for the email and saving it where ever I want, What I need to do is figure out how to make it look at another mailbox that I use. I was thinking it might be as simple as doing a Dim mailbox as XZY Then later on saying: Mailbox = €śreports€ť But for the life of me I dont know what the XYZ bit is nor do I know of another way to do this. The code for the main bit is: Dim olApp As Outlook.Application Dim olNs As Namespace Dim Mailbox As mapi Dim Fldr As MAPIFolder Dim MoveToFldr As MAPIFolder Dim olAtt As Attachment Dim MyPath As String Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set MoveToFldr = Fldr.Folders("reports") For i = Fldr.Items.Count To 1 Step -1 Set olMi = Fldr.Items(i) If InStr(1, olMi.Subject, "ERR00") 0 Then For Each olAtt In olMi.Attachments olAtt.SaveAsFile MyPath & Mid(olAtt.Filename, 1, 21) & ".csv" Next olAtt olMi.Save olMi.Move MoveToFldr End If Next i Set olAtt = Nothing Set olMi = Nothing Set Fldr = Nothing Set MoveToFldr = Nothing Set olNs = Nothing Set olApp = Nothing Exit Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto Forward in Mailbox | Excel Discussion (Misc queries) | |||
Send as Attachment - Change Default Mailbox? | Excel Discussion (Misc queries) | |||
Excel97 macro to archive Outlook mailbox | Excel Programming | |||
Does anyone know how I can import Eudora mailbox info into Excel . | Excel Discussion (Misc queries) | |||
Sending spreadsheets through Lotus with a group mailbox | Excel Programming |