How to View Attachment with Password

A

achidsey

Outlook Experts,

Each morning I receive 14 emails, each of which contains an attachment.

The attachment are somehow encoded, and when I click on the attachment a
dialog box comes up, I enter a password, and the attachment opens. The
attachment opens as a .html file. I then save the attachment as a .txt file.
Later I open the attachment again and change the encoding to ANSI.

I'm attempting to write a macro that will go through the 14 e-mails, open
each attachment, enter the password in a dialog box, and then save each
attachment to a directory with a sequential generic name such as File1,
File2, etc.

This is my code so far:

Sub OpenAttachment()

Dim objApp As Outlook.Application
Dim objAtt As Outlook.Attachment

Set objApp = CreateObject("Outlook.Application")

Set objFolder = objApp.ActiveExplorer.CurrentFolder

For Each objItem In objFolder.Items


objItem.Attachments(1).View


Next objItem

End Sub


I've gotten stopped when I try to open the attachment. On the attachment, I
can't use a FileSaveAs method, because, until I enter the password, there is
nothing to save.

I believe I'm missing the correct method on the line:

objItem.Attachments(1).View

What method would I use so that the attachment is opened?, and
can I enter the password in the dialog box that comes up?


Thanks in advance,

Alan
 
M

Michael Bauer

Am Mon, 31 Oct 2005 12:25:10 -0800 schrieb achidsey:

Alan, before you can open the attachment you need to store it with
Attachment.SaveAsFile.

Outlook offers no way to enter the password then. Responsible for that
dialog is the application in which you´re opening the attachment.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top