I am sure this has been done but help any way I have this

Set OutProg = CreateObject("outlook.application") 'open out look
Set OutM = OutProg.CreateItem(olMailItem) ' create a mail
With OutM 'send the fax
.subject = "I am trying"
.To = "@blah Blah"
.body = "This is the latest information on these most due
patients"
.Importance = Outlook.OlImportance.olImportanceNormal
.Display
.Send
End With
This works fine
Can I write the same thing for faxing instead instead of the outlook email

I have vista Ultimate with a LAN-Fax which works.

Thanks in advance and if there is a better way to fix it so it works even
better will be appreciated