Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
bonjour
ceci peut il t"aider
http://www.excelabo.net/xl/sortir.php#feuillemail
"Peponne31" a écrit dans le message de
news:Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
bonjour
ceci peut il t"aider
http://www.excelabo.net/xl/sortir.php#feuillemail
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
bonjour
ceci peut il t"aider
http://www.excelabo.net/xl/sortir.php#feuillemail
"Peponne31" a écrit dans le message de
news:Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1E8448EE-AF22-4A2A-B197-31B8FCB20FD6@microsoft.com...
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1E8448EE-AF22-4A2A-B197-31B8FCB20FD6@microsoft.com...
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
B5A5AC07-1287-46DD-A5F9-F7F51C1B6E1D@microsoft.com...
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
1E8448EE-AF22-4A2A-B197-31B8FCB20FD6@microsoft.com...
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545", "Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message
de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?
Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news:
B5A5AC07-1287-46DD-A5F9-F7F51C1B6E1D@microsoft.com...
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de news:
1E8448EE-AF22-4A2A-B197-31B8FCB20FD6@microsoft.com...
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message
de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
salut
pour le numero de fax et le destinataire tu peux surement utiliser un
userform avec deux textbox,tu fait apparaitre ton userform juste avant et
les valeurs des textbox ou de variable( MonTel , MonDest ) declarée en
public
SendFax Environ("computerName"), "c:dTexte.txt", userform.textbox1.value,
userform.textbox2.value
SendFax Environ("computerName"), "c:dTexte.txt", MonTel, MonDest
bonne nuit
"Peponne31" a écrit dans le message de
news:Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message
de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
salut
pour le numero de fax et le destinataire tu peux surement utiliser un
userform avec deux textbox,tu fait apparaitre ton userform juste avant et
les valeurs des textbox ou de variable( MonTel , MonDest ) declarée en
public
SendFax Environ("computerName"), "c:dTexte.txt", userform.textbox1.value,
userform.textbox2.value
SendFax Environ("computerName"), "c:dTexte.txt", MonTel, MonDest
bonne nuit
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message de
news: 1E54E4BE-F81F-47A3-AA84-EB0BF8383E28@microsoft.com...
Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?
Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le message
de news:
B5A5AC07-1287-46DD-A5F9-F7F51C1B6E1D@microsoft.com...
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de news:
1E8448EE-AF22-4A2A-B197-31B8FCB20FD6@microsoft.com...
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31
Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" <Peponne31@discussions.microsoft.com> a écrit dans le
message de news:
209BEDEF-DED9-4486-8BB6-39EE92975D5D@microsoft.com...
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
salut
pour le numero de fax et le destinataire tu peux surement utiliser un
userform avec deux textbox,tu fait apparaitre ton userform juste avant et
les valeurs des textbox ou de variable( MonTel , MonDest ) declarée en
public
SendFax Environ("computerName"), "c:dTexte.txt", userform.textbox1.value,
userform.textbox2.value
SendFax Environ("computerName"), "c:dTexte.txt", MonTel, MonDest
bonne nuit
"Peponne31" a écrit dans le message de
news:Re michdenis ,
si j'ai bien compris le n° de téléphone est unique au bouton
et de ce fait impossible a faxer à un autre fournisseur.
ne serai-il pas + simple qu'il y ait-une cellule qui reçoive le N° tel. et
que le bouton y fasse appel ?Sous ton bouton de commande,
tu insères cette ligne de commande
SendFax Environ("computerName"), "c:dTexte.txt", "5554545", "Diane"
"c:dTexte.txt" = chemin et Fichier à faxer
"5554545" = Numéro de Téléphone pour l'envoi du fax
"Diane" = Nom de la destinataire
Et la fonction, tu la copies dans un module standard.
Salutations!
"Peponne31" a écrit dans le message
de news:
merci michdenis,
J'ai mis la bibliothèque à jour.
si ce n'est pas trop te demander, comment je fais la liaison
entre le module et le bouton "commandButton" de ma feuille devis ?
Merci encore.
Peponne31
| C'est pareil ?
NON.
La bibliothèque s'appelle "Library FAXCOMLib"
Nom de la référence à ajouter au classeur : "faxcom 1.0 Type Library"
Le fichier derrière cette bibliothèque est : "fxscom.dll"
Sous Windows Xp, il est localisé là :
"C:WINDOWSsystem32fxscom.dll"
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour michdenis
Je nai pas "Faxcom 1.0 Type Library" mais FaxControl 1.0 Type Library
C'est pareil ?
Cordialement Peponne31Bonjour Peponne31,
Il y a ceci : à mettre dans un module Standard :
'---------------
Sub essai()
aa = SendFax(Environ("computerName"), "c:dTexte.txt", "5554545",
"Diane")
End Sub
'---------------
'Tu dois ajouter dans la fenêtre VBE (Visual Basic Editor) la
référence suivante :
Barre de menus / Outils / Référencees :
'Faxcom 1.0 Type Library
'ServName name of your computer
'DocName document which you want to send, in your case it's Report
'FaxNo Fax number where you want the fax to be delivered
'------------------------------------
Public Function SendFax(ServName As String, DocName As String, _
FaxNo As String, RecName As String) As String
'varable for FAX Server
Dim FaxServer As FAXCOMLib.FaxServer
Dim FaxDoc As FAXCOMLib.FaxDoc
'on error execution jumps to lable ErrSendFax
On Error GoTo ErrSendFax
'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer")
'...and connect to it - no empty name allowed
FaxServer.Connect (ServName)
'Attaches document for sending FAX
Set FaxDoc = FaxServer.CreateDocument(DocName)
'Recepent FAX Number
FaxDoc.FaxNumber = FaxNo
'Recepent Name
FaxDoc.RecipientName = RecName
'Sends FAX using telephone which must be connected to FAX MODEM
FaxDoc.Send
'Kills FaxDoc Object
Set FaxDoc = Nothing
'Connection is Terminated
FaxServer.Disconnect
'Kills FaxServer object
Set FaxServer = Nothing
'Message is sent Back to calling function
SendFax = ""
Exit Function
'on error execution jumps here
ErrSendFax:
'Message is sent back to calling function
SendFax = "n"
End Function
'------------------------------------
Salutations!
"Peponne31" a écrit dans le
message de news:
Bonjour,
Je voudrais faxer une demande de devis depuis un CommandButton "Fax"
C'est possible ?
je ne connais pas de commande en vba pour ça!!
Merci de bien vouloir me lire.
Peponne31
