- This topic is empty.
-
AuthorPosts
-
May 30, 2002 at 9:06 pm #2707
Anonymous
MemberI 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 WithobjWFXSend.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.
June 1, 2002 at 6:16 pm #4610JohnD
ParticipantTry 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 WithobjWFXSend.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
-
AuthorPosts
- You must be logged in to reply to this topic.