Like your referenced thread indicated, you really need to use a third-party tool for this. We use RightFax; their API allows me to do exactly what you are asking with very little effort.
To send a fax:
Private Sub SendViaComApi()
Try
Dim faxserver As New RFCOMAPILib.FaxServer()
faxserver.ServerName = mConfig.ServerName
faxserver.Protocol = RFCOMAPILib.CommunicationProtocolType.cpNamedPipes
faxserver.AuthorizationUserID = mConfig.UserId
faxserver.AuthorizationUserPassword = mConfig.UserPassword
faxserver.UseNTAuthentication = RFCOMAPILib.BoolType.[False]
faxserver.OpenServer()
Dim fax As RFCOMAPILib.Fax = DirectCast(faxserver.CreateObject(RFCOMAPILib.CreateObjectType.coFax), RFCOMAPILib.Fax)
fax.ToCompany = ToCompanyName
fax.ToName = ToFaxNumber
fax.ToFaxNumber = ToFaxNumber
fax.FromName = mConfig.FromName
For Each attachment As String In AttachmentFileNames
fax.Attachments.Add(attachment)
Next
fax.UserComments = Comment
fax.Send()
Catch ex As Exception
ErrorHas = True
ErrorMessage = ex.Message
If (Not IgnoreErrors) Then Throw
End Try
End Sub
ASP.NET page that shows a transmission log: