delete email once it has been replyed to in outlook, through VBA code


J

jinjay

Hey Guys,

I'm new to this forum so if i miss anything, apologizes.

I am working in outlook 2003, my goal is to write a code to be able t
delete a message once it has been replied to. I have archived this wit
the following code:-
but now i need to edit this so it only works with a certain subjec
heading and not every email. Please help

can the code be change so it deletes on predefined subject heading upo
hitting reply. at the moment it is deleting any message that is replie
to.

Option Explicit
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem

Private Sub Application_Startup()
Set ReplyButton
Application.ActiveExplorer.CommandBars.FindControl(, 354)
Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector A
Outlook.Inspector)
On Error Resume Next
If Not m_Mail Is Nothing Then
m_Mail.Delete
Set m_Mail = Nothing
End If
End Sub

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
CancelDefault As Boolean _
)
On Error Resume Next

If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set m_Mail = Application.ActiveExplorer.Selection(1)
Else
Set m_Mail = Application.ActiveInspector.CurrentItem
End If
End Sub




I am trying to change the following code so it only delete
 
Ad

Advertisements

K

Ken Slovak - [MVP - Outlook]

If I understand what you are asking then just test the m_Mail.Subject
property against your string.
 
M

Michael Bauer [MVP - Outlook]

It's always funny, how some people can "write" such a complicated code but
aren't able to do the smallest changes on their own...

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>



Am Wed, 18 Feb 2009 09:57:58 +0000 schrieb jinjay:
 
J

jinjay

'Michael Bauer [MVP - Outlook said:
;292889']It's always funny, how some people can "write" such
complicated code bu
aren't able to do the smallest changes on their own..

--
Best regard
Michael Bauer - MVP Outloo

: Outlook Categories? Category Manager Is Your Too
: VBOffice Reporter for Data Analysis & Reportin
: http://www.vboffice.net/product.html?pub=6&lang=e



Am Wed, 18 Feb 2009 09:57:58 +0000 schrieb jinjay

Hey Guys

I'm new to this forum so if i miss anything, apologizes

I am working in outlook 2003, my goal is to write a code to be able t
delete a message once it has been replied to. I have archived thi
wit
the following code:
but now i need to edit this so it only works with a certain subjec
heading and not every email. Please hel

can the code be change so it deletes on predefined subject headin
upo
hitting reply. at the moment it is deleting any message that i
replie
to

Option Explici
Private WithEvents ReplyButton As Office.CommandBarButto
Private WithEvents m_Inspectors As Outlook.Inspector
Private m_Mail As Outlook.MailIte

Private Sub Application_Startup(
Set ReplyButton
Application.ActiveExplorer.CommandBars.FindControl(, 354
Set m_Inspectors = Application.Inspector
End Su

Private Sub m_Inspectors_NewInspector(ByVal Inspector A
Outlook.Inspector
On Error Resume Nex
If Not m_Mail Is Nothing The
m_Mail.Delet
Set m_Mail = Nothin
End I
End Su

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton,
CancelDefault As Boolean

On Error Resume Nex

If TypeOf Application.ActiveWindow Is Outlook.Explorer The
Set m_Mail = Application.ActiveExplorer.Selection(1
Els
Set m_Mail = Application.ActiveInspector.CurrentIte
End I
End Su




I am trying to change the following code so it only deleted

Thanks for all the responses
i did not write the code but it was available from another site. I a
not sure have to go about making this change as i have not programme
in VBA before, your help will be really appreciate
 
M

Michael Bauer [MVP - Outlook]

i did not write the code but it was available from another site.

That's obvious. If you copy and re-publish code from others, it would be
nice to tell where you got the code from.

In ReplyButton_Click you can check the Subject property after setting the
m_Mail variable. If it's not what you're lookign for, set m_Mail=Nothing.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Thu, 19 Feb 2009 10:33:25 +0000 schrieb jinjay:
'Michael Bauer [MVP - Outlook said:
;292889']It's always funny, how some people can "write" such a
complicated code but
aren't able to do the smallest changes on their own...

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Wed, 18 Feb 2009 09:57:58 +0000 schrieb jinjay:
-
Hey Guys,

I'm new to this forum so if i miss anything, apologizes.

I am working in outlook 2003, my goal is to write a code to be able to
delete a message once it has been replied to. I have archived this
with
the following code:-
but now i need to edit this so it only works with a certain subject
heading and not every email. Please help

can the code be change so it deletes on predefined subject heading
upon
hitting reply. at the moment it is deleting any message that is
replied
to.

Option Explicit
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem

Private Sub Application_Startup()
Set ReplyButton =
Application.ActiveExplorer.CommandBars.FindControl(, 354)
Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As
Outlook.Inspector)
On Error Resume Next
If Not m_Mail Is Nothing Then
m_Mail.Delete
Set m_Mail = Nothing
End If
End Sub

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton, _
CancelDefault As Boolean _
)
On Error Resume Next

If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set m_Mail = Application.ActiveExplorer.Selection(1)
Else
Set m_Mail = Application.ActiveInspector.CurrentItem
End If
End Sub




I am trying to change the following code so it only deleted-

Thanks for all the responses,
i did not write the code but it was available from another site. I am
not sure have to go about making this change as i have not programmed
in VBA before, your help will be really appreciated
 
Ad

Advertisements

J

jinjay

'Michael Bauer [MVP - Outlook said:
;293369']-
i did not write the code but it was available from another site. -

That's obvious. If you copy and re-publish code from others, it woul
be
nice to tell where you got the code from.

In ReplyButton_Click you can check the Subject property after settin
the
m_Mail variable. If it's not what you're lookign for, se
m_Mail=Nothing.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Thu, 19 Feb 2009 10:33:25 +0000 schrieb jinjay:
-
'Michael Bauer [MVP - Outlook Wrote: -
;292889']It's always funny, how some people can "write" such a
complicated code but
aren't able to do the smallest changes on their own...

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en



Am Wed, 18 Feb 2009 09:57:58 +0000 schrieb jinjay:
-
Hey Guys,

I'm new to this forum so if i miss anything, apologizes.

I am working in outlook 2003, my goal is to write a code to be abl
to
delete a message once it has been replied to. I have archived this
with
the following code:-
but now i need to edit this so it only works with a certain subject
heading and not every email. Please help

can the code be change so it deletes on predefined subject heading
upon
hitting reply. at the moment it is deleting any message that is
replied
to.

Option Explicit
Private WithEvents ReplyButton As Office.CommandBarButton
Private WithEvents m_Inspectors As Outlook.Inspectors
Private m_Mail As Outlook.MailItem

Private Sub Application_Startup()
Set ReplyButton =
Application.ActiveExplorer.CommandBars.FindControl(, 354)
Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As
Outlook.Inspector)
On Error Resume Next
If Not m_Mail Is Nothing Then
m_Mail.Delete
Set m_Mail = Nothing
End If
End Sub

Private Sub ReplyButton_Click(ByVal Ctrl As Office.CommandBarButton
_
CancelDefault As Boolean _
)
On Error Resume Next

If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set m_Mail = Application.ActiveExplorer.Selection(1)
Else
Set m_Mail = Application.ActiveInspector.CurrentItem
End If
End Sub




I am trying to change the following code so it only deleted--

Thanks for all the responses,
i did not write the code but it was available from another site.
am
not sure have to go about making this change as i have not programmed
in VBA before, your help will be really appreciated-


thanks for your help i managed to figure it ou
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top