Database Search

TechHome

Redemption

• 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 attachments in Outlook

Keywords: 	 Save attachments in Outlook

Example from user:

Bill

Answer:

; Dump outlook messages (with attachments) to file

ArcPath="C:\emailarc\"

olFolderInbox=6 ;constant DO NOT CHANGE
MSapp = ObjectCreate ("Outlook.Application")
objNameSpace = MSapp.GetNamespace("MAPI")
objFolder = objNameSpace.GetDefaultFolder(olFolderInbox);  'Access the Inbox

objcount=objFolder.Items
ValCount=objcount.Count;checks number of messages in inbox!

;Loop thru each item in the inbox
For i = 1 to Valcount

	objItem=objFolder.Items(i) ;set current message 
	Body = objItem.Body 
	HTMLBody = objItem.HTMLBody
	;ReceivedByName = objItem.ReceivedByName 
	Subject = objItem.Subject
	WHOTo = objItem.To
	SentOn = objItem.SentOn
	SenderName = objItem.SenderName

	GoSub CleanNames

	If !DirExist(CleanPathName) then Dirmake(CleanPathName) 
	If HTMLBody == ""
		outfile=FileOpen(StrCat(CleanPathName, CleanSubject,".txt"), "WRITE")
		FileWrite(outfile, Body)
	Else
		outfile=FileOpen(StrCat(CleanPathName,CleanSubject,".htm"), "WRITE")
		FileWrite(outfile, HTMLBody)
	EndIf
	FileClose(outfile)

	GoSub ProcessAttachments
Next i

MSApp = 0

EXIT

:ProcessAttachments
Attachments = objItem.Attachments ; returns a numeric value of 33338
;Application = Attachments.Application
;AClass = Attachments.Class
ACount = Attachments.Count
;AParent = Attachments.Parent
;ASession = Attachments.Session
If ACount == 0 Then Return

For A = 1 to Acount
	Attachment = Attachments.Item(A)
	A_FileName = Attachment.FileName
	;A_PathName = Attachment.PathName ; Returns Blank?
	A_SaveAsFile = Attachment.SaveAsFile(StrCat(CleanPathName,A_FileName)) 
Next 
Return

:CleanNames ; Remove invalid character(s) from file/path
allowedchars='abcdefghijklmonpqrstuvwxyz0123456789~!@#$^&()_-,.=+{}[]'
CleanSenderName=StrClean(SenderName,allowedchars, " ", @FALSE,2) 
CleanSentOn=StrClean(SentOn,allowedchars, "", @FALSE,2)
If StrLen(CleanSentOn) > 8
	CleanSentOn=StrFix(CleanSentOn, " ", 8)
EndIf
CleanSubject=StrClean(Subject,allowedchars, " ", @FALSE,2) 
If CleanSenderName == "" then CleanSenderName = "No Sender Name"
If CleanSentOn == "" then CleanSentOn = "No SentOn Date"
If CleanSubject == "" then CleanSubject = "No Subject"
CleanPathName=StrCat(ArcPath, CleanSenderName, "\", CleanSentOn, "\")
Return

Article ID:   W14685

Filename:   Save file attachments in Outlook.txt

File Created: 2008:11:04:09:47:20

Last Updated: 2008:11:04:09:47:20