?
Solved

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

Posted on 2008-06-11
6
Medium Priority
?
414 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 2000 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
Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

 
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

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

The article is for all the Exchange users seeking smooth and effective EDB to PST conversion. Exchange Server is the most widely used platform for messaging with collaborative sharing, Exchange online, secure working environment, etc.
The best software application must always have an error handling tool
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Through the video, you can check the migration process of Outlook PST file to PDF. Kernel for Outlook to PDF tool can convert Outlook emails with all attributes like Subject, To, From, Cc, Bcc and other folders such as Inbox, Outbox, Sent Items, Jun…

589 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