Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

Thank you Sue,

You are a star!

Best wishes for the new year.

Danny

"Sue Mosher [MVP-Outlook]" wrote:

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

Hi Sue,

It works fantastically in Outlook.....but not if Word is the email editor.
Also I was wondering if it is possible to get round the "a program is trying
to send an email" message box.

Stillk I love it, it will save a lot of time.

Best wishes,

Danny

"Sue Mosher [MVP-Outlook]" wrote:

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

It works fantastically in Outlook.....but not if Word is the email editor.

If you want the code to run from Word VBA, you'd need to instantiate an Outlook Application object with CreateObject:

Set objOL = CreateObject("Outlook.Application")
Set msg =objOL.ActiveInspector.CurrentItem

etc.

Also I was wondering if it is possible to get round the "a program is trying
to send an email" message box.

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.



--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Sue Mosher [MVP-Outlook]" wrote:

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

Dear Sue,

Thank you. I did not know you had a book out. Given that my knowledge of
VBA is a 3 day course in Excel Macros and VBA (and your explanation above
made me want to hide behind the sofa), would your book be too advanced for
me? I am pretty good at using MS Office ....but pretty rubbish at programming.

Danny

"Sue Mosher [MVP-Outlook]" wrote:

It works fantastically in Outlook.....but not if Word is the email editor.

If you want the code to run from Word VBA, you'd need to instantiate an Outlook Application object with CreateObject:

Set objOL = CreateObject("Outlook.Application")
Set msg =objOL.ActiveInspector.CurrentItem

etc.

Also I was wondering if it is possible to get round the "a program is trying
to send an email" message box.

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.



--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Sue Mosher [MVP-Outlook]" wrote:

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny

My book would probably be just the right level to build on what you already know.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"DannyJ" wrote in message news
Dear Sue,

Thank you. I did not know you had a book out. Given that my knowledge of
VBA is a 3 day course in Excel Macros and VBA (and your explanation above
made me want to hide behind the sofa), would your book be too advanced for
me? I am pretty good at using MS Office ....but pretty rubbish at programming.

Danny

"Sue Mosher [MVP-Outlook]" wrote:

It works fantastically in Outlook.....but not if Word is the email editor.

If you want the code to run from Word VBA, you'd need to instantiate an Outlook Application object with CreateObject:

Set objOL = CreateObject("Outlook.Application")
Set msg =objOL.ActiveInspector.CurrentItem

etc.

Also I was wondering if it is possible to get round the "a program is trying
to send an email" message box.

See http://www.outlookcode.com/d/sec.htm for your options with regard to the "object model guard" security in Outlook 2000 SP2 and later versions.

"Sue Mosher [MVP-Outlook]" wrote:

Sub SendIt
On Error Resume Next
Set msg = Application.ActiveInspector.CurrentItem
msg.DeleteAfterSubmit = True
msg.Send
End Sub

"DannyJ" wrote in message ...
Hi folks,

I would really like to create a button that sends the email and then deletes
it from the sent items folder. This would be really useful for getting rid
of emails that just say "thanks" etc.

Any ideas?

Many thanks,

Danny