Solved

How to Change the subject of emails on one folder depending on the sender

Posted on 2008-06-11
6
394 Views
Last Modified: 2013-11-27
I've been requested to create a macro that will change the subject of a email  message depending on the sender.
the problem is that the user receives many emails regarding orders, the messages are place in a folder by a rule and I want to change the subject
i.e.
i receive a message from john@doe.com with the subject
"Status of Shipments 01/01/08"
I want to be able to change the subject to read:
"ONTARIO - Status of Shipments 01/01/08"

My Idea is to be able to select a number of emails on the personal folder file
lets say the name of the folder is "IBA"

So the logic for this macro is
for all messages selected in folder "IBA" if the sender is John@Doe.com then
take the subject and add at the begining of the subject "ONTARIO - "
if the sender is Jane@doe.com then then take the subject
and add at the begining of the subject "VERNON - " 
0
Comment
Question by:TOPIO
  • 3
  • 3
6 Comments
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 21772413
Hi, TOPIO.

This should do it.  I haven't tested it though.
Sub FixSubject()
    Dim olkMsg As Outlook.MailItem
    For Each olkMsg In Application.ActiveExplorer.Selection
        Select Case olkMsg.SenderEmailAddress
            'Create a Case statement like one of these for each possible address
            'The address must be an exact match including case
            Case "John@Doe.com"
                olkMsg.Subject = "ONTARIO - " & olkMsg.Subject
            Case "Jane@Doe.com"
                olkMsg.Subject = "VERNON - " & olkMsg.Subject
        End Select
        olkMsg.Save
    Next
    Set olkMsg = Nothing
    MsgBox "All done!"
End Sub

Open in new window

0
 
LVL 10

Author Comment

by:TOPIO
ID: 21774629
I get the following error:

Select Case olkMsg.SenderEmailAddress <<<<Object Does not Support this property or method
0
 
LVL 10

Author Comment

by:TOPIO
ID: 21774680
I corrected the previous error by changing
strOriginAddress = olkMsg.SenderName

however when I run the macro on meeting requests I get the following error

For Each olkMsg In Application.ActiveExplorer.Selection <<< Run time error '13' Type Mismatch
0
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
LVL 76

Expert Comment

by:David Lee
ID: 21774753
Apologies for the first error.  I didn't know what version of Outlook you're using.

The second error would occur if something other than a mail message was selected.  Either insure that all the items you've selected are mail items, or change this line

    Dim olkMsg As Outlook.MailItem

to

    Dim olkMsg As Object
0
 
LVL 10

Author Comment

by:TOPIO
ID: 21774788
THANKS!
FINAL VERSION  IS BELOW

Sub FixSubjectForIBAMails()
    Dim olkMsg As Object
    Dim strOriginAddress As String
    
    For Each olkMsg In Application.ActiveExplorer.Selection
    
    strOriginAddress = olkMsg.SenderName
                      
                        
  '  MsgBox strOriginAddress
        Select Case strOriginAddress
            'Create a Case statement like one of these for each possible address
            'The address must be an exact match including case
            Case "Garcia, Carmen"
                olkMsg.Subject = "VERNON - " & olkMsg.Subject
            Case "Ibarra, David"
                olkMsg.Subject = "VERNON - " & olkMsg.Subject
            Case "Olmos, Claudia"
                olkMsg.Subject = "VERNON - " & olkMsg.Subject
            Case "Pedroza, Norma"
                olkMsg.Subject = "ONTARIO - " & olkMsg.Subject
             Case "Vega, Vanessa"
                olkMsg.Subject = "VERNON - " & olkMsg.Subject
                
                
        End Select
        olkMsg.Save
    Next
    Set olkMsg = Nothing
    MsgBox "All done!"
End Sub

Open in new window

0
 
LVL 76

Expert Comment

by:David Lee
ID: 21774955
You're welcome.  Glad I could help out.
0

Featured Post

Use Case: Protecting a Hybrid Cloud Infrastructure

Microsoft Azure is rapidly becoming the norm in dynamic IT environments. This document describes the challenges that organizations face when protecting data in a hybrid cloud IT environment and presents a use case to demonstrate how Acronis Backup protects all data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

MS Outlook is a world-class email client application that is mainly used for e-communication globally.  In this article, we will discuss the basic idea about MS Outlook, its advanced features, and types of MS Outlook File formats.
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question