Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE and Outlook
 |
- Add Attachment to Journal Item
- Adding Contact Information into Outlook
- Compiled EXE Keeps Running Under Task Manager
- Copy Contacts Folder to Subfolder in Outlook
- Create a Folder under Personal Folders in Outlook
- Create Outlook Distribution List
- Creating Address Book XML File
- Current Contact Folder Items
- Delete Mail from Outlook using OLE
- Delete Outlook Contact
- Email Forwarder
- Embed an Image into an Outlook Email
- Empty Folder in Outlook
- Encrypt Message in Outlook
- Find Contacts in Outlook
- Find Folder with the String Mailbox
- Get Internet headers Field from Outlook Message
- Get Contact data form Contact Item Currently Selected in Outlook
- Get Contact Information In Outlook
- Get Internet headers Field from Outlook Message
- Get list of appointments
- Get member of Outlook Distribution List
- Get Outlook Contact information
- How to Send Mail from Outlook using OLE
- Identify Outlook Folder Type or Contents
- Import Excel Data into Outlook Contact Folder
- Launch Outlook and Make Visible
- List Subfolders
- Mark Messages as Read in Outlook using OLE
- ObjectEventAdd To Capture ItemSend Event
- OLE and OUTLOOK check mail
- OLE and OUTLOOK read mail other than inbox
- OLE and OUTLOOK read mail
- OLE MAPI Choose Folder
- OLE_Outlook- add Entry to Address book
- Outlook - Get Oldest Email Message
- Outlook constants
- Outlook Contacts to XML
- Outlook PST to MSG Export
- Outlook Quit Event
- Outlook Received Date
- Outlook Reply-To in OLE
- Outlook Sendmail OLE Example
- Outlook Version
- Read Open Active Outlook Message
- Recurse Outlook folders
- Redemption Causes WinBatch Studio to Crash
- Rename Personal Folder in Oulook
- Save file attachments in Outlook
- Save outlook attachments
- Send to Multiple Recipients
- Sort Email by Received Time
- TypeOf Equivalent
- Use Existing Instance Or Create a New One If Necessary
- Using OLE to resolve name in Outlook
- WinBatch and Redemption Issue
- Writing Appointments to Outlook
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Save outlook attachments
Question:
I have a problem with downloading an attachments from outlook. When I use the following code, it always downloads the whole message and not just the attachment in it.This is what I tried:
olFolderInbox=6
MSapp = ObjectCreate ("Outlook.Application")
oNameSpace = MSapp.GetNamespace("MAPI")
oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
ofolderitems=oFolder.Items
For a = 1 to ofolderItems.count
oMessage = oFolder.Items(a)
if oMessage.senderName == "Sender"
Attachments = oMessage.Attachments
Attachment = Attachments.Item(1)
fname = Attachment.filename
Attachment.SaveAsFile("C:\windows\desktop\%fname%")
break
endif
Next
Any suggestions?
Answer:
This code seems to work for me:
olFolderInbox=6
SaveTo = "C:\windows\desktop\"
MSapp = ObjectCreate ("Outlook.Application")
oNameSpace = MSapp.GetNamespace("MAPI")
oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
oFolderItems=oFolder.Items
msgcount = oFolderItems.count
For a = 1 to msgcount
oMessage = oFolderItems.Item(a)
oAttachments = oMessage.Attachments
attachcount = oAttachments.Count
For b = 1 to attachcount
oAttachItem = oAttachments.Item(b)
fname = oAttachItem.filename
filetosave = StrCat(SaveTo,fname)
oAttachItem.SaveAsFile(filetosave)
oAttachItem = 0
Next
oAttachments = 0
oMessage = 0
Next
oFolderItems = 0
oFolder = 0
oNameSpace = 0
MSapp = 0
Article ID: W16095
File Created: 2009:04:01:10:30:50
Last Updated: 2009:04:01:10:30:50