Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Personne n'a d'idee sur le fax en .net

Personne n'a d'idee sur le fax en .net

25 réponses
Avatar
Etudiant
Bonjour,
desole de reposer ma question mais je trouve vraiment aucune piste sur
comment faire pour envoyer un fax avec bn.Net.
merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
alan
Ceci fonctionne à la perfection :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Vérification de l'installation du service de fax
Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
If Not xFax.IsFaxServiceInstalled Then Return 'Service non installé
: fin
If Not xFax.IsLocalFaxPrinterInstalled Then Return 'Imprimante fax
non installée : fin
'Fin de la Vérification
Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.IFaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = objFaxServer.CreateDocument("C:TEST.DOC")
Catch ex As Exception
MsgBox(ex.ToString)
Return 'Erreur à la création : fin
End Try
Dim JobID As Integer
Try

'Connect to the fax server...
objFaxServer.Connect("RWSERVER") 'Nom du serveur par lequel
envoyé le fax
'Définition informations destinataire
objFaxDocument.FaxNumber = "0123456789"
objFaxDocument.RecipientName = "Mon essai"
'Définition des notes
objFaxDocument.CoverpageNote = "test envoi de fax automatique"
'Définition informations appellant
objFaxDocument.SenderTitle = "Mr."
objFaxDocument.SenderName = "Bozo le Clown :-)"
objFaxDocument.Tsid = "Office fax machine 987654321"
'Envoi du fax
JobID = objFaxDocument.Send '

MsgBox("N° du travail :" & JobID)
Catch exc As Exception
MsgBox("Exception levée, message : " & exc.Message & vbCrLf &
"Source de l'exception : " & exc.Source)
End Try
End Sub

Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

MERCI BEAUCOUP A FRED

"Fred" a écrit :

