请问如何用asp.net收发传真啊？怎么实现？

Question

下载一个InterFax的组件// Send fax
{
long lngReturnCode;InterFax.InterFax objIF = new InterFax.InterFax();lngReturnCode = objIF.SendCharFax("MyUserName","MyPassword","1-303-6868686","This is a sample fax from InterFAX Inc.","TXT"); 
Response.Write("Send Fax returned code is: " + lngReturnCode);
} 
// Get status
{
const string strLineBreak = "<BR>";
int iLastTransactionID;
int iMaxItems;
int iTotalCount=0;
int iListSize=0;
int iResultCode=0;
InterFax.FaxItem[] structFaxItems;iLastTransactionID = Convert.ToInt32(Request.Form["TID"]);
iMaxItems = Convert.ToInt32(Request.Form["MaxItems"]);InterFax.InterFax objIF = new InterFax.InterFax();
structFaxItems = 
objIF.FaxStatus(strUserName,strPassword,
iLastTransactionID,iMaxItems,ref iTotalCount,ref iListSize,ref iResultCode);//get status
if(iResultCode != 0) //error occured
Response.Write("ERROR Occured. Result code is:" + iResultCode);
else //print results 
for(int i =0 ; i < iListSize ; i++) 
{ 
Response.Write("=============================" + strLineBreak);
Response.Write("Fax item #" + i + strLineBreak);
Response.Write("TransactionID: " + structFaxItems[i].TransactionID + strLineBreak);
Response.Write("Fax number: " + structFaxItems[i].DestinationFax + strLineBreak);
Response.Write("SubmitTime: " + structFaxItems[i].SubmitTime + strLineBreak);
Response.Write("CompletionTime: " + structFaxItems[i].CompletionTime + strLineBreak);
Response.Write("PagesSent: " + structFaxItems[i].PagesSent + strLineBreak);
Response.Write("Status: " + structFaxItems[i].Status + strLineBreak);
}
}

Answer 1

请问这个组件会不会过期啊？你有吗？能传给我吗？[email protected]谢谢

Answer 2

我去年做过。不过csdn里的帖子大概都没有了我找找代码

Answer 3

找到一段很乱的测试时期的代码，抱歉。其他的我不能说了（公司规定）。
用到 FAXCOMLib.dll组件。 Public objFaxSev As New FAXCOMLib.FaxServer()    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objFaxDoc As FAXCOMLib.FaxDoc
        objFaxSev.Connect("google")                ''主机名 
        Dim strFile As String = "d:\test.doc"               ''fax.txt"
        objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)                
        objFaxDoc.FaxNumber = "9,61246606"  '' "505"          '' "9,87597252"
        
        objFaxDoc.SenderName = "tom"                  '''' 是否有封面()
        objFaxDoc.SendCoverpage = 1           '' 0,1。是否需要封面
        objFaxDoc.ServerCoverpage = 1          ''0，1，是否使用自定义封面
        objFaxDoc.CoverpageName = "一般1.cov"        '’strFile1
        ''-------------------------------------
        objFaxDoc.RecipientName = "张三"   '’"张三"
        objFaxDoc.SenderAddress = "广州太平洋电脑市场9楼"           objFaxDoc.SenderCompany = "广州红帆电脑公司"              objFaxDoc.SenderDepartment = "技术部"         '’ "技术部"
        objFaxDoc.SenderFax = "87588875,517"               objFaxDoc.SenderHomePhone = "020-87654321"   
        objFaxDoc.SenderOffice = "太平洋2-905"           objFaxDoc.SenderOfficePhone = "020-87654321"  
        objFaxDoc.SenderTitle = "程序员"        
        objFaxDoc.CoverpageNote = "请各位到会，讨论相关事宜 abcdefghijklmnopqrstuvwxyz"   
        objFaxDoc.CoverpageSubject = "iOffice传真管理测试通知"  '’"iOffice传真管理测试通知"
        Dim b As Long = objFaxDoc.Send()
    End Sub