# 与word配合传送FAX

Posted by cww on February 05, 1998 at 00:54:04:

我有一个想法，使用vb来传送fax 资料，于是想到用word 中SendFax 的方法
来送，结果也大致可行，程式如下：但有一个问题，fax成功与否程式无法得知
，全都只是显示在萤幕上，sendfax又没有传回值，那该使用什么方式使程式
可以判断传送的结果，而决定下一步的动作呢?谢谢

Private wrd As Object

Private Sub Command1_Click()
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open "C:\tmp2\haha.doc"
Documents("c:\tmp2\haha.doc").Activate
ActiveDocument.SendFax "2353742", "test for fax"
Set wrd = Nothing
End Sub

Follow Ups:

- 没有办法 小吴 02:53:57 2/06/98 (0)