|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
February 27th 08, 02:06 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Modify VBS Script for Outlook
Hi,
I find at this link: http://www.microsoft.com/italy/techn.../tips0809.mspx a script to save all the outlook attachment in a folder, the script is: -------------------------------------------------- Const olFolderInbox = 6 Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) Set colItems = objFolder.Items For Each objMessage in colItems intCount = objMessage.Attachments.Count If intCount 0 Then For i = 1 To intCount objMessage.Attachments.Item(i).SaveAsFile "C:\Temp\" & _ objMessage.Attachments.Item(i).FileName Next End If Next -------------------------------------------------- My problem is that I would like to save only the attachment of a specified sender and not all, anyone help me to modify the script ? Thank you very much ! 
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Outlook Contact modify | Markandeyulu | Outlook - Using Contacts | 2 | February 28th 07 10:43 AM |
| Outlk 2k3 Script: Saving Excel File programticaly from OUTLOOK SCRIPT | news.microsoft.com | Outlook and VBA | 3 | November 22nd 06 03:33 PM |
| Run A SCRIPT - Select Script EMPTY | mitupan116 | Outlook and VBA | 1 | November 2nd 06 09:36 PM |
| Rule 'run a script' not running my script | [email protected] | Outlook and VBA | 3 | May 30th 06 12:09 PM |
| Modify outlook today 2003 | Graeme | Outlook - Using Forms | 1 | May 26th 06 09:54 PM |
Threaded Mode