<div>
hi cvmcadmin, 
 
If understood this right, your trying to find out how much is sent to each address for future removal of the old one, right? 
I think you can do this with Outlook rules. Just setup so that all incoming mail that is sent to the old address are redirected to a separate folder (ex. subfolder) or maybe flagged and have the server reply with a specific message that informs about the new one. Then you get an estimate which that uses the old and they are at the same time informed to use the new address. 
If I understood you wrong, please explain more 

</div>

<div>
I tried this; the problem is that because the clients outlook is pointing to the same server that both email address are on. And therefore Outlook can't distinguish what the address was used. I can do if I look at the message header.
</div>

<div>
Not sure I follow. &nbsp;A rule can be established that checks incoming mail addresses and 'sorts' the old address items to a new foder. &nbsp;Are you saying that when the mails arrive from the server that they all bear the new email addy as the sender email address? 
 
Chris
</div>

<div>
All I want to do is Change the Subject in a NEW Email to say (Oldemailused) if it was sent to the old email address.
</div>

<div>
When a new email arrives thats using the old email addesss; I want to be able to change the Subject to Say OldEmaillused. So that the user can see very easy that there old email is still being used and therefore they can update the sender with the change of address. 
 
Does this make sence? Sorry I wasn't explining myself very well :)
</div>

<div>
I understand what you are saying ... and as long as the sender email of the mail as it appears in the inbox has the old address visible then there are two options: 
 
1. Move, (or copy) the emails to a special folder which is simple to see without modifying the subject. 
2. Apply the prefix you want as part of a macro. 
 
The rule copying the mail elsewere is much easier for you, but like I say a macro to make the edits CAN be created if you want but bothe are dependant on confirmation of the incoming mail sender address being displayed correctly. 
 
Chris
</div>

<div>
I don't want to move the new email, just Change the Subject title. 
 
This is a request from management, so I don't have any choice in the matter :)
</div>

<div>
IN thisOutlook session: 
 
Insert the following sub. &nbsp;If it already exists then you will need to merge the two. &nbsp;I would have suggested a rule but I see you are using outlook 2000 and I don't think they support scripts. 
 
Replace in the code fred@fred.com with the correct email for the old addy. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-165063">Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim strEntryID() As String
Dim testObj As Object
Dim intFinal As Integer
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 If mai.SenderEmailAddress = &quot;fred@fred.com&quot;
 mai.Subject = &quot;OldDomain: &quot; &amp; mai.Subject
 mai.Save
 End If
 End If
 Next
End Sub
</code></pre>
</div>

<div>
I hate to sound dumb, but were do I put this within Outlook? running Outlook XP and 2003 
 
Thanks!
</div>

<div>
Oh bother! 
 
Your original post said outlook 2000. &nbsp;The better answer then is to create a rulewhich runs off every received mail and select the script option. 
 
To achieve this first in teh outlook VBE, press alt + F11 : insert module. &nbsp;You will now have a module in the project explorer, (ctrl + R if it isn't visible). &nbsp;Double click the modle and paste the snippet. 
 
Tools | rules and alerts | new rule when messages arrive. &nbsp;Under select actions choose run a script and select the oldMailSubjectPrefix sub you entred previously. &nbsp;Note the first selection for conditions is passed over and yes you do want to apply it to every email. 
 
Chris 

<pre><code class="code-1 nolinks" id="code-165091">Sub oldMailSubjectPrefix(mai As mailitem)
 If mai.SenderEmailAddress = &quot;fred@fred.net&quot; Then
 mai.Subject = &quot;OldDomain &quot; &amp; mai.Subject
 mai.Save
 End If
End Sub
</code></pre>
</div>

<div>
Sorry Chris, I will give that ago and let you know! 
 
Thanks
</div>

<div>
I do the alt-F11 and do I paste it into the module1 area. then do I just close the VBA editor? 
 
Cuz when I create the rule it doesn't show up. There nothing to pick from
</div>

<div>
This is Outlook 2003..just testing on my PC first
</div>

<div>
Are macros enabled ...also if it is to be deployed onto outlook 2000 the previou solution is required so there may be no point in testing it in this particular form as such! 
 
Chris
</div>

<div>
Chris we have a mix of Outlook's. XP, 2000 and 2003. 
 
Well I am not quite sure what I am doing wrong. If I open the VB editior (Alt+F11) and then paste the code in and save it, nothing apears in the macros list (Alt+F8). But if I got to create a new macro. put a name in and select Create. The VB editor pops up and and I paste the code in between the new sub and then close the editor. The Marco now shows up, but if I goto run it it errors. 
 
If I just open the VBA editor and paste the code in for Oulook 2003 
 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
Dim strEntryID() As String 
Dim testObj As Object 
Dim intFinal As Integer 
&nbsp; 
&nbsp; &nbsp; strEntryID = Split(EntryIDCollection &amp;&nbsp;&quot;,&quot;, &quot;,&quot;) 
&nbsp; &nbsp; For intFinal = 0 To UBound(strEntryID) - 1 
&nbsp; &nbsp; &nbsp; &nbsp; Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal)) 
&nbsp; &nbsp; &nbsp; &nbsp; If testObj.Class = olMail Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set mai = testObj 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If mai.SenderEmailAddress = &quot;fred@fred.com&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mai.Subject = &quot;OldDomain: &quot;&nbsp;&amp; mai.Subject 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mai.Save 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; Next 
End Sub 
 
