社区
控件
帖子详情
如何用vb发传真,问题解决必送分!!!
jxnetinfo
2003-09-29 08:41:56
如何用vb发传真,问题解决必送分!!!
...全文
29
6
打赏
收藏
如何用vb发传真,问题解决必送分!!!
如何用vb发传真,问题解决必送分!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kmzs
2003-10-21
打赏
举报
回复
直接使用,不用引用吧?
imur
2003-10-21
打赏
举报
回复
学习
lihonggen0
2003-10-12
打赏
举报
回复
用windows 2000自带的Faxcom
lihonggen0
2003-10-12
打赏
举报
回复
Attribute VB_Name = "MdlFax"
Option Explicit
Private FS As New FAXCOMLib.FaxServer
Private FD As New FAXCOMLib.FaxDoc
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
' ·¢?í′???·?·¨£?′?è?ò???·¢?í???t?·??£??1óD??±êo???
' Dim tmpFaxFile As String
' tmpFaxFile = App.Path & "\LastFax.doc"
' m_CrReport.ExportOptions.FormatType = crEFTExactRichText
' m_CrReport.ExportOptions.DestinationType = crEDTDiskFile
' m_CrReport.ExportOptions.DiskFileName = tmpFaxFile
' m_CrReport.DisplayProgressDialog = False
' m_CrReport.Export False
' frmFax01.SendDoc = tmpFaxFile
' frmFax01.ShowForm
Public Function SendFax(SendDocPath As String, SendNumber As String) As String
On Error GoTo Err_Conn
FS.Connect (ComputerName) ' My Computer's name
On Error GoTo Err_Catch
Set FD = FS.CreateDocument(SendDocPath)
FD.FileName = SendDocPath
FD.FaxNumber = SendNumber ' Fax number
FD.DisplayName = SendNumber
FD.DiscountSend = 0
FD.SendCoverpage = 0
FD.Send
Err_Catch:
GoTo ExitFunc
Err_Conn:
GoTo ExitFunc
ExitFunc:
If Err.Description <> "" Then
SendFax = Err.Description
Else
SendFax = "0"
End If
On Error Resume Next
FS.Disconnect
End Function
Public Function Init() As String
' 3?ê?
On Error GoTo Err_Catch
FS.Connect (ComputerName) ' My Computer's name
Init = "0"
GoTo ExitFunc
Err_Catch:
Init = "3?ê?′????ú꧰ü,??è·?¨ê?·?×°óD′????ú"
Debug.Print Err.Description
ExitFunc:
End Function
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
rainstormmaster
2003-10-12
打赏
举报
回复
http://www.china-askpro.com/msg7/qa97.shtml
xiaohuangtao
2003-10-12
打赏
举报
回复
超OUTLOOK软件(正式版SmartMail1.0免费提供源码(最新版))
运行演示图:http://bbs.2ccc.com/uploads/huangtao/运行效果图.jpg
下载地址:http://bbs.2ccc.com/uploads/huangtao/smartmail1.0.rar
源码 放送
WINDOWS 图片和传真查看器
动态链接库(DLL)的好处之一就是减少系统资源产用,不必为它再创建一个单独程序,而是插入其他程序以运行一些功能。
解决
办法: 开始----运行---输入regsvr32 shimgvw.dll 确定; 如果没有此文件,可以到别的电脑...
VB
+ACCESS电话语音应答系统设计(源代码+系统).zip
这种应用的好处是不言而喻的,许多单位都想使用CTI系统来
解决
他们企业内部一些无法
解决
的一些
问题
。 大丰城市规划局也不例外。大丰城市规划局最近使用了城市规划及土地管理业务系统,与以前手工作业比,电脑信息化给...
tif虚拟打印机安装程序
【
问题
的
解决
】 使用tif虚拟打印机 解压缩后的文件里包含有Ms
vb
vm50.dll文件,把它复制到系统的system32文件下,并在运行栏里输入regsvr32 Ms
vb
vm50.dll对dll文件进行系统注册,那么这个虚拟打印机才可以顺利安装...
电脑助理(原系统万能工具箱) v8.5 正式版.zip
这是笑人用
VB
编译的软件,欢迎
VB
爱好者和笑人相互交流,可提供源码互换,相互学习,共同进步。大家对笑人软件有什么建议指教可以通过QQ和笑人联系。 电脑助理(原系统万能工具箱) v8.23 更新内容: 1.主界面文字...
2009.6.19—30举办3S研讨会暨Google Earth与Google Map等仿真建模与共享及ARCGIS与遥感高级程序员培训班
七、报名联系方法:凡欲报名的单位或个人可提前确认(打电话/发E—mail/信函均可)。 联系人:徐老师或王老师 联系电话:(025)83418450;83410685; 传真:(025)83418450 会议培训报名与上机地址:南京市北京...
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章