Envio email

Buenas

tengo un archivo que guarda la hoja en pdf y la envia por email, funciona perfectamente en office 2010

Sub envio_mail()

'envio correo pdf

  Application.ScreenUpdating = True

ActiveSheet.Unprotect Password:=""


Dim npres, cliente, Email, rutapdf, LIBRO, ArchivoPdf As String

Dim ProgCorreo, CorreoSaliente As Object


With Application


.ScreenUpdating = False

.EnableEvents = False

.DisplayAlerts = False


End With


Set npres = Range("J5")

Set cliente = Range("g10")

Set Email = Range("g15")

rutapdf = "C:\SkyDrive\Documentos\presupuestos\"


ArchivoPdf = Range("F7")


Set ProgCorreo = CreateObject("Outlook.Application")

Set CorreoSaliente = ProgCorreo.CreateItem(0)



On Error Resume Next

With CorreoSaliente

.To = Email

'.To = Email & ";"

.CC = ""

.BCC = ""

.Subject = "Envío de su presupuesto nº " & npres

.ReadReceiptRequested = True

.Body = "Estimados Sres.:" & Chr(13) & _

"Nos complace realizar el envío del presupuesto del asunto, según nuestro acuerdo." _

& Chr(13) & "Atentamente..."

.Attachments.Add (ArchivoPdf)

.Display 'o .Send para enviar sin ver

End With[/CODE]

en office 2010 pongo

y funciona bien, abre el outlook y pone la direccion de correo que esta en G15, sin embargo en office 2013 no.

Tengo que poner

para que funcione

¿es normal? o soy yo que estoy haciendo algo mal