dialog box

[favor08]

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.

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 & "/<[e-mail]>"
 
DoCmd.SendObject acSendReport, "RPCDemandFax", acFormatRTF, strFax, , , "Outstanding Property Casualty Policies", "Please Review the Following Outstanding Policies", False
rst.MoveNext
Loop
End Sub
 

[MMcCarthy]

i do have admin privilages, so how do I turn it off.

In Outlook go to options and under the security tab click on Attachment Security. Be careful though as this disables all attachment security.

Mary

[Denburt]

Found this, it will definately need some work but it should do what you need:

Outlook Warnings

Visual Basic 6 (VBA)
OlSecurityManager.ConnectTo OutlookApp 
OlSecurityManager.DisableOOMWarnings = True 
On Error Goto Finally 
  '... any action with protected objects ... 
Finally: 
  OlSecurityManager.DisableOOMWarnings = False 
 

[Denburt]

The following link may help also, you will probably need to utilize some of the techniques mentioned in this article in order to implemente the above post.

http://support.microsoft.com/default...b;en-us;291120

[NeoPa]

That's brilliant Denburt.
I will be looking to implement this at work from now on.
I Love The Scripts :)

[Denburt]

That's brilliant Denburt.
I will be looking to implement this at work from now on.
I Love The Scripts :)

Thanks, I had a similar issue a few years ago and as usual I can not seem to find that particular db. I am doing my best to keep up with my code storage db but it is an interesting project in itself. Glad you found it usefull.