Accessing email attachments in Outlook 2

[ChrisRChamberlain]

Hi all

Assume emails have arrived with attachments and have been placed in a subfolder called Temp of the Outlook Inbox through the use of an Outlook rule.

How can one copy/extract or otherwise access those attachments programatically?

TIA

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

Chris

Assume emails have arrived with attachments and have been placed in a subfolder called Temp of the Outlook Inbox through the use of an Outlook rule.

Did you want to automate the process of saving the attachment also, or is that part already taking care of?
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[craigsboyd]

you would have to hack the DBX file unless you wanted to use automation...I saved a simple email with a txt file containing "Hello World" attached in the drafts folder and then went and looked at the Drafts.dbx file and found the following...


Content-Type: text/plain;
name="a.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="MyText.txt"

HELLO WORLD


I looked around on the web and they haven't even got the entire dbx file format decoded yet from what I could see... Slighthaze = NULL

 

[ChrisRChamberlain]

Mike

The content of the email itself is not important - the client wants to receive information back from his field sales force and that information/data will be as an attachment in .zip format with an appropriate title to identity the contents of the .zip file.

So to answer your question, Yes.

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

Chris

I'm trying to help you, but could you explain how to add a subfolder to the Inbox in Outlook. Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[craigsboyd]

Geez...are we talking about Microsoft Outlook? I thought we were talking about Outlook Express...I too would like to know how to add a subfolder to the inbox of Microsoft Outlook Slighthaze = NULL

 

[craigsboyd]

Chris,

Could you clarify something for me...are you trying to do this by just hacking out the attachment or by using office automation and the Outlook object model? Slighthaze = NULL

 

[ChrisRChamberlain]

Mike/Slighthaze

You can make a new folder through New > Folder on the Outlook menu.

It's also done through the Outlook Rules Wizard whereby you can divert incoming email to a folder of your choice.

FI, I have all incoming Tek-Teps thread notifications routed to the 'Inbox\Tek-Tips notifications' folder so they never appear in the Inbox.

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

Chris

I figured it out, thank you.

To start with, here is how to determine the name of the forlder, and this assumes there is only one (or its the first one).

oOutLookObject = CreateObject("Outlook.Application")
olNameSpace = oOutlookObject.GetNameSpace("MAPI")
Tempfolder=OlnameSpace.folders(1).Folders(2).Folders(1).Name

In my case the Inbox appears to be the second folder in Outlook. In order to determine the Inbox folder index use the following:

oOutLookObject = CreateObject("Outlook.Application")
olNameSpace = oOutlookObject.GetNameSpace("MAPI")
FOR i = 1 TO olNamespace.Folders(1).Folders(1).folders.count
  ? "The folder name is: "+olNamespace.Folders(1).Folders(i).Name, "folder number is: "+ALLTRIM(STR(i))
next

Well I'll keep plugging at it, I'll find a way to deal with the attachement.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[Mike Gagnon]

Chris

I have question, is the attachment still attached to the message itself or just loose? Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[ChrisRChamberlain]

slighthaze

'are you trying to do this by just hacking out the attachment or by using office automation and the Outlook object model?'

I am hoping someone has been down this particular road and has an answer - I don't have any preconceptions as to how it might be done, but automation would be the first choice.

FAQ184-2483 - the answer to getting answered.​

Chris

 

[craigsboyd]

Chris and Mike,

I think that this article is very informative...look at page 3 especially on saving and opening those attachments...

http://www.exchangeadmin.com/Articles/Index.cfm?ArticleID=24423

Slighthaze = NULL

 

[ChrisRChamberlain]

Mike

'I have question, is the attachment still attached to the message itself or just loose?'

This would be the first interface with the email after its receipt other than moving the emails to a suitable folder.

Once the attachments had been removed, the emails would need to be deleted - they simply act as a carrier for the attachments.

It also could be set up the way that suits best on the client laptops in the field.

FAQ184-2483 - the answer to getting answered.​

Chris

 

[ChrisRChamberlain]

Mike/slighthaze

The following is the VBA code from the article from the link mentioned by slighthaze.

At first glance it seem to be a question of accessing the attachments collection and saving those individual files to disk?

*!* Listing 1: The RunFile Subroutine

