Le Café Central de Deva
... Deva blogs!!
I changed the way of blogging. Re-designed the site & started using the latest Windows Live Writer 2011!! Additionally added Microsoft Translator gadget available @ top of page, so that you can change the page in your preferred language!!
Please find the following code snippet for retrieving various Outlook attachments - Reference, Value, Embedded and OLE using Outlook Object Model (OOM) & VBA:
'Code Snippet : How to retrieve Outlook attachments using Visual Basic for Application (VBA)
Dim omailitem As Outlook.MailItem
Dim oattach As Outlook.Attachment
Dim ofolder As Outlook.Folder
Set ofolder = Application.Session.PickFolder
Debug.Print "Total Items available in Folder : " & ofolder.Items.Count
For Each Item In ofolder.Items
Set omailitem = Item
Debug.Print "Item Subject :" & omailitem.Subject & " Size (in bytes):" & omailitem.Size
If omailitem.Attachments.Count > 0 Then
For Each oattach In omailitem.Attachments
If oattach.Type = Outlook.olByReference Then
Debug.Print "By reference : " & oattach.FileName & " Size (in bytes) : " & oattach.Size
ElseIf oattach.Type = Outlook.olByValue Then
Debug.Print "By Value : " & oattach.FileName & " Size (in bytes) : " & oattach.Size
ElseIf oattach.Type = Outlook.olEmbeddeditem Then
Debug.Print "Embedded item : " & oattach.FileName & " Size (in bytes) : " & oattach.Size
ElseIf oattach.Type = Outlook.olOLE Then
Debug.Print "OLE : " & oattach.FileName & " Size (in bytes) :" & oattach.Size
- olByReference The attachment is a shortcut to the location of the original file.
- olByValue The attachment is a copy of the original file and can be accessed even if the original file is removed.
- olEmbeddeditem The attachment is an Outlook message format file (.msg) and is a copy of the original message.
- olOLE The attachment is an OLE document
You can also get more info from : http://msdn.microsoft.com/en-us/library/aa220737(office.11).aspx
Result will be like this (sample data provided for your view):
Total Items available in Folder : 3
Item Subject :Fw: Mormons and Roses - A "Cheers" TV Show ClipSize (in bytes):4057344
By Value : Mormonscantsendflowers_1.wmvSize (in bytes) : 4054264
Item Subject :Rate spectrum on exotic position JEX and JNKSize (in bytes):2537614
By Value : JNK_JEX_IR.xls Size (in bytes) : 2525885
Item Subject :Fw: Blue Angles in San Francisco(May be a repeat)Size (in bytes):741293
By Value : image001.jpg Size (in bytes) : 61862
By Value : image002.jpg Size (in bytes) : 59804
By Value : image003.jpg Size (in bytes) : 81551
By Value : image004.jpg Size (in bytes) : 48063
By Value : image005.jpg Size (in bytes) : 62174
By Value : image006.jpg Size (in bytes) : 55008
By Value : image007.jpg Size (in bytes) : 76879
By Value : image008.jpg Size (in bytes) : 42201
By Value : image009.jpg Size (in bytes) : 45637
By Value : image010.jpg Size (in bytes) : 56987
By Value : image011.jpg Size (in bytes) : 2308
By Value : image012.jpg Size (in bytes) : 97229
By Value : image013.jpg Size (in bytes) : 28169
Now, you can download Microsoft Office Suite Service Pack 2 which provides the latest updates to the 2007 Office Suite. It consists of,
NOTE: Before installing this service pack, you are strongly encouraged to read 953195, which describes some big improvements introduced by SP2, and also calls out some important information that you should be aware of before installing.
With respect to Outlook 2007...
Microsoft Office Outlook 2007 Service Pack 2 (SP2) is a user-focused
update that contains significant improvements in performance and in
calendar reliability. Also you can hear more from Janes Liles, Group Program Manager talks about the enhancements about the Service Pack 2 in the Microsoft Presspass. Per her words, "...Outlook 2007 SP2 is 26 percent faster than its predecessor on a set of common
e-mail tasks and is even faster, 35 percent, with larger mailboxes. Users will
experience considerable responsiveness and speed improvements on common,
day-to-day operations like launching, synchronizing and searching..."
With regards to Outlook 2007, some of the improvements were:
The data file 'file name' was not closed properly. This file is being checked for problems.
Hope this helps.
If you’re exchange admin or exchange developer who want to test/evaluate/create sample application(s), then you can download the following Exchange Server 2007 x64 for Hyper-V and Exchange Server 2007 SP1 VHD’s for Virtual PC, Virtual Server. You can use this for a limited period and try it; you can evaluate the new capabilities of Exchange Server 2007, which deliver the advanced protection your company demands, the anywhere access people throughout your organization want, and the operational efficiency you need.
Download fully configured Exchange Server 2007 SP1 x64 (64 bit edition) VHD (works with Hyper-V):
You can download Exchange Server 2007 x64 (64 bit edition) VHD from the following Microsoft download location: http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=db31866c-2cd5-4610-8505-5f2572248618 Note: To use this above VHD, you need to have Hyper-V enabled machines to work with this build.
Download Exchange Server 2007 SP1 VHD (works with Virtual PC, Virtual Server):
You can download Exchange Server 2007 SP1 VHD from the following Microsoft download location: http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=e99f2a96-ffbc-4323-9676-9657607c4a52 Note: A virtualization product that supports the VHD format is required to use this virtual machine. Microsoft Virtual PC or Microsoft Virtual Server are provided for free and can be used with these VHD based virtual machines.
We can enumerate the store event sink as given below:
'This command helps us to enumerate the list of registered store event sink's with the
'administrator user's inbox available in contoso.com
C:\> cscript regevent.vbs enum "file://./backofficestorage/contoso.com/mbx/administrator/inbox" all
Do you wonder how Exchange Server 2010 (beta) will be look like? You can find more information from its exclusive TechNet site: http://technet.microsoft.com/en-us/exchange/2010/default.aspx
Microsoft Exchange Server 2010 helps you achieve new levels of reliability and performance by delivering features that help to simplify your administration, protect your communications, and delight your users by meeting their demands for greater business mobility.
Microsoft Exchange Server 2010 Beta helps IT Professionals achieve new levels of reliability with greater flexibility, enhanced user experiences, and increased protection for business communications.
This software is intended for evaluation purposes only. You must accept the license terms before you are authorized to use this software. There is no product support for this trial software. You are welcome to participate in the forums to share your trial experiences with others and to ask for advice.
Before you install the Exchange Server 2010 Beta, we recommend that you review the summary of system requirements and technical information located in the Exchange Server 2010 Technical Documentation Library.
You can download the Exchange Server 2010 beta by clicking the hyperlink specified in the Microsoft Download Center location.
If you’re developer who use Microsoft Exchange Web Services to develop client applications, then this is for you to download and play around with it.
The Microsoft Exchange Web Services (EWS) Managed API 1.0 Beta provides a managed interface for developing client applications that use Exchange Web Services. The EWS Managed API simplifies the implementation of applications that communicate with Microsoft Exchange Server 2007 Service Pack 1 (SP1) and later versions of Microsoft Exchange. Built on the Exchange Web Services SOAP protocol and Autodiscover, the EWS Managed API provides a .NET interface to EWS that is easy to learn, use, and maintain.
It’s available for both 32 and 64 bit environments: For x64 (64-bit) computers, download and run EwsManagedApi.msi For x86 (32-bit) computers, download and run EwsManagedApi32.msi
It can be downloaded from Microsoft Download Center.
'[VBA & Outlook Object Model : Code snippet to delete Outlook recurring Task items (whose status marked as Completed)]
dim otaskitem as Outlook.Taskitem
dim ofolder as Outlook.Folder
'Get the Task items
set ofolder = Application.Session.GetDefaultFolder(olFolderTasks)
For each item in ofolder.items
set otaskitem = Item
'Check the status of the specific Taskitem is "Completed" or not
if otaskitem.Status = olTaskcomplete then
'Msgbox "Completed Tasks"
'Msgbox "Not Completed Tasks"