Bonjour,
Effectivement avec CreateDocument je n'ai pas l'erreur.
Ceci dit je pense qu'il manque des choses dans ton programme.
Regarde ici (si tu n'avais pas déjà trouvé)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxinta_n_0f77.asp
Je ne me souviens plus des détails, j'avais utilisé cela en vba il y a assez
longtemps.
Mais je crois qu'il faut se connecter au serveur avant tout uatre chose.
Enfin ,bonne lecture et bon courage.



"alan" a écrit dans le message de news:

> En fait, voila ou ca pêche :
>
> Dim xFax As New FAXCONTROLLib.FaxControl
> If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
> If Not xFax.IsLocalFaxPrinterInstalled Then
> xFax.InstallLocalFaxPrinter()
> Dim objFaxServer As FAXCOMLib.FaxServer
> Dim objFaxDocument As FAXCOMLib.FaxDoc
> Try
> objFaxServer = New FAXCOMLib.FaxServer
> objFaxDocument = New FAXCOMLib.FaxDoc '<-- C est ici que se
> déclenche l'exception
> Catch ex As Exception
> MsgBox(ex.ToString)
> Return
> End Try
>
>
> "Fred" a écrit :
>
>>
>> "alan" a écrit dans le message de news:
>>
>> > Voila ce que l'on obtient : L'objet COM avec le CLSID
>> > {FA21F4C6-5C4C-11D1-83CF-00C04FB6E984} n'est pas valide ou n'est pas
>> > inscrit.
>>
>> Bonsoir,
>> On obtient cela en faisant quoi ? (J'ai tout désinstallé chez moi, je
>> n'ai
>> pas de modem RTC)
>>
>> PS : Je suggérai un essai, je n'ai pas testé avec .NET. Il est possible
>> que
>> cela ne fonctionne pas mais je ne vois pas de raison claire contre cela.
>>
>> re PS : Sinon, il y a aussi des services web qui proposent d'envoyer des
>> fax. Au cas où.
>>
>>
>>





Avatar
Etudiant
alan a écrit :
Ceci fonctionne à la perfection :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Vérification de l'installation du service de fax
Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
If Not xFax.IsFaxServiceInstalled Then Return 'Service non installé
: fin
If Not xFax.IsLocalFaxPrinterInstalled Then Return 'Imprimante fax
non installée : fin
'Fin de la Vérification
Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.IFaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = objFaxServer.CreateDocument("C:TEST.DOC")
Catch ex As Exception
MsgBox(ex.ToString)
Return 'Erreur à la création : fin
End Try
Dim JobID As Integer
Try

'Connect to the fax server...
objFaxServer.Connect("RWSERVER") 'Nom du serveur par lequel
envoyé le fax
'Définition informations destinataire
objFaxDocument.FaxNumber = "0123456789"
objFaxDocument.RecipientName = "Mon essai"
'Définition des notes
objFaxDocument.CoverpageNote = "test envoi de fax automatique"
'Définition informations appellant
objFaxDocument.SenderTitle = "Mr."
objFaxDocument.SenderName = "Bozo le Clown :-)"
objFaxDocument.Tsid = "Office fax machine 987654321"
'Envoi du fax
JobID = objFaxDocument.Send '

MsgBox("N° du travail :" & JobID)
Catch exc As Exception
MsgBox("Exception levée, message : " & exc.Message & vbCrLf &
"Source de l'exception : " & exc.Source)
End Try
End Sub

Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

MERCI BEAUCOUP A FRED

"Fred" a écrit :


Bonjour,
Effectivement avec CreateDocument je n'ai pas l'erreur.
Ceci dit je pense qu'il manque des choses dans ton programme.
Regarde ici (si tu n'avais pas déjà trouvé)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxinta_n_0f77.asp
Je ne me souviens plus des détails, j'avais utilisé cela en vba il y a assez
longtemps.
Mais je crois qu'il faut se connecter au serveur avant tout uatre chose.
Enfin ,bonne lecture et bon courage.



"alan" a écrit dans le message de news:


En fait, voila ou ca pêche :

Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.FaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = New FAXCOMLib.FaxDoc '<-- C est ici que se
déclenche l'exception
Catch ex As Exception
MsgBox(ex.ToString)
Return
End Try


"Fred" a écrit :


"alan" a écrit dans le message de news:


Voila ce que l'on obtient : L'objet COM avec le CLSID
{FA21F4C6-5C4C-11D1-83CF-00C04FB6E984} n'est pas valide ou n'est pas
inscrit.



Bonsoir,
On obtient cela en faisant quoi ? (J'ai tout désinstallé chez moi, je
n'ai
pas de modem RTC)

PS : Je suggérai un essai, je n'ai pas testé avec .NET. Il est possible
que
cela ne fonctionne pas mais je ne vois pas de raison claire contre cela.

re PS : Sinon, il y a aussi des services web qui proposent d'envoyer des
fax. Au cas où.














bonjour,
est que ce code marcherai si je ne passe pas par un serveur de fax?
Avatar
Fred
Bonsoir,
Le nom de l'objet FaxServer ne sous-entend pas l'utilisation d'un serveur
(de mémoire)
Si le programme est exécuté sur une machine normale, il faut se connecter à
la machine locale et ceci sans spécifier de paramètre dans la méthode
Connect (ou en passant un pointeur null, voir la msdn pour les détails)




"Etudiant" a écrit dans le message de news:
eZkrms$
alan a écrit :
Ceci fonctionne à la perfection :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Vérification de l'installation du service de fax
Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
If Not xFax.IsFaxServiceInstalled Then Return 'Service non
installé : fin
If Not xFax.IsLocalFaxPrinterInstalled Then Return 'Imprimante
fax non installée : fin
'Fin de la Vérification Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.IFaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = objFaxServer.CreateDocument("C:TEST.DOC")
Catch ex As Exception
MsgBox(ex.ToString)
Return 'Erreur à la création : fin
End Try
Dim JobID As Integer
Try

'Connect to the fax server...
objFaxServer.Connect("RWSERVER") 'Nom du serveur par lequel envoyé le fax
'Définition informations destinataire
objFaxDocument.FaxNumber = "0123456789"
objFaxDocument.RecipientName = "Mon essai"
'Définition des notes
objFaxDocument.CoverpageNote = "test envoi de fax
automatique"
'Définition informations appellant
objFaxDocument.SenderTitle = "Mr."
objFaxDocument.SenderName = "Bozo le Clown :-)"
objFaxDocument.Tsid = "Office fax machine 987654321"
'Envoi du fax
JobID = objFaxDocument.Send '

MsgBox("N° du travail :" & JobID)
Catch exc As Exception
MsgBox("Exception levée, message : " & exc.Message & vbCrLf &
"Source de l'exception : " & exc.Source)
End Try
End Sub

Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

MERCI BEAUCOUP A FRED

"Fred" a écrit :


Bonjour,
Effectivement avec CreateDocument je n'ai pas l'erreur.
Ceci dit je pense qu'il manque des choses dans ton programme.
Regarde ici (si tu n'avais pas déjà trouvé)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxinta_n_0f77.asp
Je ne me souviens plus des détails, j'avais utilisé cela en vba il y a
assez longtemps.
Mais je crois qu'il faut se connecter au serveur avant tout uatre chose.
Enfin ,bonne lecture et bon courage.



"alan" a écrit dans le message de news:


En fait, voila ou ca pêche :

Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.FaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = New FAXCOMLib.FaxDoc '<-- C est ici que se
déclenche l'exception
Catch ex As Exception
MsgBox(ex.ToString)
Return
End Try


"Fred" a écrit :


"alan" a écrit dans le message de
news:


Voila ce que l'on obtient : L'objet COM avec le CLSID
{FA21F4C6-5C4C-11D1-83CF-00C04FB6E984} n'est pas valide ou n'est pas
inscrit.



Bonsoir,
On obtient cela en faisant quoi ? (J'ai tout désinstallé chez moi, je
n'ai
pas de modem RTC)

PS : Je suggérai un essai, je n'ai pas testé avec .NET. Il est possible
que
cela ne fonctionne pas mais je ne vois pas de raison claire contre
cela.

re PS : Sinon, il y a aussi des services web qui proposent d'envoyer
des
fax. Au cas où.














bonjour,
est que ce code marcherai si je ne passe pas par un serveur de fax?


Avatar
Fred
Bonsoir,
Merci pour le retour d'informations.
Je pense que ton code pourra être utile à d'autres.


"alan" a écrit dans le message de news:

Ceci fonctionne à la perfection :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Vérification de l'installation du service de fax
Dim xFax As New FAXCONTROLLib.FaxControl
If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
If Not xFax.IsLocalFaxPrinterInstalled Then
xFax.InstallLocalFaxPrinter()
If Not xFax.IsFaxServiceInstalled Then Return 'Service non installé
: fin
If Not xFax.IsLocalFaxPrinterInstalled Then Return 'Imprimante fax
non installée : fin
'Fin de la Vérification
Dim objFaxServer As FAXCOMLib.FaxServer
Dim objFaxDocument As FAXCOMLib.IFaxDoc
Try
objFaxServer = New FAXCOMLib.FaxServer
objFaxDocument = objFaxServer.CreateDocument("C:TEST.DOC")
Catch ex As Exception
MsgBox(ex.ToString)
Return 'Erreur à la création : fin
End Try
Dim JobID As Integer
Try

'Connect to the fax server...
objFaxServer.Connect("RWSERVER") 'Nom du serveur par lequel
envoyé le fax
'Définition informations destinataire
objFaxDocument.FaxNumber = "0123456789"
objFaxDocument.RecipientName = "Mon essai"
'Définition des notes
objFaxDocument.CoverpageNote = "test envoi de fax automatique"
'Définition informations appellant
objFaxDocument.SenderTitle = "Mr."
objFaxDocument.SenderName = "Bozo le Clown :-)"
objFaxDocument.Tsid = "Office fax machine 987654321"
'Envoi du fax
JobID = objFaxDocument.Send '

MsgBox("N° du travail :" & JobID)
Catch exc As Exception
MsgBox("Exception levée, message : " & exc.Message & vbCrLf &
"Source de l'exception : " & exc.Source)
End Try
End Sub

Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

MERCI BEAUCOUP A FRED

"Fred" a écrit :

Bonjour,
Effectivement avec CreateDocument je n'ai pas l'erreur.
Ceci dit je pense qu'il manque des choses dans ton programme.
Regarde ici (si tu n'avais pas déjà trouvé)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxinta_n_0f77.asp
Je ne me souviens plus des détails, j'avais utilisé cela en vba il y a
assez
longtemps.
Mais je crois qu'il faut se connecter au serveur avant tout uatre chose.
Enfin ,bonne lecture et bon courage.



"alan" a écrit dans le message de news:

> En fait, voila ou ca pêche :
>
> Dim xFax As New FAXCONTROLLib.FaxControl
> If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
> If Not xFax.IsLocalFaxPrinterInstalled Then
> xFax.InstallLocalFaxPrinter()
> Dim objFaxServer As FAXCOMLib.FaxServer
> Dim objFaxDocument As FAXCOMLib.FaxDoc
> Try
> objFaxServer = New FAXCOMLib.FaxServer
> objFaxDocument = New FAXCOMLib.FaxDoc '<-- C est ici que se
> déclenche l'exception
> Catch ex As Exception
> MsgBox(ex.ToString)
> Return
> End Try
>
>
> "Fred" a écrit :
>
>>
>> "alan" a écrit dans le message de
>> news:
>>
>> > Voila ce que l'on obtient : L'objet COM avec le CLSID
>> > {FA21F4C6-5C4C-11D1-83CF-00C04FB6E984} n'est pas valide ou n'est pas
>> > inscrit.
>>
>> Bonsoir,
>> On obtient cela en faisant quoi ? (J'ai tout désinstallé chez moi, je
>> n'ai
>> pas de modem RTC)
>>
>> PS : Je suggérai un essai, je n'ai pas testé avec .NET. Il est
>> possible
>> que
>> cela ne fonctionne pas mais je ne vois pas de raison claire contre
>> cela.
>>
>> re PS : Sinon, il y a aussi des services web qui proposent d'envoyer
>> des
>> fax. Au cas où.
>>
>>
>>







Avatar
alan
Pour info : RWSERVER est en fait le nom de mon ordinateur (local), et pas le
nom du serveur de fax, car il s'agit en fait d'une seule et meme machine. De
plus, cela ne fonctionne pas sans paramètres, ou avec "Localhost". Il faut
mettre le nom de la machine.
"Fred" a écrit :

Bonsoir,
Le nom de l'objet FaxServer ne sous-entend pas l'utilisation d'un serveur
(de mémoire)
Si le programme est exécuté sur une machine normale, il faut se connecter à
la machine locale et ceci sans spécifier de paramètre dans la méthode
Connect (ou en passant un pointeur null, voir la msdn pour les détails)




"Etudiant" a écrit dans le message de news:
eZkrms$
> alan a écrit :
>> Ceci fonctionne à la perfection :
>>
>> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
>> System.EventArgs) Handles Button1.Click
>> 'Vérification de l'installation du service de fax
>> Dim xFax As New FAXCONTROLLib.FaxControl
>> If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
>> If Not xFax.IsLocalFaxPrinterInstalled Then
>> xFax.InstallLocalFaxPrinter()
>> If Not xFax.IsFaxServiceInstalled Then Return 'Service non
>> installé : fin
>> If Not xFax.IsLocalFaxPrinterInstalled Then Return 'Imprimante
>> fax non installée : fin
>> 'Fin de la Vérification Dim objFaxServer As FAXCOMLib.FaxServer
>> Dim objFaxDocument As FAXCOMLib.IFaxDoc
>> Try
>> objFaxServer = New FAXCOMLib.FaxServer
>> objFaxDocument = objFaxServer.CreateDocument("C:TEST.DOC")
>> Catch ex As Exception
>> MsgBox(ex.ToString)
>> Return 'Erreur à la création : fin
>> End Try
>> Dim JobID As Integer
>> Try
>>
>> 'Connect to the fax server...
>> objFaxServer.Connect("RWSERVER") 'Nom du serveur par lequel envoyé le fax
>> 'Définition informations destinataire
>> objFaxDocument.FaxNumber = "0123456789"
>> objFaxDocument.RecipientName = "Mon essai"
>> 'Définition des notes
>> objFaxDocument.CoverpageNote = "test envoi de fax
>> automatique"
>> 'Définition informations appellant
>> objFaxDocument.SenderTitle = "Mr."
>> objFaxDocument.SenderName = "Bozo le Clown :-)"
>> objFaxDocument.Tsid = "Office fax machine 987654321"
>> 'Envoi du fax
>> JobID = objFaxDocument.Send '
>>
>> MsgBox("N° du travail :" & JobID)
>> Catch exc As Exception
>> MsgBox("Exception levée, message : " & exc.Message & vbCrLf &
>> "Source de l'exception : " & exc.Source)
>> End Try
>> End Sub
>>
>> Ne pas oublier d'ajouter dans les références COM :
>> FAXCOMLib
>> FAXCONTROLLib
>>
>> MERCI BEAUCOUP A FRED
>>
>> "Fred" a écrit :
>>
>>
>>>Bonjour,
>>>Effectivement avec CreateDocument je n'ai pas l'erreur.
>>>Ceci dit je pense qu'il manque des choses dans ton programme.
>>>Regarde ici (si tu n'avais pas déjà trouvé)
>>>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxinta_n_0f77.asp
>>>Je ne me souviens plus des détails, j'avais utilisé cela en vba il y a
>>>assez longtemps.
>>>Mais je crois qu'il faut se connecter au serveur avant tout uatre chose.
>>>Enfin ,bonne lecture et bon courage.
>>>
>>>
>>>
>>>"alan" a écrit dans le message de news:
>>>
>>>
>>>>En fait, voila ou ca pêche :
>>>>
>>>> Dim xFax As New FAXCONTROLLib.FaxControl
>>>> If Not xFax.IsFaxServiceInstalled Then xFax.InstallFaxService()
>>>> If Not xFax.IsLocalFaxPrinterInstalled Then
>>>>xFax.InstallLocalFaxPrinter()
>>>> Dim objFaxServer As FAXCOMLib.FaxServer
>>>> Dim objFaxDocument As FAXCOMLib.FaxDoc
>>>> Try
>>>> objFaxServer = New FAXCOMLib.FaxServer
>>>> objFaxDocument = New FAXCOMLib.FaxDoc '<-- C est ici que se
>>>>déclenche l'exception
>>>> Catch ex As Exception
>>>> MsgBox(ex.ToString)
>>>> Return
>>>> End Try
>>>>
>>>>
>>>>"Fred" a écrit :
>>>>
>>>>
>>>>>"alan" a écrit dans le message de
>>>>>news:
>>>>>
>>>>>
>>>>>>Voila ce que l'on obtient : L'objet COM avec le CLSID
>>>>>>{FA21F4C6-5C4C-11D1-83CF-00C04FB6E984} n'est pas valide ou n'est pas
>>>>>>inscrit.
>>>>>
>>>>>Bonsoir,
>>>>>On obtient cela en faisant quoi ? (J'ai tout désinstallé chez moi, je
>>>>>n'ai
>>>>>pas de modem RTC)
>>>>>
>>>>>PS : Je suggérai un essai, je n'ai pas testé avec .NET. Il est possible
>>>>>que
>>>>>cela ne fonctionne pas mais je ne vois pas de raison claire contre
>>>>>cela.
>>>>>
>>>>>re PS : Sinon, il y a aussi des services web qui proposent d'envoyer
>>>>>des
>>>>>fax. Au cas où.
>>>>>
>>>>>
>>>>>
>>>
>>>
>>>
> bonjour,
> est que ce code marcherai si je ne passe pas par un serveur de fax?





Avatar
Etudiant
merci beaucoup pour votre code
Avatar
Etudiant
tu as mis
Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

ou est ce que je trouve ces DLL?
Avatar
Etudiant
Etudiant a écrit :
tu as mis
Ne pas oublier d'ajouter dans les références COM :
FAXCOMLib
FAXCONTROLLib

ou est ce que je trouve ces DLL?


j'ai trouve FAXCONTROLLib en cherchant dans references com mais l'autre
je trouve pas. Auriez vous une idee?
merci
Avatar
alan
dans c:windowssystem32fxscom.dll
Si tu ne l'as pas, c'est que ton service de fax n'est pas installé

"Etudiant" a écrit :

Etudiant a écrit :
> tu as mis
> Ne pas oublier d'ajouter dans les références COM :
> FAXCOMLib
> FAXCONTROLLib
>
> ou est ce que je trouve ces DLL?
j'ai trouve FAXCONTROLLib en cherchant dans references com mais l'autre
je trouve pas. Auriez vous une idee?
merci



Avatar
Etudiant
je ne l'ai pas comment dois je faire pour l'installer?
1 2 3