Sub RunFile(strFileName)
[tab]Set WshShell = CreateObject("WScript.Shell&quot
[tab]On Error Resume Next
[tab]WshShell.Run strFileName
[tab]If Err <> 0 Then
[tab][tab]strMsg = &quot;Could not open this file: &quot; & strFileName & _
vbCrLf & vbCrLf & &quot;You can use Windows Explorer's &quot; & _
&quot;Tools | Options | File Types to check what &quot; & _
&quot;program is associated with this type of file.&quot;
MsgBox strMsg, vbExclamation, &quot;Error opening file&quot;
[tab]End If
[tab]Set WshShell = Nothing
End Sub

*!* Listing 2: The OpenAllFiles Subroutine

Sub OpenAllFiles()
[tab]Dim objOL As Application
[tab]Dim objItem As Object
[tab]Dim colAtts As Attachments
[tab]Dim objAtt As Attachment
[tab]Dim fso As New Scripting.FileSystemObject
[tab]Dim strFile As String

[tab]Set objOL = CreateObject(&quot;Outlook.Application&quot
[tab]Set objItem = objOL.ActiveExplorer.Selection(1)
[tab]If Not objItem Is Nothing Then
[tab][tab]Set colAtts = objItem.Attachments
[tab][tab]If colAtts.Count > 0 Then
[tab][tab][tab]For Each objAtt In colAtts
[tab][tab][tab][tab]strFile = &quot;C:\Temp\&quot; & objAtt.FileName
[tab][tab][tab][tab]objAtt.SaveAsFile strFile
[tab][tab][tab][tab]Call RunFile(strFile)
[tab][tab][tab]Next
[tab][tab]End If
[tab]End If

[tab]Set fso = Nothing
[tab]Set objAtt = Nothing
[tab]Set colAtts = Nothing
[tab]Set objItem = Nothing
[tab]Set objOL = Nothing
End Sub

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

Chris,

Here is the VFP equivalent of what you want:

LOCAL lcFilename,lcPath
lcPath="c:\savedattachments\"
oOutLookObject = CreateObject("Outlook.Application")
olNameSpace = oOutlookObject.GetNameSpace("MAPI")
myAtts=oLNameSpace.GetDefaultFolder(6).Folders("tEMP").Items
FOR EACH loItem IN myAtts
   lcFilename=""
   lcFileName = loItem.attachements.filename
   lcFileName = ALLTRIM(lcPath)+lcFileName
   loItem.attachements.item(1).SaveAsFile(&lcFilename)
   *loItem.Delete
NEXT

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[ChrisRChamberlain]

Mike

Not wishing to be pedantic but :-

loItem.attachements.filename

Is that a typo?

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

ChrisRChamberlain

Not wishing to be pedantic but :-

loItem.attachements.filename

Is that a typo?

No, its French ;-), but being where you live you would use:

lcFileName = loItem.attachments.filename
lcFileName = ALLTRIM(lcPath)+lcFileName
loItem.attachments.item(1).SaveAsFile(&lcFilename)

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html

 

[ChrisRChamberlain]

Mike

It's crashing at

'lcFileName = loItem.attachments.filename'

OLE error code 0x80020006 :Unknown name

FAQ184-2483 - the answer to getting answered.​

Chris

 

[ChrisRChamberlain]

Mike

I suspect

lcFileName = loItem.attachments.filename

should be

lcFileName = loItem.attachments.item(1).filename

as it gives correct attachment filename, but now crashes on

loItem.attachments.item(1).SaveAsFile(&lcFilename)

which should be

loItem.attachments.item(1).SaveAsFile(lcFilename)

but then crashes on

lcFileName = loItem.attachments.item(1).filename

next time through the loop if there is not another attachment.

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

Chris

lcFileName = loItem.attachments.item(1).filename

Correct, if the e-mail has no attachment it throws an error, I would suggest you trap it.

On Error Do noattachment
Local lcFilename,lcPath
PUBLIC myError
lcPath="c:\savedattachments\"
oOutLookObject = Createobject("Outlook.Application")
olNameSpace = oOutLookObject.GetNameSpace("MAPI")
myAtts=olNameSpace.GetDefaultFolder(6).Folders("tEMP").Items
for Each loItem In myAtts
	Set Step On
	lcFilename=""
	lcFilename = loItem.attachments.filename
	If !myError
		lcFilename = Alltrim(lcPath)+lcFilename
		loItem.attachments.Item(1).SaveAsFile(&lcFilename)
*loItem.Delete
	Endif
	myError = .F.
Next
Procedure noAttachment
myError = .T.
Endproc

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first or check this link

http://www.tuxedo.org/~esr/faqs/smart-questions.html