Recent content by Elrick

Hi all, I can't jump over this one: Sub AssignToSelected() ' Assign ID to selected e-mails Dim oneitem, onecollection As Object Set onecollection = Application.ActiveExplorer.Selection iTotalItems = onecollection.count iItemsUpdated = 1 For i = iTotalItems To 1 Step -1 Set oneitem =...

Thanks Diane, I will try this, I couldn't find this anywhere.

Let say I have 15 messages, I run my script and each selected message will get number in subject in order so it will be: [1]Subject [2]Subject [3]Subject ...[15]Subject I've just received another message so I have 16 e-mails, I'm gonna run my script, at the moment everything shows as...

Thanks Michael, that works fine, have one more question, what I have to add to make this code clear previous subject every time I run this macro, I don't want things like [0][1][2], is it possible to keep original subject and just replace things in bracket but with new values? Here is the code...

Diane, how to modify this code to make it count items and write item number in brackets in subject, for example I have 3 e-mails in folder and I want them this way: [1] Sample Subject [2] Sample Subject 2 [3] Sample Subject 3 so each message have own number. I would like to apply this to...

I've change the code, tested, seems to be ok: Sub AddREMNumber() Dim myolApp As Outlook.Application Dim aItem As Object Dim currentExplorer As Explorer Dim Selection As Selection Set currentExplorer = Application.ActiveExplorer Set Selection = currentExplorer.Selection Set myolApp =...

Hi Patrick, same like you I have no VBA knowledge but I've found this, hope it helps. Sub renameEmails() On Error Resume Next Dim MsgColl As Object Dim msg As Outlook.MailItem Dim objNS As Outlook.NameSpace Dim i As Long Dim subjectname As String Select Case TypeName(Application.ActiveWindow)...