VBA change to not show a sent email in outlook

[Dspace]

Good day. I'm writing in VBA to run a macro & a sub-routine to send an email behind the scenes. The only problem is I want it sent without it showing up in the users Sent Box. Can I edit the below to accomplish this? Every time I test it myself it's still showing in my Sent box. Thanks

Sub SendEmail(macroName As String)
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim cellValue As String

' Determine the appropriate cell based on the active sheet name
Select Case ActiveSheet.Name
Case "worksheet1", "worksheet2"
cellValue = ActiveSheet.Range("B4").Value
Case Else
cellValue = ActiveSheet.Range("B5").Value
End Select

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)

With OutlookMail
.To = "user@user.com"
.Subject = "BA executed pricing for " & cellValue
.Body = "Customer: " & cellValue
.Attachments.Add ThisWorkbook.FullName
.Send
End With

Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

 

[Jeffrey Mahoney]

In my opinion, sending an email using somebody else's account without their consent is more than a little wrong. Sorry for sounding like a goody two shoes. Stay on the high road.

 

[John_w]

The only problem is I want it sent without it showing up in the users Sent Box. Can I edit the below to accomplish this?

Insert .DeleteAfterSubmit = True before the .Send.

 

[Dspace]

In my opinion, sending an email using somebody else's account without their consent is more than a little wrong. Sorry for sounding like a goody two shoes. Stay on the high road.

While normally I’d agree with you I’ve been tasked with auditing sales rep behavior & their tendency to manipulate pricing for the good of their commission statements while not necessarily at the good of the company’s bottom line.

 

[Dspace]

Insert .DeleteAfterSubmit = True before the .Send.

This results in no email being sent/received or being shown as sent.

 

[John_w]

The change works for me: the email is sent and received by the recipient and it doesn't appear in the sender's Sent Items or Deleted Items folder.

 

[Dspace]

The change works for me: the email is sent and received by the recipient and it doesn't appear in the sender's Sent Items or Deleted Items folder.

I just rechecked it with a different email address in the sent command & still no success. I wonder if this is due to my company's security settings. I'm might have to attack this problem from a different direction.

I do appreciate your suggestions. Thanks for trying.