社区
控件
帖子详情
如何用vb发传真,问题解决必送分!!!
jxnetinfo
2003-09-29 08:41:56
如何用vb发传真,问题解决必送分!!!
...全文
31
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 图片和传真查看器
这个不是以程序的方式存在,而是动态链接库的形式存在于explorer.exe程序中。 名称是C:\windows\system32\shimgvw.dll。 shimgvw.dll做为一个线程插入到EXPLORER.EXE主程序中。 动态链接库(DLL)的好处之一就是减少系统资源产用,不必为它再创建一个单独程序,而是插入其他程序以运行一些功能。
解决
办法: 开始----运行---输入regsvr32 shimgvw.dll 确定; 如果没有此文件,可以到别的电脑拷一份放在你的电脑如下路径: C:\windows\system32\shimgvw.dll 然后再像上面那样操作!
计算机二级(
VB
)
计算机二级(
VB
)教程,全面、系统、细致地介绍了计算机二级(
VB
)的相关知识点。 课程能够帮助学习者快速入门。 该课程面向对象: 备考计算机二级(
VB
)的课程 备课期末考试 自学
VB
程序设计 课程注意提高学习者实战...
VB
+ACCESS电话语音应答系统设计(源代码+系统).zip
摘要 作为目前CTI行业是一个热门的方向,所谓CTI就是计算机电话集成,像我们的114查询台、168台、电话银行、防伪查询等等,都属于CTI应用。这种应用的好处是不言而喻的,许多单位都想使用CTI系统来
解决
他们企业内部一些无法
解决
的一些
问题
。 大丰城市规划局也不例外。大丰城市规划局最近使用了城市规划及土地管理业务系统,与以前手工作业比,电脑信息化给他们带来了很大的便利,工作的方式有着明显的改变,工作效率大大的提高了。但是仍存在了一些不足,系统不能够支持手机用户发送短消息功能,同时也不支持远程电话语音应答功能。需要实现一个像168查询台类似的系统,要能具有语音应答、来电显示、电话录音与放音、收
发传真
、转人工服务等功能,同时具备向手机用户发送短消息功能。如果没有这些功能的话,城市规划局的用户及建设单位不能及时了解到他们想要的信息。 首先要说明的是,CTI系统是一个热门的方向,像168,114等这些地方都是用专业的电话语音设备-语音卡来完成的,其成本投入非常高,这也就是目前大多数企业无法得以实施的主要因素。于是我试想用语音猫来
解决
这个
问题
,经过我进行了大量的实验得出这样的结论,在电话语音要
tif虚拟打印机安装程序
【
问题
的提出】 有互联网,就有与互联网隔离的内部网。内部网环境什么都连接好,有打印机什么的,而互联网的一些收费信息站点又很绝对,信息不允许复制、网页不能另存为,只能每次收你费用后才展现信息给你,信息只能按它的要求打印,你不能有副本,怎么办?大型的pdf软件可以安装,打印的时候可以另存为pdf版本,可是pdf软件太大了,不适合简易快速安装在一些受限制的互联网环境中,office的虚拟打印机又生成一个不知道用什么查看器查看的陌生文件,有什么方式来让这些信息以图片的形式保存并得到转移呢? 【
问题
的
解决
】 使用tif虚拟打印机 解压缩后的文件里包含有Ms
vb
vm50.dll文件,把它复制到系统的system32文件下,并在运行栏里输入regsvr32 Ms
vb
vm50.dll对dll文件进行系统注册,那么这个虚拟打印机才可以顺利安装,因为普通的操作系统环境不可能去安装什么
VB
开发环境。 顺利安装完这个虚拟打印机后,在控制面板的打印和传真中可以找到名为Tagged Images Printer的虚拟打印机,可以把它设置为默认打印机,以后就可以直接保存成tif图片。
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章