dialog box

[lilbit27]

How do I get remove the dialog box that pops up each time a fax is
getting ready to be sent. I just want them to go. Right now the user
would have to click the yes each time.

I just want to have a message box show up that says you are about to
seen 12 faxes do you want to send they click yes and 12 send with no
dialog box if no the action cancels.

Code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strName As String
Dim strFaxNo As String
Dim strFax As String

Set db = CurrentDb

strSQL = "SELECT TProdInfo.ProdCd, TProdInfo.[Contact Name], TProdInfo.
[Fax Number], tara.Keep FROM tara INNER JOIN TProdInfo ON tara.ProdCd
= TProdInfo.ProdCd GROUP BY TProdInfo.ProdCd, TProdInfo.[Contact
Name], TProdInfo.[Fax Number], tara.Keep, tara.Email HAVING
(((tara.Keep)=True) AND ((tara.Email)=fOSUserName()));"

Set rst = db.OpenRecordset(strSQL)

rst.MoveFirst

Do Until rst.EOF
gProdCd = rst!ProdCd
strName = "/Name=" & rst![Contact Name]
strFaxNo = "/Fax=" & rst![Fax Number]

strFax = strName & strFaxNo & "/<[email protected]>"

DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF,
strFax, , , "Outstanding Property Casualty Policies", "Please Review
the Following Outstanding Policies", False
rst.MoveNext
Loop
End Sub

 

[Daniel]

Which dialog? Could you give some details, what does it say?

If you are sending email through Outlook and you are getting the Outlook
security dialog, there are way to work around it.

Google - ClickYes as a possible solution