e-mail attachments

[tchyper]

does anyone know, how to open an attachment? (from an e-mail)
thanks!

[chris75]

Assuming that you are using VB with the Outlook Object Model, the only methods I know of are DELETE and SAVEASFILE for attachments:
ie.:
Outlook.olMailItem.Attachments(0).SaveAsFile folder&"\"&...Attachments(0).FileName

You could save it and then find a way in VB to open the file as the next line of your program

Hope this is of some use

[Cimperiali]

I am looking for a way to read attachments. Found this solution,
but it leaves you with temporary files...

Anyone could improve or suggest a better way?
Option Explicit
'put a reference to
'Microsoft Outlook (highest number) Object Library
'(this example has been developed with 9.0 (=outlook 2000))
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400
Private Type SHELLEXECUTEINFO
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type

Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'
'
Private Sub Command1_Click()
Dim OutApp As Outlook.Application
Dim OutNS As Outlook.NameSpace
Dim OutFolder As Outlook.MAPIFolder
Dim outMail As Outlook.MailItem
Dim outVariant As Variant
Dim FileName As String

On Error GoTo ErrClick
'instancing outlook
Set OutApp = New Outlook.Application
'instancing namespace
Set OutNS = OutApp.GetNamespace("MAPI")
'goto inbox
Set OutFolder = OutNS.GetDefaultFolder(olFolderInbox)
'serach for first nmail with attachment
For Each outVariant In OutFolder.Items
'if it is a mailitem
If TypeOf outVariant Is Outlook.MailItem Then

Set outMail = outVariant
'count attachments
If outMail.Attachments.Count > 0 Then
'found a mail with one or more attachments
'save first attachment
'(nb: index starts from 1!)
FileName = outMail.Attachments.Item(1).FileName
Dim strTemp As String

'save on disK

strTemp = String(100, Chr$(0))
'Get the temporary path
GetTempPath 100, strTemp
'strip the rest of the buffer
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)
'add a dummy letter in name,
'as the tryue name may be in use by outlook
'in the temp dir
If Dir(strTemp & "a" & FileName) = "" Then
outMail.Attachments.Item(1).SaveAsFile strTemp & "a" & FileName
Call OpenAttachment(strTemp & "a" & FileName)

End If

'was just an experiment. Close all, and exit searching mails
'with attachments
outMail.Close olDiscard
Exit For
End If
End If
Next outVariant
'Cleaning:

ExitClick:
Set outMail = Nothing
Set outVariant = Nothing
Set OutFolder = Nothing
Set OutNS = Nothing
If Not OutApp Is Nothing Then
OutApp.Quit
End If
Set OutApp = Nothing
Exit Sub

ErrClick:
MsgBox Err.Description
Resume ExitClick

End Sub
'
'
Private Sub OpenAttachment(FileName As String)
Dim SEI As SHELLEXECUTEINFO

Dim r As Long
With SEI
'Set the structure's size
.cbSize = Len(SEI)
'Seet the mask
'.fMask = SEE_MASK_NOCLOSEPROCESS Or _
' SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI
'Set the owner window
.hwnd = Me.hwnd ' OwnerhWnd
'open
.lpVerb = "Open"
'Set the filename
.lpFile = FileName
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
'open associated program for that attachment
r = ShellExecuteEx(SEI)
End Sub