Open .MSG File Using VBA

[smartguy]

Hello all,

I have excel file in the below format.

i saved outlook maill in my c Drive. (.msg) based on condition i want to open the mail.

Excel file :

Excel Workbook
	A	B
1	Mail ID	Status
2	25	Done
3	26	Done
Sheet1

Path : C:\mail1

if Mail Id = "25" and Status = "Done" then

Open "C:\mail1\25.msg"

Please help to provide the solution....

 

[Raymond_India]

How do we trap an error if the file contained in the sFile variable is deleted or is not found for some reasons ?
Any idea anyone ?

 

[Ruddles]

If Dir(sFile) = "" Then
      ' [COLOR=#008000]file not found[/COLOR]
  Else
      [COLOR=#008000]' file found[/COLOR]
  End If

 

[Raymond_India]

If Dir(sFile) = "" Then
      ' [COLOR=#008000]file not found[/COLOR]
  Else
      [COLOR=#008000]' file found[/COLOR]
  End If

That was Cool. Thanks