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

Status
Not open for further replies.
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
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
 
P

primed

Hi Michael,

It came up with a run error.

Any ideas?

Thanks

Primed

"Michael Bauer " wrote:



> 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
> Category Manager -

> SAM - The Sending Account Manager:
>

> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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

> .
>
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Sorry, the first line should look like this:

Public Sub Whatever(Mail as Outlook.MailItem)

Best regards

Michael Bauer

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


> Hi Michael,

> It came up with a run error.
> Any ideas?

> Thanks
> Primed

> "Michael Bauer " wrote:
>
>

>
>> 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
> > Category Manager -

> > SAM - The Sending Account Manager:
> >

>
>
>> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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

> > .
> >
 
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

"Michael Bauer " wrote:



> Sorry, the first line should look like this:

> Public Sub Whatever(Mail as Outlook.MailItem)

> > Best regards
> Michael Bauer
> Category Manager -

> SAM - The Sending Account Manager:
>

> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
>
> > Hi Michael,
> > It came up with a run error.
> > Any ideas?
> > Thanks
> > Primed
> > "Michael Bauer " wrote:
> >
> >
> >
> >> 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
> >> Category Manager -

> >> SAM - The Sending Account Manager:
> >>

> >
> >
> >> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >> .
> >>

> .
>
 
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?

"Michael Bauer " wrote:



> Sorry, the first line should look like this:

> Public Sub Whatever(Mail as Outlook.MailItem)

> > Best regards
> Michael Bauer
> Category Manager -

> SAM - The Sending Account Manager:
>

> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
>
> > Hi Michael,
> > It came up with a run error.
> > Any ideas?
> > Thanks
> > Primed
> > "Michael Bauer " wrote:
> >
> >
> >
> >> 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
> >> Category Manager -

> >> SAM - The Sending Account Manager:
> >>

> >
> >
> >> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >> .
> >>

> .
>
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

Am Tue, 6 Apr 2010 17:03:01 -0700 schrieb 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

> "Michael Bauer " wrote:
>
>

>> Sorry, the first line should look like this:
>

>> Public Sub Whatever(Mail as Outlook.MailItem)
>

>> > > Best regards
> > Michael Bauer
> > Category Manager -

> > SAM - The Sending Account Manager:
> >

>
>
>> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
> >
> >> Hi Michael,
> >
>>> It came up with a run error.
> >> Any ideas?
> >
>>> Thanks
> >> Primed
> >
>>> "Michael Bauer " wrote:
> >
>>>
>>>
>>>> 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
> >>> Category Manager -

> >>> SAM - The Sending Account Manager:
> >>>

>>>
>>>
>>>> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >>> .
> >>>

> > .
> >
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

Am Tue, 6 Apr 2010 18:01:01 -0700 schrieb 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?

> "Michael Bauer " wrote:
>
>

>> Sorry, the first line should look like this:
>

>> Public Sub Whatever(Mail as Outlook.MailItem)
>

>> > > Best regards
> > Michael Bauer
> > Category Manager -

> > SAM - The Sending Account Manager:
> >

>
>
>> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
> >
> >> Hi Michael,
> >
>>> It came up with a run error.
> >> Any ideas?
> >
>>> Thanks
> >> Primed
> >
>>> "Michael Bauer " wrote:
> >
>>>
>>>
>>>> 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
> >>> Category Manager -

> >>> SAM - The Sending Account Manager:
> >>>

>>>
>>>
>>>> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >>> .
> >>>

> > .
> >
 
P

primed

Hi Michael,

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

"Michael Bauer " wrote:



> 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
> Category Manager -

> SAM - The Sending Account Manager:
>

> Am Tue, 6 Apr 2010 17:03:01 -0700 schrieb 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
> > "Michael Bauer " wrote:
> >
> >
> >> Sorry, the first line should look like this:
> >
> >> Public Sub Whatever(Mail as Outlook.MailItem)
> >
> >> > >> Best regards
> >> Michael Bauer
> >> Category Manager -

> >> SAM - The Sending Account Manager:
> >>

> >
> >
> >> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
> >
> >>> Hi Michael,
> >>
> >>> It came up with a run error.
> >>> Any ideas?
> >>
> >>> Thanks
> >>> Primed
> >>
> >>> "Michael Bauer " wrote:
> >>
> >>>
> >>>
> >>>> 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
> >>>> Category Manager -

> >>>> SAM - The Sending Account Manager:
> >>>>

> >>>
> >>>
> >>>> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >>>> .
> >>>
> >> .
> >>

> .
>
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

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


> Hi Michael,

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

> "Michael Bauer " wrote:
>
>

>
>> 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
> > Category Manager -

> > SAM - The Sending Account Manager:
> >

>
>
>> Am Tue, 6 Apr 2010 17:03:01 -0700 schrieb 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
> >
>>> "Michael Bauer " wrote:
> >
>>>
>>>> Sorry, the first line should look like this:
> >>
>>>> Public Sub Whatever(Mail as Outlook.MailItem)
> >>
>>>> > >>> Best regards
> >>> Michael Bauer
> >>> Category Manager -

> >>> SAM - The Sending Account Manager:
> >>>

>>>
>>>
>>>> Am Mon, 5 Apr 2010 17:41:02 -0700 schrieb primed:
> >>
>>>>> Hi Michael,
> >>>
>>>>> It came up with a run error.
> >>>> Any ideas?
> >>>
>>>>> Thanks
> >>>> Primed
> >>>
>>>>> "Michael Bauer " wrote:
> >>>
>>>>>
>>>>>
>>>>>> 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
> >>>>> Category Manager -

> >>>>> SAM - The Sending Account Manager:
> >>>>>

>>>>>
>>>>>
>>>>>> Am Wed, 31 Mar 2010 22:47:01 -0700 schrieb 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
> >>>>> .
> >>>>
>>>> .
> >>>

> > .
> >
 
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

Darren

DarrenD
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
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

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 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
> Darren
 
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 Wrote:
> ;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
> Category Manager -

> 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-


DarrenD
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
So the code execution doesn't stop there? Then check Tools/Macros/Security,

whether VBA is executed at all.

Best regards

Michael Bauer

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 Wrote:
> > ;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
> > Category Manager -

> > 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-
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
D Add date next to day name in Outlook Today calendar view Using Outlook 1
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
A Email Macro to add Date and Classification Outlook VBA and Custom Forms 2
C add a date without holidays Outlook VBA and Custom Forms 2
0 Add a date stamp to the note field of a custom form Outlook VBA and Custom Forms 1
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 10
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 4
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
Z Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
Z Task Filter Not Working When I add too many criteria Using Outlook 0
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9

Similar threads

Top