Fax Software

Community Forums

This topic contains 1 reply, has 0 voices, and was last updated by  JohnD 16 years, 6 months ago.

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #2707

    Anonymous
    Member

    I have been creating an application within Access 2000 that is going to send a coversheet with a subject and text. Then if the user chooses to a document. The document would be an attachment. It would not be sent in all circumstances only those where the document is specified.

    I have used the following code and gotten the following message: -2147417851(80010105) Automation Error.

    Dim objWFXSend As New wfxctl32.CSDKSend
    With objWFXSend
    .SetDate (Date)
    .SetTime “20:00:00”
    .SetCountryCode (“”)
    .SetAreaCode (AreaCode)
    .SetNumber (PhoneNumber)
    .SetTo (FullName)
    .SetCompany (rs!Company & “”)

    .SetSubject Msubject
    .SetCoverText (sCoverText)
    If Len(docAttach) = 0 Then
    Else
    .AddAttachmentFile (docAttach)
    End If
    End With

    objWFXSend.AddRecipient
    objWFXSend.ShowSendScreen (0)

    objWFXSend.Send (0)

    objWFXSend.LeaveRunning

    It appears to be failing on the addrecipient line.

    Any suggestions or insight would be great.

    Thank you.

    #4610

    JohnD
    Participant

    Try this code

    Dim objWFXSend As Object
    Set objWFXSend = CreateObject(“WinFax.SDKSend8.0”)
    objWFXSend.SetClientID (“Client Name”)

    With objWFXSend

    .SetCountryCode (“”)
    .SetAreaCode (AreaCode)
    .SetNumber (PhoneNumber)
    .SetTo (FullName)
    .SetCompany (rs!Company & “”)

    .SetSubject Msubject
    .SetCoverText (sCoverText)
    If Len(docAttach) = 0 Then
    Else
    .AddAttachmentFile (docAttach)
    End If
    End With

    objWFXSend.LeaveRunning()
    objWFXSend.AddRecipient
    objWFXSend.Send (1)
    objWFXSend.ShowSendScreen (0)

    ‘ this routine waits until “IsReadyToPrint” returns a Non-zero ‘value (ready) this loop will wait but allow background ‘processing to continue

    Do While objWFXSend.IsReadyToPrint = 0
    DoEvents
    Loop

    ‘ Close it down.

    Set objWFXSend = Nothing

    Edited By JohnD on May 31 2002 at 12:20

Viewing 2 posts - 1 through 2 (of 2 total)

You must be logged in to reply to this topic.