Sub Routine in Excel to Sent E-Mail and then delete

[TheLittlePrince]

Hi,

Not sure if this should be posted in Excel or Outlook section...

I am using Excel to generate an display an E-Mail (not send).

Is there any way that I can once I have added text to E-Mail body and sent it to get it to delete it from my Sent Items automatically as part of the same macro/sub routine.

So Excel -> Macro to generate and display E-Mail -> Add text to body -> Click Send -> Delete E-Mail from Sent Items.

Cheers,

Bren.

[john55]

Hi,
try this, it works for me.

Sub Button1_Click()
'Author Rory
'http://www.thecodecage.com/forumz/microsoft-excel-forum/212685-delete-email-sent-folder-deleted-folder.html
 Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        .Subject = "Automail: Changes detected in " & ThisWorkbook.Name
        .to = "azx@gmail.com"
        .Body = "delete the email from Sent items"
         'Read receipts turned of
        .ReadReceiptRequested = False
        .DeleteAfterSubmit = True
        '.Send
         .display
    End With
    Set olApp = Nothing
End Sub

[TheLittlePrince]

Oh that worked an absolute treat - thank you so much, great solution!

TLP.

[john55]

Glad it helped you!