I have somethiing like this but it says I need a fax service. Is there a way to go about this without using a fax service?

[VBA]Sub Fax()

ActiveWorkbook.SendFaxOverInternet _
"Thomas Giles @ 17132382051", _
"Please process the enclosed trade ticket. Thanks, Katherine Lartigue ", True

End Sub
[/VBA]