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

gweidian 2003-07-31 01:59:24

高手请指教，有代码就爽了，呵呵。。。。

...全文

123 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

gweidian 2003-08-01

打赏
举报

谢谢你。。。其实我也正找到了这个组件

gweidian 2003-07-31

打赏
举报

请问这个组件会不会过期啊？你有吗？能传给我吗？dian80@163.net谢谢

snby 2003-07-31

打赏
举报

学习

river168 2003-07-31

打赏
举报

学习......

cyp503 2003-07-31

打赏
举报

下载一个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);
}
}

a1ds 2003-07-31

打赏
举报

强烈关注！

sunxiaoli 2003-07-31

打赏
举报

关注

付长松_华为云MVP 2003-07-31

打赏
举报

帮你顶!

jaffler 2003-07-31

打赏
举报

找到一段很乱的测试时期的代码，抱歉。其他的我不能说了（公司规定）。
用到 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

jaffler 2003-07-31