다음을 통해 공유

OOM : How to retrieve Outlook attachments ( Reference, Value, Embedded and OLE) using VBA?

  • 아티클

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

 End If

 Debug.Print "-------------------"

 Next

 End If

 Next

Here,

- 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 : https://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

-------------------

Comments