VBA Excel RightFax - PullRequest
Новая
       38

VBA Excel RightFax

0 голосов
/ 26 октября 2018

В настоящее время у меня есть процесс в 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

1 Ответ

0 голосов
/ 06 ноября 2018

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

Set oNewFax = oFaxServer.CreateObject(coFax)
...