Can I import into an excel spreadsheet a value from an outlook received mail
message?

What kind of mail ? HTML or plain text ?

Here's some code for looping through the items in the inbox: might get you
started.

Tim

'*****************
Option Explicit


Sub CheckOutlookMsgs()

Const S_SUBJECT As String = "YourSubjectHere"
Dim olApp As Outlook.Application
Dim fInbox As MAPIFolder

Dim olInboxCollection As Object
Dim olInboxItem As Object
Dim iCount As Integer
Dim itemCount, n

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application first"
Err.Clear
Exit Sub
End If
On Error GoTo haveError

'Get the inbox folder
Set fInbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFold erInbox)
Set olInboxCollection = fInbox.Items

itemCount = olInboxCollection.Count
iCount = 0
For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)
If StrComp(olInboxItem.Subject, S_SUBJECT) = 0 Then

iCount = iCount + 1
Application.StatusBar = "Processing # " & iCount

'here's where you get the info from the attachment....
MsgBox olInboxItem.Body

End If
Next n

haveError:
If Err < 0 Then MsgBox "Error:" & vbCrLf & Err.Description
Application.StatusBar = False

End Sub


'*****************


"Max Bialystock" wrote in message
...
Can I import into an excel spreadsheet a value from an outlook received
mail message?

Thanks for that Tim, it's HTML.

Max


"Tim Williams" <timjwilliams at gmail dot com wrote in message
...
What kind of mail ? HTML or plain text ?

Here's some code for looping through the items in the inbox: might get you
started.

Tim

'*****************
Option Explicit


Sub CheckOutlookMsgs()

Const S_SUBJECT As String = "YourSubjectHere"
Dim olApp As Outlook.Application
Dim fInbox As MAPIFolder

Dim olInboxCollection As Object
Dim olInboxItem As Object
Dim iCount As Integer
Dim itemCount, n

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application first"
Err.Clear
Exit Sub
End If
On Error GoTo haveError

'Get the inbox folder
Set fInbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFold erInbox)
Set olInboxCollection = fInbox.Items

itemCount = olInboxCollection.Count
iCount = 0
For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)
If StrComp(olInboxItem.Subject, S_SUBJECT) = 0 Then

iCount = iCount + 1
Application.StatusBar = "Processing # " & iCount

'here's where you get the info from the attachment....
MsgBox olInboxItem.Body

End If
Next n

haveError:
If Err < 0 Then MsgBox "Error:" & vbCrLf & Err.Description
Application.StatusBar = False

End Sub


'*****************


"Max Bialystock" wrote in message
...
Can I import into an excel spreadsheet a value from an outlook received
mail message?

Then my example code should get you as far as having the messge content.
How you extract a particular value will depend on where it is in the mail.

Tim


"Max Bialystock" wrote in message
...
Thanks for that Tim, it's HTML.

Max


"Tim Williams" <timjwilliams at gmail dot com wrote in message
...
What kind of mail ? HTML or plain text ?

Here's some code for looping through the items in the inbox: might get
you started.

Tim

'*****************
Option Explicit


Sub CheckOutlookMsgs()

Const S_SUBJECT As String = "YourSubjectHere"
Dim olApp As Outlook.Application
Dim fInbox As MAPIFolder

Dim olInboxCollection As Object
Dim olInboxItem As Object
Dim iCount As Integer
Dim itemCount, n

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If olApp Is Nothing Then
MsgBox "Outlook is not running: please open the application first"
Err.Clear
Exit Sub
End If
On Error GoTo haveError

'Get the inbox folder
Set fInbox =
olApp.GetNamespace("MAPI").GetDefaultFolder(olFold erInbox)
Set olInboxCollection = fInbox.Items

itemCount = olInboxCollection.Count
iCount = 0
For n = itemCount To 1 Step -1
Set olInboxItem = olInboxCollection(n)
If StrComp(olInboxItem.Subject, S_SUBJECT) = 0 Then

iCount = iCount + 1
Application.StatusBar = "Processing # " & iCount

'here's where you get the info from the attachment....
MsgBox olInboxItem.Body

End If
Next n

haveError:
If Err < 0 Then MsgBox "Error:" & vbCrLf & Err.Description
Application.StatusBar = False

End Sub


'*****************


"Max Bialystock" wrote in message
...
Can I import into an excel spreadsheet a value from an outlook received
mail message?