T1A1
11-22-2016, 10:51 PM
Seeking the wisdom of you expert coders.
As part of a VBA project, emailing of reports is required. This is being achieved fairly simply with an activesheet mailenvelope as below
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Rejected Payments Report"
.Item.To = Sheets("out").Range("bm370").Value
.Item.Subject = "Rejected Payments Report [DLM=For-Official-Use-Only]"
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
However, there is a resultant disruption to the automation as outlook produces a pop-up window asking the user to select a security classification level for the email.
I attempted to code around this by adding .item.sensitivity.3 to automatically select the third option but this had no impact.
outlook version as follows
outlook 2013 15.0.4867.1000 MSO 15.0.4867.1001
the pop-up appears to be related to an external package and is marked protective markings for outlook - copyright preemptive consulting v2.1.2.2
I also tried using a basic sendkeys to try and navigate through this but it also didn't work.
Any ideas would be appreciated.
As part of a VBA project, emailing of reports is required. This is being achieved fairly simply with an activesheet mailenvelope as below
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Rejected Payments Report"
.Item.To = Sheets("out").Range("bm370").Value
.Item.Subject = "Rejected Payments Report [DLM=For-Official-Use-Only]"
.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
However, there is a resultant disruption to the automation as outlook produces a pop-up window asking the user to select a security classification level for the email.
I attempted to code around this by adding .item.sensitivity.3 to automatically select the third option but this had no impact.
outlook version as follows
outlook 2013 15.0.4867.1000 MSO 15.0.4867.1001
the pop-up appears to be related to an external package and is marked protective markings for outlook - copyright preemptive consulting v2.1.2.2
I also tried using a basic sendkeys to try and navigate through this but it also didn't work.
Any ideas would be appreciated.