Comments on: Open Any Email Attachment From Outlook

By: JP

JP — Tue, 07 Sep 2010 11:56:32 +0000

Since it's a text file, use the Open statement to open and read the contents into a String variable. Then use Instr to check if the word appears in the String.

http://www.exceluser.com/explore/questions/vba_textcols.htm

By: Wesley

Wesley — Mon, 06 Sep 2010 18:30:03 +0000

Hi JP

We receive a large number of confirmation emails from brokers, in .txt format
I have already used the code to save the attachments to a specified folder – works like a charm!
My problem is that I need to open up these text files (which this code does) but also search for a keyword, say "Eureka", and if it finds it, save the file with "Eureka" as a prefix to the name, if not then save it as the filename of the attachment.
How do I execute the find function using winshell on text files (.txt) and get the return value of true/false? Any help would be appreciated, however the working code would be legendary!

Regards
Wesley

By: JP

JP — Thu, 17 Dec 2009 01:44:21 +0000

That means either:

You don't have any program associated with the .url file extension, or
You can only use the Run method with a file saved to disk.

By: Shazad Rojan

Shazad Rojan — Wed, 16 Dec 2009 22:33:48 +0000

Hi,

I tried to run the code as is in my outlook 2007 and got a run time error as follows:

Run-time error '-2147024894 (80070002)';
Method 'Run' of object 'IWshShell3' failed.

Any help is appreciated as I don't know VBA

i am trying to allow users to directly launch a .url attachment and not saving to the disk and then launch it. This is for our Accounting software (Navision).

Thank you.

By: JP

JP — Tue, 15 Sep 2009 23:31:53 +0000

Open the VB IDE in Outlook by pressing Alt+F11. Go to Insert » Module and then paste this code. To activate the macro from a toolbar button, visit How to assign a macro to a toolbar button. HTH

By: Thomas K

Thomas K — Mon, 14 Sep 2009 01:10:14 +0000

This looks like something i need. I want to be able to send an email and then outlooks open the program for the attached file.

The problem is, i don't know how to get the script from this site to outlook.

plz help

By: JP

JP — Wed, 15 Apr 2009 00:03:49 +0000

Correct, your code will open all the attachments to an email. It should work with all registered file types, opening each one in its native application. I think a new version of the code is in order, where you can specify the folder.

By: RBliss

RBliss — Tue, 14 Apr 2009 21:52:02 +0000

The following code will open the attachments. (I've only tested it with attachments of the same type. Not sure if it will work differently with mixed types.)

Sub OpenAttachmentInNativeApp()
' based on code posted by Sue Mosher
' http://tinyurl.com/684zg4

Dim myShell As Object
Dim MyItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim i As Long
Dim Att As String

On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set MyItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set MyItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0

If MyItem Is Nothing Then
GoTo ExitProc
End If

Set myAttachments = MyItem.Attachments
' Windows Script Host Object
Set myShell = CreateObject("WScript.Shell")

If myAttachments.Count > 0 Then
For i = 1 To myAttachments.Count
Att = myAttachments.Item(i).DisplayName
' delete just in case it exists from before
On Error Resume Next
Kill "C:\" & Att
On Error GoTo 0

myAttachments.Item(i).SaveAsFile "C:\" & Att
myShell.Run "C:\" & Att
Next i
End If

ExitProc:
Set myAttachments = Nothing
Set MyItem = Nothing
Set myShell = Nothing
End Sub

By: JP

JP — Fri, 17 Oct 2008 20:20:50 +0000

Glad to hear it Mohamed! I mean, I hope it was useful.

–JP

By: Mohamed Abdel Nabyu

Mohamed Abdel Nabyu — Wed, 15 Oct 2008 13:42:49 +0000

Thanks a lot
I give the code to our secretary & she was impressed