Vista - Which is the error in this VBS

I have the following routine to add date to the subject, but alone of the
marked the first messages, someone can say to me in that I am wrong

Thank

Sub añado_fecha_asunto()

Dim ol As Object
Dim olns As Object
Dim dia, mes
Dim strfecha As String
Dim asuntofecha As String

Dim i As Integer

If Day(Date) < 10 Then
dia = "0" & Day(Date)
End If

If Day(Date) >= 10 Then
dia = Day(Date)
End If

' añado un 0 si el mes tiene un digito

If Month(Date) < 10 Then
mes = "0" & Month(Date)
End If

If Month(Date) >= 10 Then
mes = Month(Date)
End If

' Pongo variable strfecha a la cabecera necesaria

strfecha = ("09" & " - " & mes & " - " & dia & " ")


Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set myFolder = ol.ActiveExplorer.CurrentFolder

numitems = ol.ActiveExplorer.Selection.Count

For i = 1 To numitems


' MsgBox ol.ActiveExplorer.Selection.Item(i).Subject


asuntofecha = strfecha &
ol.ActiveExplorer.Selection.Item(i).Subject

MsgBox asuntofecha

ol.ActiveExplorer.Selection.Item(i).Subject = asuntofecha


Next i





End Sub

"Javier VFM" <JavierVFM@xxxxxx> wrote in message
news:67FAA8AC-827A-4DAE-A24F-2A3515FFE2BF@xxxxxxThe code is classic VB rather than VBScript. You cannot type variables in
VBScript. None of the Dim statements should have the "AS" keyword. When
objects are created, use either CreateObject or GetObject methods in
VBScript.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

I am sorry but is a Vba proyect and is a macro in the VB outlook.

is correct or no

"Richard Mueller [MVP]" wrote:

In that case you need a VB forum. VB and VBScript are two different beasts.

--

Joe Fawcett (MVP - XML)
http://joe.fawcett.name
"Javier VFM" <JavierVFM@xxxxxx> wrote in message
news:7CD71BA5-2043-40A3-B9DE-AD0B13A3CDB8@xxxxxx

On Thu, 05 Mar 2009 10:41:01 GMT, JavierVFM wrote:
[snip]I would declare these both as strings:
Dim dia As String, mes As String
Replace the above two lines with "Else".
Replace the above two lines with "Else".

My suggestions won't solve your problem, whatever it is. (I don't know
anything about Outlook. Your code looks okay to me.) I would ask this
question in this group:
microsoft.public.office.developer.outlook.vba

--
auric dot auric at gmail dot com
--
Starting today, all passwords must contain letters,
numbers, doodles, sign language, and squirrel noises.

or perhaps a VBA forum, as vb, vbscript, and vba are three different beasts.

/Al

"Joe Fawcett" <joefawcett@xxxxxx> wrote in message
news:uvnuxlbnJHA.5412@xxxxxx