Deleting a message from your inbox after replying.

Status
Not open for further replies.
D

Dave

I would like to find a way to add a macro or button to outlook so that when I

reply to a message, I have the option of deleting the original message from

my inbox upon sending the reply. Something like a 'Send and Delete Original

Message' button. The idea is inspired by the Inbox Zero idea of deleting mail

as soon as it's been dealt with.

I found this example that demonstrates how to delete the item from the sent

mail folder upon sending:

http://www.vboffice.net/en/developers/send-and-delete-email

However, it looks like it works by changing the properties of the currently

opened message. I don't know how to adapt it to my needs though. Is it

possible to get a reference to the originating message from a new reply?
 
You can get the original of a reply by using the ConversationTopic and

ConversationIndex properties. Assuming the originals are all in your Inbox

you can set up a restriction on the ConversationTopic property in the

Inbox's Items collection to only return those items with the same

ConversationTopic as your reply item.

The ConversationIndex property is created on each new thread or

conversation, consisting of a date/time structure stamp. Then each

subsequent member of that conversation adds a new date/time stamp to the

property. That would allow you to verify that an item is the parent of the

reply by checking the lengths of the property.

So if this type code was running in the reply item it would return the

original:

' oReply is the reply item

Dim sTopic As String

sTopic = oReply.ConversationTopic

Dim colItems As Outlook.Items

Dim colMyTopic As Outlook.Items

Dim myOriginal As Outlook.MailItem

' Application is Outlook.Application in Outlook VBA project

Set colIems = Application.Session.GetDefaultFolder(olFolderInbox).Items

Set colMyTopic = colItems.Restrict("[ConversationTopic] = '" & sTopic & "'")

If colMyTopic.Count = 1 Then

'we found it no need for more tests

Set myOriginal = colMyTopic.Item(1)

Else

' we need to iterate the filtered collection and check each item's

ConversationIndex length,

' then compare it to any other items in the filtered collection and to

the reply item.

' The item with the length just one date stamp shorter than the reply is

our original

End If

"Dave" <Dave> wrote in message

news:4F8D09B3-ABC6-4374-8B54-0C0FFA86F744@microsoft.com...
> I would like to find a way to add a macro or button to outlook so that when
> I
> reply to a message, I have the option of deleting the original message
> from
> my inbox upon sending the reply. Something like a 'Send and Delete
> Original
> Message' button. The idea is inspired by the Inbox Zero idea of deleting
> mail
> as soon as it's been dealt with.

> I found this example that demonstrates how to delete the item from the
> sent
> mail folder upon sending:
> http://www.vboffice.net/en/developers/send-and-delete-email

> However, it looks like it works by changing the properties of the
> currently
> opened message. I don't know how to adapt it to my needs though. Is it
> possible to get a reference to the originating message from a new reply?
>
 
Status
Not open for further replies.
< ItemSend event not firing | Is there no way to obtain sender's emailid from outlook calender d >
Similar threads
Thread starter Title Forum Replies Date
N Saving And Deleting Outlook Attachments with Unknown Error Message Outlook VBA and Custom Forms 1
Q Message box when deleting folder Outlook VBA and Custom Forms 2
Fozzie Bear Accepted Zoom Invites deleting without going into Default Calendar - Office 2016 Mac Using Outlook 3
J Autoreply email recieved from specific sender after deleting some text from body. Using Outlook 0
B Outlook 2013 erratically deleting original file that is attached Using Outlook 0
M Deleting attachments does not reduce file size Using Outlook 0
L Deleting Office 365 calendar appt w/o emailing invitees Using Outlook 3
D Outlook 2016 Deleting emails without affecting folder structure - Outlook Office 365 Using Outlook 3
R Deleting emails from storage folder Outlook VBA and Custom Forms 1
R Deleting Synchronisation of Old Accounts Using Outlook.com accounts in Outlook 0
T Deleting duplicate emails Using Outlook 2
W Deleting Sent Task Email, Deletes the task from my list Using Outlook 1
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
L OL 2016 contact: is there a way to prevent an admin from mistakenly deleting a contact? Using Outlook 1
B Deleting multiple accounts Using Outlook 1
A Sort emails into subfolders based on sender and deleting emails automatically Outlook VBA and Custom Forms 3
C Outlook is permanently deleting deleted items (purging) Using Outlook 0
S Automatically selecting folders and deleting messages in Outlook VBA Outlook VBA and Custom Forms 7
P Deleting items in folders doesnt send them to deleted items! Using Outlook 4
W Deleting Emails from the Server in Outlook 2016 Using Outlook 2
B Outlook not deleting messages from server Using Outlook 0
Rupert Dragwater Deleting email from Deleted Items does not work Using Outlook 0
B Deleting old Stream_autocomplete and other files Using Outlook 1
skylark53 Loss of default format on deleting signature Using Outlook 5
P deleting old UDP items in tasks Outlook VBA and Custom Forms 3
V Outlook 2013 deleting email text when sent Using Outlook 11
D After Moving or Deleting Open Item - Meeting Requests Using Outlook 4
D Outlook 2013 Deleting all my messages Using Outlook 9
J Deleting Email from Exchange Server Using Outlook 2
T Deleting iCloud Synced Contacts Exchange Server Administration 2
N Messages still in 'Deleted items' folder even after deleting! Using Outlook 2
N Deleting Duplicate Calendar Entires Outlook VBA and Custom Forms 2
R Deleting Attachments(embedded) in Outlook 2013 Using Outlook 10
W Outlook deleting emails Using Outlook 5
O Outlook 2013 deleting emails randomly Using Outlook 0
S Deleting Personal folder and IMAP account PST files Using Outlook 0
G Deleting AOL Emails form Outlook 2010 or 2013 Using Outlook 1
C Is there a way to prompt a user before deleting an item? BCM (Business Contact Manager) 4
D Deleting internet calendar on one computer removes it from all computers Using Outlook 2
L Outlook 2013 IMAP account is deleting e-mails from my inbox - help!!! Using Outlook 3
B Deleting Nested Attachments Using Outlook 2
Commodore Deleting folders or feeds when deleting from default RSS Feeds structure? Using Outlook 7
K Clearing/Deleting all Public Folders through VBA Using Outlook 3
S Deleting Custom Fields Using Outlook 4
R Deleting one email in a conversation deletes all Using Outlook 6
O Inbox Search Results won't update when deleting or moving an email Using Outlook 12
B How to completely and permanently deleting a POP3 Account in 2010 Using Outlook 9
P Printing, pasting & deleting issues Using Outlook 4
B How do I get a warning before deleting e-mail messages? Using Outlook 2
S Outlook 2010 is not deleting mail from my server once downloaded Using Outlook 2

Similar threads

Back
Top