Visual Basic - Cambiar asunto en msg de Outlook

Hola a todos,

Tengo que hacer un programa que lea los mensaje de correo de las carpetas de un PST y cambiar el contenido de los "asuntos". Tengo que ir 1 a 1, leer el asunto, añadirle un nº al inicio y guardarlo. De esta forma los msg que por asunto tengan lo mismo, los diferenciará el mensaje del asunto al añadir el nº.

Por ahora he conseguido llegar a la carpeta y leer el asunto de los emails como pongo aquí:

Sub LeerDeInbox()

Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")

Set Fldr = olNs.Folders("Topografia").Folders("Daniel")
i = 1

For Each olMail In Fldr.Items
MsgBox olMail.Subject
MsgBox olMail.SenderName
MsgBox olMail.SenderEmailAddress
i = i + 1
Next olMail

Set Fldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

End Sub

Ahora deseo modificar el Subject añadiendo ese nº. ¿Cómo se puede escribir ahí?

Gracias a todos.

Buenas tardes,

Estoy buscando lo mismo que comentó mediocad es su día, ya se que es bastante antiguo pero he estado buscando y no encuentro nada parecido.

Es decir necesito leer un correo, modificar el asunto y guardar los cambios, yo estoy programando en Visual Studio 2010 pero me da igual si alguien lo tiene en vba, vb6 o en C#.

Desde el propio Outlook deja hacerlo manualmente pero necesito hacer desde una app.

Gracias, espero respuesta