How do i add the date to subject header of incoming mail?

P

primed

Hi,

How do i automatically add the date yy/mm/dd to the front of the subject
header of incoming mail? Would gather its something to do with create rules
then run script, but cant workout how to create a script.

Thanks
Primed
 
M

Michael Bauer [MVP - Outlook]

The script that can be run by a rule must look like this:

Public Sub Whatever(Mail as Outlook)
Mail.Subject=Date & " " & Mail.Subject
Mail.Save
End Sub

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb primed:
 
M

Michael Bauer [MVP - Outlook]

Sorry, the first line should look like this:

Public Sub Whatever(Mail as Outlook.MailItem)

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
 
P

primed

Cheers, that works better.
Can the date be reversed so its like this 100407


Also can the files attached to the document be renamed to have the same date
before them.

Thanks
Primed
 
P

primed

The script doesnt run when the rule is initiated automatically. ie
when the mail comes in. The other aspects of the rule work just not the
script.

When i run the rule manually, through the apply rule to existing mail tick
box everything works good.

Any ideas?
 
M

Michael Bauer [MVP - Outlook]

1) See the Format function.

2) I've never tried it, but AFAIK you can't rename an attached file, instead
you'd have first to rename the file, then attach it. For that you could
monitor AttachmentAdd function: If you detect a file has been attached, save
it as a file, remove it from the email, rename the file, and attach it
again.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Tue, 6 Apr 2010 17:03:01 -0700 schrieb primed:
 
M

Michael Bauer [MVP - Outlook]

Maybe there's another rule working on the received message for that you have
set the "don't execute more rules" action?

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>

Am Tue, 6 Apr 2010 18:01:01 -0700 schrieb primed:
 
P

primed

Hi Michael,

1) Looked there but it didnt seem to give me the answer i was after.
 
M

Michael Bauer [MVP - Outlook]

To that function you can pass the format you want, use YY for a two digit
year, YYYY for a four digit year, etc.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Wed, 7 Apr 2010 17:13:01 -0700 schrieb primed:
 
D

DarrenD

Hi

i've never created a script before and hope i have done it correctly

i opened Tool>Macro>Visual Basic Editor
inserted a new module
copied in

Public Sub Whatever(Mail As Outlook.MailItem)
Mail.Subject = Date & " " & Mail.Subject
Mail.Save
End Sub

and saved

then in Tools>Rules and Alerts and created a new rule

Apply this rule after the message arrives
on this machine only
run Project1.Whatever

i ran it on my inbox an sent myself an email and nothing happens

im on office outlook 2003 SP2

many thanks
Darre
 
M

Michael Bauer [MVP - Outlook]

Does it make a difference if you move the code from the module to
ThisOutlookSession? (Don't forget to edit the rule, too.)

If not, set a breakpoint (f9) on the first line of code. Does the code
execution stopps there when a new message arrives?

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>



Am Fri, 7 May 2010 10:47:41 +0100 schrieb DarrenD:
 
D

DarrenD

I have copied it to the ThisOutlookSession and created a new rule to
pick it up

i set the breakpoint on the line
Mail.Subject = Date & " " & Mail.Subject

sent a couple of emails to the account and they still got delivered
without any date in the subject bar



'Michael Bauer [MVP - Outlook said:
;348674']Does it make a difference if you move the code from the module
to
ThisOutlookSession? (Don't forget to edit the rule, too.)

If not, set a breakpoint (f9) on the first line of code. Does the code
execution stopps there when a new message arrives?

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
http://www.vboffice.net/product.html?lang=en



Am Fri, 7 May 2010 10:47:41 +0100 schrieb DarrenD:
-
Hi

i've never created a script before and hope i have done it correctly

i opened ToolMacroVisual Basic Editor
inserted a new module
copied in

Public Sub Whatever(Mail As Outlook.MailItem)
Mail.Subject = Date & " " & Mail.Subject
Mail.Save
End Sub

and saved

then in ToolsRules and Alerts and created a new rule

Apply this rule after the message arrives
on this machine only
run Project1.Whatever

i ran it on my inbox an sent myself an email and nothing happens

im on office outlook 2003 SP2

many thanks
Darren-
Click to expand...
 
M

Michael Bauer [MVP - Outlook]

So the code execution doesn't stop there? Then check Tools/Macros/Security,
whether VBA is executed at all.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Fri, 14 May 2010 16:42:29 +0100 schrieb DarrenD:
I have copied it to the ThisOutlookSession and created a new rule to
pick it up

i set the breakpoint on the line
Mail.Subject = Date & " " & Mail.Subject

sent a couple of emails to the account and they still got delivered
without any date in the subject bar



'Michael Bauer [MVP - Outlook said:
;348674']Does it make a difference if you move the code from the module
to
ThisOutlookSession? (Don't forget to edit the rule, too.)

If not, set a breakpoint (f9) on the first line of code. Does the code
execution stopps there when a new message arrives?

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
http://www.vboffice.net/product.html?lang=en



Am Fri, 7 May 2010 10:47:41 +0100 schrieb DarrenD:
-
Hi

i've never created a script before and hope i have done it correctly

i opened ToolMacroVisual Basic Editor
inserted a new module
copied in

Public Sub Whatever(Mail As Outlook.MailItem)
Mail.Subject = Date & " " & Mail.Subject
Mail.Save
End Sub

and saved

then in ToolsRules and Alerts and created a new rule

Apply this rule after the message arrives
on this machine only
run Project1.Whatever

i ran it on my inbox an sent myself an email and nothing happens

im on office outlook 2003 SP2

many thanks
Darren-
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How do I script to change the subject line of incoming mail? 6
Save incoming Email as .html file with name of subject line 3
how to save incoming mail in TRUE csv format 1
date format outlook vba 1
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Extract specific information from the body of outlook mail to an Excel File using VBA 0
incoming header data changes in outlook 2003 1
How do I change date on incoming email? 1

Top