fax

[sam]

how can i retrive the sender number and sender name from a fax file proerties?
the file is a tif file created by the windows fax consule.

thanks

 

[dymondjack]

Try this out... I don't know if it will work for what you are trying to do,
but it will return a list a properties for a particular file. It is based on
finding properties of a jpg file, but I've played around with it a bit and
returned properties from other types as well.

Credit for this goes to Michael Pierron
Orginal thread:
http://www.pcreview.co.uk/forums/thread-1862574.php




Public Function FileInfo$(sFile$)
Dim i%, T$
With CreateObject("Shell.Application").NameSpace(Left$(sFile,
lPosition(sFile, "\") - 1))
For i = 0 To 40
T = .GetDetailsOf(.ParseName(Dir$(sFile)), i)
If Len(T) Then
If i Then FileInfo = FileInfo & vbLf
FileInfo = FileInfo & .GetDetailsOf(.Items, i) & ": " & T
End If
Next i
End With
End Function

Private Function lPosition%(Chain$, Char$)
Dim iPos%
Do
iPos = InStr(lPosition + 1, Chain, Char, 1)
If iPos Then lPosition = iPos Else Exit Do
Loop
End Function



For i = 0 To 40
Change this number to return a different number of properties. In my
experience (as little as it is), it just repeats properties if you enter a
higher number than what the file has.


--
Jack Leach
www.tristatemachine.com

- "A designer knows he has reached perfection not when there is nothing left
to add, but when there is nothing left to take away." - Antoine De Saint
Exupery

 

[sam]

what i'm trying to do is a fax server. so i need to return the sender phone
number.
this item is located in the summary properties .
your code return's all other properties but not the sender phone number (csid)