Sending Fax through VB Code URGENT

[Hemant Pathak]

Hi programmers...............................

i want to sending fax through vb code it is my client requrement is it possible or not if possible then how can i do?

Please tell me it is urgent........

[sashi]

Hi Hemant,

Kindly refer to below code segment, hope it helps you to get started with, take care my fren.. :)

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
 
Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String)
    Dim FaxServer As Object
    Dim FaxDoc As Object
    Dim ComputerName As String
    ComputerName = String(50, Chr(0))
    Call GetComputerName(ComputerName, 50)
    ComputerName = Trim(Replace(ComputerName, Chr(0), ""))
    Set FaxServer = CreateObject("FaxServer.FaxServer")
    FaxServer.Connect ("\\" & ComputerName)
    Set FaxDoc = FaxServer.CreateDocument(FileName)
 
 
    With FaxDoc
        .FaxNumber = FaxNumber
        .Send
    End With
 
    Set FaxDoc = Nothing
    Set FaxServer = Nothing
End Function
 

[tdecker81]

Hi Hemant,

Kindly refer to below code segment, hope it helps you to get started with, take care my fren.. :)

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
 
Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String)
    Dim FaxServer As Object
    Dim FaxDoc As Object
    Dim ComputerName As String
    ComputerName = String(50, Chr(0))
    Call GetComputerName(ComputerName, 50)
    ComputerName = Trim(Replace(ComputerName, Chr(0), ""))
    Set FaxServer = CreateObject("FaxServer.FaxServer")
    FaxServer.Connect ("\\" & ComputerName)
    Set FaxDoc = FaxServer.CreateDocument(FileName)
 
 
    With FaxDoc
        .FaxNumber = FaxNumber
        .Send
    End With
 
    Set FaxDoc = Nothing
    Set FaxServer = Nothing
End Function
 

I'm trying to do the same thing and this code works fine if I'm running it on the computer that has ms fax services running on it. I have it shared through a company network. I can send faxes by printing them or emailing them but from VB using the code above with the computer name I get an error up sending everytime. RunTime Error '-2147024890 (80070006) Method 'send' of object 'IFaxDoc' failed Any Ideas why?

[sashi]

Hi there,

Kindly refer to below attached link for further reading & understanding, hope it helps. Good luck & take care.

http://edndoc.esri.com/arcobjects/9....error_handling

[archanarathod]

In this code Faxserver component is used how to get that component

[archanarathod]

In this code Faxserver component is used how to get that component

[zeuscc]

Hi, i tried the code that given but i facing an error which is
" Attempted to read or write protected memory. This is often an indication that other memory is corrupt ". Does somebody also facing this problem too?

[zeuscc]

I'm doing my final year project for my degree course. now i'm stuck in how to send the fax.