Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

outlook reply all

Status
Not open for further replies.

hecktic

Programmer
May 14, 2002
84
0
0
CA
Hi,

This has nothing to do with programming but i hope someone knows the answer.

In outlook, when i click on Reply All, my own email address is included. I can't find how/where to stop that from happening.

Does anyone know?
 
Sorry, there is no way to change this - you are one of the 'All'.
 
if you don't want to recieve email from yourself this is the answer.

write a module, that deletes mail from yourself as you recieve it.

Code:
Private Sub Application_NewMail()
On Error GoTo Application_NewMail_Err
Dim objItem As Outlook.MailItem
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objItem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items(1)

'Creates an instance of Outlook.
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

Select Case objItem.SenderName
 Case "ThisName, Like"
    'delete the new mail
End Select

Application_NewMail_Err:
Select Case Err.Number
    Case 0, 13, 20
    'do nothing
    Case Else
        MsgBox Err.Description & Err.Number
End Select
End Sub

LikeThisName <- ? Sorry It's Taken =)
 
to add to the code above just
replace: 'delete the new mail

with:
Code:
objItem.delete

LikeThisName <- ? Sorry It's Taken =)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top