Hi Ken,

Sorry, same error :-(

Anything else?

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile: http://www.thecodecage.com/forumz/member.php?userid=613
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=121980

If this is Outlook 2003 or earlier then change the declaration in
Application_NewMailEx() on the line:

Dim myInbox As folder

To this:

Dim myInbox As MAPIFolder

Make sure no lines are showing in red in case any line breaks were added
that split lines of code.

If that doesn't help then what line is highlighted on the error?

This is being put into the Outlook VBA project?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Glen.Cooper" wrote in message
...

Hi Ken,

Sorry, same error :-(

Anything else?

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile:
http://www.thecodecage.com/forumz/member.php?userid=613
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=121980

Hi Ken,

Yes that has helped the code along. Thankyou!

Now there is a syntax error in Module1:

Set GetCurrentItem =

Any suggestions?

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile: http://www.thecodecage.com/forumz/member.php?userid=613
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=121980

Make sure no lines are showing in red in case any line breaks were added
that split lines of code.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Glen.Cooper" wrote in message
...

Hi Ken,

Yes that has helped the code along. Thankyou!

Now there is a syntax error in Module1:

Set GetCurrentItem =

Any suggestions?

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile:
http://www.thecodecage.com/forumz/member.php?userid=613
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=121980

Hi Guys, thanks for all your help so far :-)

Here below is the script which works well enough:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
If TypeName(Item) = "MailItem" Then
Dim strSubject As String
strSubject = Item.Subject
Item.Subject = Item.SenderName & " " & Date & " " & Item.Subject
End If
End Sub
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim myNameSpace As NameSpace
Dim myInbox As MAPIFolder
Dim myItem As Object
Dim strSubject As String
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
For i = 1 To myInbox.Items.Count
Set myItem = myInbox.Items.Item(i)
If myItem.EntryID = EntryIDCollection Then Exit For
Next
strSubject = myItem.Subject
myItem.Subject = myItem.SenderName & " " & Date & " " & myItem.Subject
myItem.Save
End Sub

Exceptions are that the macro does not seem to work unless the mail has
been recieved while you are online and running OUTLOOK at the same time.
Perhaps this macro has to be run from a constanlty working server to
make sure that ALL emails are date stamped.

For all those email that arrive out of hours or when you are not at the
machine, use:

Sub Date_Stamp_Subject()
Dim myItem As MailItem
Dim strSubject As String
Set myItem = GetCurrentItem()
myItem.Subject = myItem.SenderName & " " & myItem.CreationTime & " " &
myItem.Subject
myItem.Save
End Sub
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function

This works well, BUT it date stamps the mail with the information in
the following format - *SENDERNAME YYYYMMDD HHMMSS*. I definitelty do
not need this amount of information!

Does anyone know how I can reduce the stamp to this alone?

SENDERNAME YYMMDD

Any help would be very much appreciated :-)

Thanks again.

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile: http://www.thecodecage.com/forumz/member.php?userid=613
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=121980

Use the Format function for that. In this case you'd probably want the
format to look like this:

Format(date, "yymmdd")

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Glen.Cooper" wrote in message
...

Hi Guys, thanks for all your help so far :-)

Here below is the script which works well enough:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
If TypeName(Item) = "MailItem" Then
Dim strSubject As String
strSubject = Item.Subject
Item.Subject = Item.SenderName & " " & Date & " " & Item.Subject
End If
End Sub
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim myNameSpace As NameSpace
Dim myInbox As MAPIFolder
Dim myItem As Object
Dim strSubject As String
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
For i = 1 To myInbox.Items.Count
Set myItem = myInbox.Items.Item(i)
If myItem.EntryID = EntryIDCollection Then Exit For
Next
strSubject = myItem.Subject
myItem.Subject = myItem.SenderName & " " & Date & " " & myItem.Subject
myItem.Save
End Sub

Exceptions are that the macro does not seem to work unless the mail has
been recieved while you are online and running OUTLOOK at the same time.
Perhaps this macro has to be run from a constanlty working server to
make sure that ALL emails are date stamped.

For all those email that arrive out of hours or when you are not at the
machine, use:

Sub Date_Stamp_Subject()
Dim myItem As MailItem
Dim strSubject As String
Set myItem = GetCurrentItem()
myItem.Subject = myItem.SenderName & " " & myItem.CreationTime & " " &
myItem.Subject
myItem.Save
End Sub
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function

This works well, BUT it date stamps the mail with the information in
the following format - *SENDERNAME YYYYMMDD HHMMSS*. I definitelty do
not need this amount of information!

Does anyone know how I can reduce the stamp to this alone?

SENDERNAME YYMMDD

Any help would be very much appreciated :-)

Thanks again.

Glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile:
http://www.thecodecage.com/forumz/member.php?userid=613
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=121980

'Ken Slovak - [MVP - Outlook Wrote:
;447425']Use the Format function for that. In this case you'd probably
want the
format to look like this:

Format(date, "yymmdd")

--
Ken Slovak
[MVP - Outlook]
'Slovak Technical Services Home' (http://www.slovaktech.com)
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
'Slovak Technical Services Products'
(http://www.slovaktech.com/products.htm)


"Glen.Cooper" wrote in message
...

Hi Guys, thanks for all your help so far :-)

Here below is the script which works well enough:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)
If TypeName(Item) = "MailItem" Then
Dim strSubject As String
strSubject = Item.Subject
Item.Subject = Item.SenderName & " " & Date & " " & Item.Subject
End If
End Sub
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim myNameSpace As NameSpace
Dim myInbox As MAPIFolder
Dim myItem As Object
Dim strSubject As String
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
For i = 1 To myInbox.Items.Count
Set myItem = myInbox.Items.Item(i)
If myItem.EntryID = EntryIDCollection Then Exit For
Next
strSubject = myItem.Subject
myItem.Subject = myItem.SenderName & " " & Date & " " &
myItem.Subject
myItem.Save
End Sub

Exceptions are that the macro does not seem to work unless the mail
has
been recieved while you are online and running OUTLOOK at the same
time.
Perhaps this macro has to be run from a constanlty working server to
make sure that ALL emails are date stamped.

For all those email that arrive out of hours or when you are not at
the
machine, use:

Sub Date_Stamp_Subject()
Dim myItem As MailItem
Dim strSubject As String
Set myItem = GetCurrentItem()
myItem.Subject = myItem.SenderName & " " & myItem.CreationTime & " "
&
myItem.Subject
myItem.Save
End Sub
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
End Select
Set objApp = Nothing
End Function

This works well, BUT it date stamps the mail with the information in
the following format - *SENDERNAME YYYYMMDD HHMMSS*. I definitelty
do
not need this amount of information!

Does anyone know how I can reduce the stamp to this alone?

SENDERNAME YYMMDD

Any help would be very much appreciated :-)

Thanks again.

Glen


--
Glen.Cooper

------------------------------------------------------------------------
Glen.Cooper's Profile:
'The Code Cage Forums - View Profile: Glen.Cooper'
(http://www.thecodecage.com/forumz/member.php?userid=613)
View this thread:
'Date Stamp in SUBJECT BOX of Outgoing/Incoming Mail - The Code Cage
Forums' (http://www.thecodecage.com/forumz/sh...d.php?t=121980)


Hi,

Can you tell me how to write into the code above a way to change the
format to YYYY/MM/DD please?

I cannot figure it out...

glen


--
Glen.Cooper
------------------------------------------------------------------------
Glen.Cooper's Profile: http://www.thecodecage.com/forumz/member.php?userid=613
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=121980