Its never shows up as a macro or script. 
 
I can't see what I am doing wrong.
</div>

<div>
Excuse me if I seem to be missing the issue but i'll try and explain. 
 
1. Outlook 2003 supports rules running scripts whereas outlook 2000 does not. 
2. To get a common approch it seems best to concentrate on the one solution. 
 
Therefore you do NOT need module1. 
 
You do need to put a code sequence in the thisoutlooksession module. &nbsp;Best answer to ensure correct calling is I feel to paste the code in the auto routine. 
 
In thisoutlooksession select application and newmailex. &nbsp;Paste everything in the supplied newqmailex sub into this skeleton i.e: 
 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
 
End Sub 
 
and paste the code from the snippet mdifying the email addy as appropriate. 
 
The code wil auto run when a mail comes in and should paste the required prefix without any more ado. &nbsp;Note RULES are NOT required in this approach. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-165547">Dim strEntryID() As String
Dim testObj As Object
Dim intFinal As Integer
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 If mai.SenderEmailAddress = &quot;fred@fred.com&quot;
 mai.Subject = &quot;OldDomain: &quot; &amp; mai.Subject
 mai.Save
 End If
 End If
 Next
</code></pre>
</div>

<div>
Hi Chris, this code is working, apart from its based on the sender address. 
 
I have now 2 email address. 
me@myoldemail.com 
me@mynewaddress.com 
 
I want to change the subject when someone sends a email to my old email address. i.e. me@myoldemail.com 
 
does this make sense? Sorry I should have made my self more clear :)
</div>

<div>
No you were perfectly clear it was a simple error on my part replace: 
 
If mai.SenderEmailAddress = &quot;fred@fred.com&quot; 
with 
If mai.to = &quot;me@myoldemail.com&quot;
</div>

<div>
Doesn't seem to work. I just looked in the message header and I wonder if it is possible to say if it comes from this &quot;Server&quot; or &quot;IP&quot; then put in the &quot;OLD Domain&quot; message. 
 
Just a thought. Thanks for all your help on this matter Chris. 
 
Karl
</div>

<div>
It is possible from my recollection. &nbsp;First a question though. &nbsp;Can you supply rrepresentative data from an email showing the value of senderemailaddress to see why it should be failing the now. 
 
As for the alternative, I have done some processing on the header in the past but will have to refresh myself as to how to use. &nbsp;Again for this can you supply representative data of the header where the sender is presented. 
 
Given the scope of extra work I would prefer to resolve the current approach ... and I want to know why it is failing at the moment as well as I don't understand ... and I want to understand! 
 
Chris
</div>

<div>
The following snippet adds a single line to print out the to addresses to the VBE immediate window, (ctrl + G to toggle display). &nbsp;Censor and obfuscate the data as necessary but supply representative information for analysis ... all formatting etc. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-166173">Sub cbReceive(ByVal EntryIDCollection As String)
Dim strEntryID() As String
Dim testObj As Object
Dim intFinal As Integer
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 Debug.Print mai.To
 If mai.To = &quot;me@myoldemail.com&quot; Then
 mai.Subject = &quot;OldDomain &quot; &amp; mai.Subject
 mai.Save
 End If
 End If
 Next
End Sub
</code></pre>
</div>

<div>
Is this right? because when a email is sent to either address nothing pops up. 
 
I'm sure I am doing something wrong. See file Attached 
<a href="https://filedb.experts-exchange.com/incoming/2008/10_w41/65858/Outlook.JPG" target="_blank" class="file-inline" title="Screenshot (93 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Outlook.JPG</a>
</div>

