VBA Excel RightFax

Question

В настоящее время у меня есть процесс в Excel, когда пользователь нажимает определенную команду, а затем берет данные из Excel и создает почтовое слияние в Word. Затем я хочу получить файл (ы) через RightFax, но у меня возникают проблемы с Set oNewFax, когда при переходе через него я получаю ошибку во время выполнения '-2147023174 (800706ba)':. Любая помощь очень ценится!

    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

Answer 1

Мой рабочий код создает объект факса, как показано ниже...

Set oNewFax = oFaxServer.CreateObject(coFax)