please.....urgent....."access denied error while s
hi
I want to develope an application to send the fax,
I do that as following, that gives the error " Access is denied. "
please...help me....how to overcome this error, very.....urgent....
i am promptly waiting for your replies..
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim objFaxServer As New FAXCOMLib.FaxServer
Dim objFaxDocument As Object
Dim JobID As Long
Dim pathToImage As String
objFaxServer.Connect("SR")
'' SR is the server name
pathToImage = "E:\From E\EDICT MY SQL CODE\DATABASE\BITMAPS\0\132.TIF"
objFaxDocument = objFaxServer.CreateDocument(pathToImage)
objFaxDocument.CoverpageName = "D:Cover Page.cov"
objFaxDocument.CoverpageNote = "Test Note"
objFaxDocument.CoverpageSubject = "Test Subject"
objFaxDocument.DiscountSend = 0
objFaxDocument.FaxNumber = "6677152"
objFaxDocument.RecipientName = "recipient name"
' Send the Fax
JobID = objFaxDocument.Send()
objFaxDocument = Nothing
objFaxServer.Disconnect()
objFaxServer = Nothing
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
RK
__________________
RK
|