社区
控件
帖子详情
如何用vb发传真,问题解决必送分!!!
jxnetinfo
2003-09-29 08:41:56
如何用vb发传真,问题解决必送分!!!
...全文
35
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
)
计算机二级(
VB
)教程,全面、系统、细致地介绍了计算机二级(
VB
)的相关知识点。课程能够帮助学习者快速入门。该课程面向对象:备考计算机二级(
VB
)的课程备课期末考试自学
VB
程序设计课程注意提高学习者实战技巧,授课过程中以实际操作演示为主,帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线,详细介绍了
VB
的相关知识点。
VB
+ACCESS电话语音应答系统设计(源代码+系统).zip
这种应用的好处是不言而喻的,许多单位都想使用CTI系统来
解决
他们企业内部一些无法
解决
的一些
问题
。 大丰城市规划局也不例外。大丰城市规划局最近使用了城市规划及土地管理业务系统,与以前手工作业比,电脑信息化给...
tif虚拟打印机安装程序
【
问题
的
解决
】 使用tif虚拟打印机 解压缩后的文件里包含有Ms
vb
vm50.dll文件,把它复制到系统的system32文件下,并在运行栏里输入regsvr32 Ms
vb
vm50.dll对dll文件进行系统注册,那么这个虚拟打印机才可以顺利安装...
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章