Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc

FS.Connect ("Magnus") 'Mitt datornamn
Set FD = FS.CreateDocument("d:\test.txt")
FD.FileName = "d:\test.txt"
FD.FaxNumber = "016xxxxxx" 'Faxnr
FD.DisplayName = "Tel-xxxxxx"
FD.DiscountSend = 0
FD.SendCoverpage = 0

FD.Send
FS.Disconnect
Set FD = Nothing
Set FS = Nothing