[Anonymous]

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.

[JohnD]

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

[Author]

Posts