OVH Cloud OVH Cloud

Utilisation du "faxcontrol 1.0 type library"

1 réponse
Avatar
TF
Bonsoir,
Je ne trouve personne encore qui a pu exploiter le server des fax de Windows
XP/2K ?
J'ai essayé un code trouvé :
NB : Il faut référencer la librarie : (faxcom 1.0 Type Library)
' *********************************
Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc

FS.Connect ("Magnus") 'Mitt datornamn
Set FD = FS.CreateDocument("d:\test.txt")
FD.FileName = "c:\dfci\dfci.txt"
FD.FaxNumber = "0388289615" 'Faxnr
FD.DisplayName = "Tel-xxxxxx"
FD.DiscountSend = 0
FD.SendCoverpage = 0

FD.Send <<<<<<<<<<<<<<<<<<<<<<<<<<<<<============= erreur générée là :
méthode send a écoué ???
FS.Disconnect
Set FD = Nothing
Set FS = Nothing
' ********************************
merci pour une aide

1 réponse

Avatar
Charles ERNST
sous XP, vous ne pouvez qu'utiliser le fax local :
FS.Connect ""
pour la suite voyez :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxusing_27co.asp



"TF" a écrit dans le message de news:
43456927$0$7339$
Bonsoir,
Je ne trouve personne encore qui a pu exploiter le server des fax de
Windows XP/2K ?
J'ai essayé un code trouvé :
NB : Il faut référencer la librarie : (faxcom 1.0 Type Library)
' *********************************
Dim FS As New FAXCOMLib.FaxServer
Dim FD As New FAXCOMLib.FaxDoc

FS.Connect ("Magnus") 'Mitt datornamn
Set FD = FS.CreateDocument("d:test.txt")
FD.FileName = "c:dfcidfci.txt"
FD.FaxNumber = "0388289615" 'Faxnr
FD.DisplayName = "Tel-xxxxxx"
FD.DiscountSend = 0
FD.SendCoverpage = 0

FD.Send <<<<<<<<<<<<<<<<<<<<<<<<<<<<<============= erreur générée là :
méthode send a écoué ???
FS.Disconnect
Set FD = Nothing
Set FS = Nothing
' ********************************
merci pour une aide