A Microsoft Outlook email forum. Outlook Banter

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.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Modify VBS Script for Outlook



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old February 27th 08, 03:06 PM posted to microsoft.public.outlook.program_vba
Massimo[_2_]
external usenet poster
 
Posts: 3
Default 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 !


Ads
  #2  
Old February 27th 08, 03:28 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default Modify VBS Script for Outlook

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  
Old February 28th 08, 08:33 AM posted to microsoft.public.outlook.program_vba
Massimo[_2_]
external usenet poster
 
Posts: 3
Default Modify VBS Script for Outlook

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  
Old February 28th 08, 03:40 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default Modify VBS Script for Outlook

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  
Old March 3rd 08, 09:06 AM posted to microsoft.public.outlook.program_vba
Massimo[_2_]
external usenet poster
 
Posts: 3
Default Modify VBS Script for Outlook


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  
Old March 3rd 08, 02:50 PM posted to microsoft.public.outlook.program_vba
Ken Slovak - [MVP - Outlook]
external usenet poster
 
Posts: 5,848
Default Modify VBS Script for Outlook

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  
Old May 14th 08, 11:44 AM posted to microsoft.public.outlook.program_vba
sreedhar
external usenet poster
 
Posts: 1
Default Modify VBS Script for Outlook

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
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
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


All times are GMT +1. The time now is 12:12 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.