Sending emails from Access without Outlook Warnings

[mlevit]

Hi,

I send out emails through MS Access via SendObject. I would like to know if there is a way of getting rid of the Outlook Security Popup that comes up every time an email is about to be sent.

I have tried Advanced Security For Outlook but it does not seem to popup when sending emails, I’ve used it before for synchronization with my mobile, and it seemed to popup then.

Any help would be greatly appreciated

[maxamis4]

with the outlook object add this piece to it

.DisplayAlerts = False
 

[mlevit]

with the outlook object add this piece to it

.DisplayAlerts = False
 

I use

DoCmd.SendObject

to send out emails

Where exactly do I place that piece of code?

I know

DoCmd.SetWarnings False

is used before SQL statements, but where would i use the other one?

[maxamis4]

Could you post your entire module please. Its not the sql its in the actual outlook object piece.

[cyberdwarf]

Hi,

If this is what I think it is, then no amount of VBA coding will stop the popup message from Outlook. Recent versions of Outlook have enhanced security which is meant to stop spam being sent from external apps.

The warning usually says something like "a 3rd party app is trying to send a message ..."

The only way to get rid of the popup warning is to either click the OK button, or run a small app which willl do this for you automatically (there are one or two which are widely available - Google "Outlook security warning")

Hope this is of some assistance

[mlevit]

Could you post your entire module please. Its not the sql its in the actual outlook object piece.

Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
 
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("Email - Purchase - Incompleted Due Followups")
 
    Dim intCount As Integer
 
    intCount = DCount("[FullName]", "[Email - Purchase - Incompleted Due Followups]")
 
    If intCount = 0 Then
        MsgBox ("There are no followups to email"), vbInformation
        Exit Sub
    Else
        rst.MoveFirst
        Do Until rst.EOF
 
        tempBodyField = mainBodyField
        tempSubjectField = mainSubjectField
        strEmailAddress = rst![email]
        FollowupDate = rst![FollowupDate]
        FollowupDate = DateAdd("m", 3, todaysDate)
 
        tempBodyField = Replace(tempBodyField, "<cname>", rst![FullName])
        tempBodyField = Replace(tempBodyField, "<purchase>", rst![Product])
        tempBodyField = Replace(tempBodyField, "<date>", todaysDate)
        tempBodyField = Replace(tempBodyField, "<pdate>", rst![PurchaseDate])
 
        tempSubjectField = Replace(tempSubjectField, "<cname>", rst![FullName])
        tempSubjectField = Replace(tempSubjectField, "<purchase>", rst![Product])
        tempSubjectField = Replace(tempSubjectField, "<date>", todaysDate)
        tempSubjectField = Replace(tempSubjectField, "<pdate>", rst![PurchaseDate])
 
        DoCmd.SendObject , , , strEmailAddress, _
                          , , tempSubjectField, tempBodyField, False, False
 
        DoCmd.SetWarnings False
        DoCmd.RunSQL "UPDATE Followup " & _
                     " SET Followup.FollowupDate = '" & FollowupDate & "', Followup.EmailSentDate = '" & todaysDate & "', Followup.Completed = 'Yes'" & _
                     " WHERE (((Followup.ID) = " & rst![ID] & "))"
 
        DoCmd.SetWarnings True
 
        rst.MoveNext
        Loop
 
        rst.Close
        Set rst = Nothing
        dbs.Close
        Set dbs = Nothing
 
        MsgBox intCount & " followups have been sent out" _
               + Chr(13) + Chr(13) + "A new followup date for these purchases" & _
               Chr(13) + "has been set to " & FollowupDate, vbInformation
        DoCmd.RunCommand (acCmdCloseWindow)
    End If
 

[MMcCarthy]

It can be turned off in Outlook

[akabir77]

can you tell me where in outlook can we trun this off? i have the same problem...