vb可以发传真吗？

Question

利用vb可以发传真吗？就是将电脑上的文档，通过传真方式，发到对方传真机上，可以吗？急

Answer 1

可以!我有两个源代码!但我自己没实现,因为没条件!要的话发邮件到[email protected]
我会给你回复!

Answer 2

如果你的WIndows安装了Microsoft传真软件，你可以使用MAPI来发送传真。不过在VB中调用MAPI发传真并不轻松，因为发送前数据的转换和收到数据的处理都比较麻烦。如果你的要求不高，其实通过Automation调用Outlook或Office 97的传真功能比较简单。当然采用第三方控件也是不错的选择，比如：FAX Plus(http://www.elltechdev.com)、FAXMan(http://www.data-tech.com)。     在windows 2000下就简单了！ 可以用FAXCOM组件（win 2k自带的） 
    在vb的project / refernes 中选种 faxcom 1.0 typelibrary ，至于他的用法，可以参见MSDN和P SDK,用faxcom作为关键字，搜索！ 

Answer 3

303647 - HOWTO: Send a Fax from an ASP Page on Windows 2000http://search.microsoft.com/gomsuri.asp?n=1&c=rp_Results&siteid=us&target=http://support.microsoft.com/default.aspx?scid=kb%3ben-us%3b303647

Answer 4

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
public sub sendFax()
Dim objFaxSev As New FAXCOMLib.FaxServer
Dim objFaxDoc As FAXCOMLib.FaxDoc 
Dim strFile As String
Dim b As Long 
objFaxSev.Connect(ComputerName)  '出错
strfile = "E:\fax.doc"                      
objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)  '出错
objFaxDoc.FaxNumber = "02084083475" 
b = objFaxDoc.Send() 
end sub
Private Property Get ComputerName() As String
    Dim dwlen As Long
    Dim strString As String
    dwlen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwlen, " ")
    GetComputerName strString, dwlen
    strString = Left(strString, dwlen)
End Property