Outlook.JPG

<div>
Sorry .. because I do a lot of this type I use an indirect approach ... and forgot to correct the sub header 
Replace: 
Sub cbReceive(ByVal EntryIDCollection As String) 
with 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) 
 
... or whatever your interface uses as mentioned before. &nbsp;i.e. paste this to replace the body of the Application_NewMailEx subroutine you were using earlier 
 
Chris
</div>

<div>
Okay when I sent a email to the old email my Display name showed up in that box i.e. Karl Lamdin 
 
I guess this is because of the way exchange delivers the mail to the mailbox?!? 
 

</div>

<div>
Indeed ... I need to think about this a bit ... I think I can get to the mail address but need to drag through some history. 
 
Chris
</div>

<div>
Just a thought, but is there a way that we could set it so that if It comes from A then put the message in? or if the last part of the email adress is whatsever@olddomain.com then put the message in. Otherwise I have to touch everybody email address. This is an after thought sorry!!
</div>

<div>
Not clear to me but I understand you may want to select the change off either explicit mail addresses and/or domains ... amd if so then once the resilve issue is sorted the answer is yes. 
 
Chris
</div>

<div>
okay 
 
if the email is sent to *.*@newdomain.com = ignore 
if the email is sent to *.*@olddomain.com = Add Message to the Subject 
 
I would like to apply the script to eveyone without having to put in there old email address. So if the old domain is being used regarless of there name then add the text to the subject. 
 
I don't explain myself to well do I ! :)
</div>

<div>
Well enough ... I understand the request. 
 
