Visual Basic.NET - Enviar fax con VB.net

 
Vista:

Enviar fax con VB.net

Publicado por Luis Ruiz (9 intervenciones) el 20/04/2005 12:04:41
Tengo que hacer una aplicación que envíe fax desde un ordenador con W2000.
El ´nº de teléfono he de sacarlo de una bbdd y por lo tanto no me sirve una solución en la que haya que meter el nº de teléfono "a mano".
Por favor, ¿alquien conoce alguna librería que permita enviar fax? ¿Como tendría que hacerlo? Por favor, ayuda :`(
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar fax con VB.net

Publicado por Christian (174 intervenciones) el 20/04/2005 15:16:17
Hola,

Tenes varias maneras de hacerlo, la primera es hacer uso del servicio de microsoft Fax, el que esta instalado en el w2000.

La otra es crear una aplicacion con el mscomm para abrir el modem, enviar los datos, etc.

Saludos
Christian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar fax con VB.net

Publicado por Luis Ruiz (9 intervenciones) el 20/04/2005 16:00:17
Necesito que la solución sea compatible también con WinXP.

Estuve mirando la opción del mscomm para el módem, pero aparte de encontrar los comandos AT para establecer comunicaciones y demás, no encontre la forma en que pudiera comenzar a enviar el fax.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar fax con VB.net

Publicado por christian (174 intervenciones) el 21/04/2005 16:49:45
Pödes usar una dll que se llama interfax

Dim oSF As New interfax.InterFax() 'Reference to Interfax object
Dim List(9) As interfax.FaxItem 'Data structure (array) to hold results - max 10 items
Dim intTotalCount As Integer 'Total number of messages available for the user
Dim intListSize 'Actual size of list returned (Number of items in List()
Dim strOut As String = "" 'Build display here
Dim i As Integer
Dim lngRet As Long
'
' Invoke Interfax FaxStatus method
'
List = oSF.FaxStatus("MyUsername", "MyPassword", 99999999, 10, intTotalCount, intListSize, lngRet)
If lngRet <> 0 Then
'
' An error occured - see documentation
'
MessageBox("Error !!!" & lngRet)
Else
'
' A normal response returned from Interfax server
' Start build display
' strOut = "Total received: " & intListSize & " of " & intTotalCount & " showing TIDs: " & vbCrLf
strOut = strOut & "TransactionID" & " : " & "Status" & " : " & "RemoteCSID" & vbCrLf

For i = 0 To intListSize - 1

strOut = strOut & List(i).TransactionID & " : " & List(i).Status & " : " & List(i).RemoteCSID & vbCrLf
Next
MessageBox(strOut)
End If
End Sub

Saludos
Christian
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar fax con VB.net

Publicado por luis.ruiz (9 intervenciones) el 21/04/2005 17:53:03
Ya estuve mirando esa dll, pero con mi corto inglés no quise atreverme a utilizarla, ya que viendo el código fuente y demás vi referencias a direcciones de internet y no me convenció la solución.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar