Visual Basic - VB 6.0 y outlook 2013

Hola buenas, gracias de antemano por la atencion.
Bien, resulta que por la necesidad de Microsoft de dar un poco por saco, estamos pasando el codigo para qye sea compatible con los nuevos modelos de office, en el caso de word, excel etc.. va bien pero tengo un problema con el outlook, no se llega a quejar, no da ningun error, os comparto el codigo a ver si alguen tiene una pequeña idea de que pueda ser, o si podeis orientarme cuales son los cambios de otras versiones de outlook a la 2013.
Gracias de nuevo

Private Sub Enviar_Mail(ByVal emailw As String, ByVal fichero As String)

Dim ObjOutlook As New Outlook.Application
Dim ObjMail As MailItem
'MsgBox "Paso por enviar"
Set ObjMail = ObjOutlook.CreateItem(olMailItem)
With ObjMail
.To = emailw 'destinatario
.Subject = "Precios" ' asunto del mensaje
.Bodytext = "Señores," & vbCr & vbCr & "Les enviamos tarifa de precios." & vbCr & vbCr & "Reciban un cordial saludo" 'cuerpo del mensaje
.Importance = olImportanceHigh 'la importancia
.Attachments.add sFilename
.Send
End With
End Sub

tema resuelto, gracias

Hola Josep

Como lo solucionaste?

Gracias y un saludo