Stop Warning When Sending Email From Access

[StanJx]

Hi I am trying to send an email using the below code via button of my access form. But I am receiving a warning message I have to allow every time I am sending an email. Any idea how to stop that message? :banghead::banghead::banghead:

Would appreciate if you could post up the modified code ASAP...

Dim mailto As String
    Dim ccto As String
    Dim bccto As String
    mailto = "[EMAIL="Test@test.com"]Test@test.com[/EMAIL]"
    ccto = ""
    bccto = ""
    emailmsg = "Hi" & vbNewLine & vbNewLine & "Please find the report attached"
    mailsub = "Monthly Sales Report"
    
    DoCmd.SendObject acSendNoObject, Null, , mailto, ccto, bccto, mailsub, emailmsg, False

 

[missinglinq]

Never had the occasion to do this sort of thing, and have no idea as to where the warning is coming from...but if it's Access generated, you could try this:

DoCmd.SetWarnings False
DoCmd.SendObject acSendNoObject, Null, , mailto, ccto, bccto, mailsub, emailmsg, False
DoCmd.SetWarnings True

Linq ;0)>

 

[JHB]

The warning is coming from your E-Mail system.
The link gives some information about it: https://support.microsoft.com/da-dk/kb/884998
You can also Google it: "docmd.sendobject warning message"