![]() |
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
|
|||
|
|||
![]()
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 ! |
Ads |
#2
|
|||
|
|||
![]()
How would this sender be identified? Is it someone in an existing contact
item, or based on the sender name or sender email address? What version of Outlook? Where is this script running, is it in Outlook? -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Professional Programming Outlook 2007 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm "Massimo" wrote in message ... 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 ! |
#3
|
|||
|
|||
![]()
How would this sender be identified? Is it someone in an existing contact
item, or based on the sender name or sender email address? What version of Outlook? Where is this script running, is it in Outlook? Hi, I would like to identify the sender by email address or display name, the script run on my desktop (external Outlook), my version of Outlook is 2003. Thank you very much. |
#4
|
|||
|
|||
![]()
In Outlook 2003 you can use the MailItem.SenderName and
MailItem.SenderAddress properties. Once you get each mail item in the loop use those properties: For Each objMessage in colItems If ((objMessage.SenderName = "Joe Fubar") OR _ (objMessage.SenderAddress = ")) Then ' do whatever with this one End If -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Professional Programming Outlook 2007 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm "Massimo" wrote in message ... How would this sender be identified? Is it someone in an existing contact item, or based on the sender name or sender email address? What version of Outlook? Where is this script running, is it in Outlook? Hi, I would like to identify the sender by email address or display name, the script run on my desktop (external Outlook), my version of Outlook is 2003. Thank you very much. |
#5
|
|||
|
|||
![]() MailItem.SenderAddress properties. Once you get each mail item in the loop use those properties: For Each objMessage in colItems If ((objMessage.SenderName = "Joe Fubar") OR _ (objMessage.SenderAddress = ")) Then ' do whatever with this one End If Thank you very much but I'm ignorant about VBS :-) how can I modify the script with the new option ? -------------------------------------------------- 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 -------------------------------------------------- Best Regards |
#6
|
|||
|
|||
![]()
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 If ((objMessage.SenderName = "Joe Fubar") OR _ (objMessage.SenderAddress = ")) Then objMessage.Attachments.Item(i).SaveAsFile "C:\Temp\" & _ objMessage.Attachments.Item(i).FileName End If Next End If Next You have to substitute the actual name and email address you want of course. -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Professional Programming Outlook 2007 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm "Massimo" wrote in message ... MailItem.SenderAddress properties. Once you get each mail item in the loop use those properties: For Each objMessage in colItems If ((objMessage.SenderName = "Joe Fubar") OR _ (objMessage.SenderAddress = ")) Then ' do whatever with this one End If Thank you very much but I'm ignorant about VBS :-) how can I modify the script with the new option ? -------------------------------------------------- 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 -------------------------------------------------- Best Regards |
#7
|
|||
|
|||
![]()
Hi there,
how to get the body message for a sender. Thanks, Sreedhar url:http://www.ureader.com/msg/10813327.aspx |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook Contact modify | Markandeyulu | Outlook - Using Contacts | 2 | February 28th 07 11:43 AM |
Outlk 2k3 Script: Saving Excel File programticaly from OUTLOOK SCRIPT | news.microsoft.com | Outlook and VBA | 3 | November 22nd 06 04:33 PM |
Run A SCRIPT - Select Script EMPTY | mitupan116 | Outlook and VBA | 1 | November 2nd 06 10:36 PM |
Rule 'run a script' not running my script | [email protected] | Outlook and VBA | 3 | May 30th 06 01:09 PM |
Modify outlook today 2003 | Graeme | Outlook - Using Forms | 1 | May 26th 06 10:54 PM |