VBA excel rightfax

Question

Currently I have a process in Excel that a user clicks a specific command and then takes the data from Excel and creates a mailmerge in Word. I then want it to the file(s) via RightFax, but I am having trouble at the Set oNewFax, when stepping through I get a run-time error '-2147023174 (800706ba)':. Any help is greatly appreciated!

    Sub RightFax()

Dim oFaxServer As RFCOMAPILib.faxserver
Dim oNewFax As RFCOMAPILib.fax
Set oFaxServer = New RFCOMAPILib.faxserver
oFaxServer.ServerName = "RightFax Fax Printer"
oFaxServer.UseNTAuthentication = True
Set oNewFax = oFaxServer.User.Faxes.Create

oNewFax.ToFaxNumber = "##########"
oNewFax.ToName = "Testing"
oNewFax.EmailSubject = ""
oNewFax.Attachments.Add ("######")
oNewFax.HasCoversheet = False 'Change to true if you want a coversheet 
generated
oNewFax.Send
Set oFaxServer = Nothing
Set oNewFax = Nothing

End Sub

It might help if you shared the reference you were using in Excel to use the Right Fax objects. — Karlomanio, Oct 26 '18 at 15:39
Sorry if this is a stupid response (new to VBA) but by reference are you referring to the RFCOMAPILib (RightFax COM API Type Library) — EvilMorty, Oct 26 '18 at 17:40

score 0 · Accepted Answer · answered Nov 05 '18 at 21:30

0

My working code creates the fax object like below...

Set oNewFax = oFaxServer.CreateObject(coFax)

answered Nov 05 '18 at 21:30

Jason

16

VBA excel rightfax

1 Answers1