VBA excel rightfax答案

【问题标题】：VBA excel rightfaxVBA excel rightfax
【发布时间】：2018-10-26 15:31:07
【问题描述】：

目前我在 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

【问题讨论】：

如果您共享您在 Excel 中使用的引用以使用正确的传真对象，这可能会有所帮助。
对不起，如果这是一个愚蠢的响应（VBA 的新手），但您指的是 RFCOMAPILib（RightFax COM API 类型库）
好的，谢谢。我看看能不能解决问题
碰巧有什么好运气？

标签： excel vba rightfax docx-mailmerge

【解决方案1】：

我的工作代码创建如下传真对象...

Set oNewFax = oFaxServer.CreateObject(coFax)

【讨论】：