It looks as though the easiest solution is to use redemption, (<a href="http://www.dimastr.com/redemption/" rel="ugc">http://www.dimastr.com/redemption/</a>) is this viable for you ... i.e. can you purchase and will IT support it's use? &nbsp;If not i'll keep looking. 
 
Chris
</div>

<div>
I hate to say it, but this is a cheap IS department. I took me near 6 weeks just to get the money for the subscription to experts-exchange. 
 
If this is becoming to much hassle I totally undertsand. Just say you have done more than enough. 
 
But if you manage to create a script I will send it to everyone via email with directions on how to install it. 

</div>

<div>
Leave it open a whiles i'll try and find a solution ... have to justify all that expense :o) 
 
Chris
</div>

<div>
Thanks Chris I appricate your help in this, I have another question open asking the same thing but on the exchange server. No answers also. I will award you the 500 points from there aswell once this is sorted. 
 
Karl
</div>

<div>
Can you provide a real example from the output in the immediate window... replacing name with Mickey mouse for instance but keeping all structure as on a test I would expect something like: 
 
/O=aaaaa/OU=bbbbb/CN=mailid 
 
Chris
</div>

<div>
I think I have a potential solution which involves cycling around all recipients ... is there only the one recipient from the domain in these emails? 
 
Chris
</div>

<div>
The output of the screen is nothing like /0aaaa/OU=bbbb..... 
 
Its just my Display name from Exchange 
 
i.e. Mickey.R.Mouse. 
 

</div>

<div>
My last post will hopefully over-ride this ... it involves cycling around all the recipients, therefore the solution is either: 
 
Only you as the recipient ... check your email domain 
You as one of the recipients ... check each recipient for one of your domains. 
 
I have done a test on a different system with exchange and it seems to work fine so I am reasonbly confident we will have an answer once I know how to handle recipients. 
 
Chris
</div>

<div>
Chris, Sorry I am abit confused now. What would you like me to do? 
 
Is there code &nbsp;that I should be entering?
</div>

<div>
Are you the only recipient n these emails? 
 
Chris
</div>

<div>
no, its &nbsp;company wide. Everyone is being moved over to the new domain name
</div>

<div>
Yes sorry, I understood that but I think that answers my particular question as well. &nbsp;You want an installation that applies to everyone and everyone needs to know if they have been addressed at the old domain. 
 
I think a method to differentiate for the particular mailbox is a bit too much. &nbsp;If you will be happy with setting the mark if ANY address in the email represents the old domain then I will go ahead and try to draft a change to do so. 
 
Is that acceptable? 
 
Chris
</div>

<div>
Yes go ahead with marking Any address that too the old doamin. 
 

</div>

<div>
Place the following code snippet into a normal code module. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-167919">Function GetSMTPAddress(ByVal strAddress As String)
' As supplied by Vikas Verma ... see
' http://blogs.msdn.com/vikas/archive/2007/10/24/oom-getting-primary-smtp-address-from-x400-x500-sip-ccmail-etc.aspx
Dim oCon As ContactItem
Dim strKey As String
Dim oRec As Recipient
Dim strRet As String
Dim fldr As MAPIFolder
 'IF OUTLOOK VERSION IS &gt;= 2007 THEN USES NATIVE OOM PROPERTIES AND METHODS
 On Error Resume Next
 Set fldr = Application.GetNamespace(&quot;MAPI&quot;).GetDefaultFolder(olFolderContacts).Folders.item(&quot;Random&quot;)
 If fldr Is Nothing Then
 Application.GetNamespace(&quot;MAPI&quot;).GetDefaultFolder(olFolderContacts).Folders.Add &quot;Random&quot;
 Set fldr = Application.GetNamespace(&quot;MAPI&quot;).GetDefaultFolder(olFolderContacts).Folders.item(&quot;Random&quot;)
 End If
 On Error GoTo 0
 If CInt(Left(Application.Version, 2)) &gt;= 12 Then
 Set oRec = Session.CreateRecipient(strAddress)
 If oRec.Resolve Then
 strRet = oRec.AddressEntry.GetExchangeUser.PrimarySmtpAddress
 End If
 End If
 If Not strRet = &quot;&quot; Then GoTo ReturnValue
 'IF OUTLOOK VERSION IS &lt; 2007 THEN USES LITTLE HACK
 'How it works
 '============
 '1) It will create a new contact item
 '2) Set it's email address to the value passed by you, it could be X500,X400 or any type of email address stored in the AD
 '3) We will assign a random key to this contact item and save it in its Fullname to search it later
 '4) Next we will save it to local contacts folder
 '5) Outlook will try to resolve the email address &amp; make AD call if required else take the Primary SMTP address from its cache and append it to Display name
 '6) The display name will be something like this &quot; ( email.address@server.com )&quot;
 '7) Now we need to parse the Display name and delete the contact from contacts folder
 '8) Once the contact is deleted it will go to Deleted Items folder, after searching the contact using the unique random key generated in step 3
 '9) We then need to delete it from Deleted Items folder as well, to clean all the traces
 Set oCon = fldr.Items.Add(olContactItem)
 oCon.Email1Address = strAddress
 strKey = &quot;_&quot; &amp; Replace(Rnd * 100000 &amp; Format(Now, &quot;DDMMYYYYHmmss&quot;), &quot;.&quot;, &quot;&quot;)
 oCon.FullName = strKey
 oCon.Save
 strRet = Trim(Replace(Replace(Replace(oCon.Email1DisplayName, &quot;(&quot;, &quot;&quot;), &quot;)&quot;, &quot;&quot;), strKey, &quot;&quot;))
 oCon.Delete
 Set oCon = Nothing
 Set oCon = Session.GetDefaultFolder(olFolderDeletedItems).Items.Find(&quot;[Subject]=&quot; &amp; strKey)
 If Not oCon Is Nothing Then oCon.Delete
ReturnValue:
 GetSMTPAddress = strRet
End Function
</code></pre>
</div>

<div>
Place the following snippet in thisoutlooksession as the ONLY newmailexsub and set the constant OopsDomain &nbsp;to your old domain. 
 
I have tested this in my own area and as long as there is no conmtact, (for the recipient) in the contacts folder for the name then it seems to work fine. 
 
Let me know how it goes of course. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-167923">Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Const OopsDomain = &quot;@olddomain.com&quot;
Dim strEntryID() As String
Dim intFinal As Integer
Dim testObj As Object
Dim mai As mailitem
Dim emailAddress As String
Dim recip As Integer
Dim updateSubject As Boolean
Dim checkdomain As String
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 checkdomain = OopsDomain
 If Left(checkdomain, 1) &lt;&gt; &quot;@&quot; Then checkdomain = &quot;@&quot; &amp; checkdomain
 updateSubject = False
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 For recip = 1 To mai.Recipients.Count
 emailAddress = GetSMTPAddress(mai.Recipients(recip).Name)
 If Right(Replace(emailAddress, &quot;'&quot;, &quot;&quot;), Len(checkdomain)) = checkdomain Then updateSubject = True
 Next
 End If
 If updateSubject Then
 mai.Subject = &quot;Old Domain : &quot; &amp; mai.Subject
 mai.Save
 End If
 Next
 
End Sub
</code></pre>
</div>

<div>
Is this correct? I have left the old domain name in there aswell so that you can see if I am doing it right or not. 
 
<a href="https://filedb.experts-exchange.com/incoming/2008/10_w41/66575/Module.JPG" target="_blank" class="file-inline" title="Module (164 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Module.JPG</a> 
<a href="https://filedb.experts-exchange.com/incoming/2008/10_w41/66576/This-Session.JPG" target="_blank" class="file-inline" title="Winodws Session (124 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>This-Session.JPG</a>
</div>

Module.JPG

This-Session.JPG

<div>
Looks about right. &nbsp;Is there a problem ... if so are macros enabled in outlook? 
 
Tools Macro Security &nbsp;set to medium for instance 
 
Chris
</div>

<div>
Could you email me directly. I just want to send you something that i don't need the world to see. 
 
karl.r.newick@hitchcock.org
</div>

<div>
OK, I think I see what could be happening, the code is case sensitive at the moment so replace: 
 
newmailex as below: 
 
Chris 

<pre><code class="code-10 nolinks" id="code-168001">Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Const OopsDomain = &quot;@olddomain.com&quot;
Dim strEntryID() As String
Dim intFinal As Integer
Dim testObj As Object
Dim mai As mailitem
Dim emailAddress As String
Dim recip As Integer
Dim updateSubject As Boolean
Dim checkdomain As String
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 checkdomain = lcase(OopsDomain)
 If Left(checkdomain, 1) &lt;&gt; &quot;@&quot; Then checkdomain = &quot;@&quot; &amp; checkdomain
 updateSubject = False
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 For recip = 1 To mai.Recipients.Count
 emailAddress = GetSMTPAddress(mai.Recipients(recip).Name)
 If lcase(Right(Replace(emailAddress, &quot;'&quot;, &quot;&quot;), Len(checkdomain))) = checkdomain Then updateSubject = True
 Next
 End If
 If updateSubject Then
 mai.Subject = &quot;Old Domain : &quot; &amp; mai.Subject
 mai.Save
 End If
 Next
 
End Sub
</code></pre>
</div>

<div>
Apologies I do not have access to server for now so can you try the following to gather data for both the old and the new domain. 
 
Chris 

<pre><code class="code-10 nolinks" id="code-168156">Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Const OopsDomain = &quot;@olddomain.com&quot;
Dim strEntryID() As String
Dim intFinal As Integer
Dim testObj As Object
Dim mai As mailitem
Dim emailAddress As String
Dim recip As Integer
Dim updateSubject As Boolean
Dim checkdomain As String
 
 strEntryID = Split(EntryIDCollection &amp; &quot;,&quot;, &quot;,&quot;)
 checkdomain = lcase(OopsDomain)
 If Left(checkdomain, 1) &lt;&gt; &quot;@&quot; Then checkdomain = &quot;@&quot; &amp; checkdomain
 updateSubject = False
 For intFinal = 0 To UBound(strEntryID) - 1
 Set testObj = Application.Session.GetItemFromID(strEntryID(intFinal))
 If testObj.Class = olMail Then
 Set mai = testObj
 For recip = 1 To mai.Recipients.Count
 debug.print mai.Recipients(recip).Name
 debug.print mai.Recipients(recip).address
 Next
 End If
 If updateSubject Then
 mai.Subject = &quot;Old Domain : &quot; &amp; mai.Subject
 mai.Save
 End If
 Next
 
End Sub
</code></pre>
</div>

<div>
Excellent Work! Thanks for al lyou help in this matter
</div>

<div>
<div class="content wysiwyg-content">
I have 2 email address that point to the same mailbox within Exchange. 
 
me@olddomain.com 
me@newdomain.com 
 
I would like to know what email address people are sending too. I would like to add &quot;OldDomain&quot; on to the Subject of the email if they send it from the olddomain. 
 
I don't care if they are sending it to the newdomain 
 
I would like a VBS that can do this automatically and is easy to deploy. 
 
Thanks in Advance! 
 

</div>
</div>

I have 2 email address that point to the same mailbox within Exchange.

me@olddomain.com
me@newdomain.com

I would like to know what email address people are sending too. I would like to add "OldDomain" on to the Subject of the email if they send it from the olddomain. 

I don't care if they are sending it to the newdomain

I would like a VBS that can do this automatically and is easy to deploy.

Thanks in Advance!



Change Subject on incoming email.

Microsoft Outlook is a personal information manager from Microsoft, available as a part of the Microsoft Office suite. Although often used mainly as an email application, it also includes a calendar, task manager, contact manager, note-taker, journal, and web browser.