Solved

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

Posted on 2008-06-11
6
392 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Follow this checklist to learn more about the 15 things you should never include in an email signature from personal quotes, animated gifs and out-of-date marketing content.
Is your Office 365 signature not working the way you want it to? Are signature updates taking up too much of your time? Let's run through the most common problems that an IT administrator can encounter when dealing with Office 365 email signatures.
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

896 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now