Enviar email com excel 2013 gerando erro

Question

O comando abaixo, funciona normalmente no excel 2010, porém parou de funcionar no excel 2013, na linha destacada em negrito. Alguma observação ou sugestão para corrigir o problema. Desde já obrigado.

Sub Envio_Email()

Sheets("CAPA").Unprotect "123"
Sheets("CAPA").Activate
ActiveSheet.Range("C1:P45").Select
ActiveWorkbook.EnvelopeVisible = True
   With ActiveSheet.MailEnvelope
      .Item.To = ActiveSheet.Range("Z1")
      .Item.CC = ActiveSheet.Range("Z2")
      .Item.Subject = ActiveSheet.Range("M10") & " - LIBERAÇÃO DE EMBARQUE"
      .Item.send


   End With

Sheets("Capa").Protect "123"

End Sub

             

Answer 1

Bom dia Rodrigo,

Testei aqui e está funcionando normalmente.

Aparece alguma mensagem de erro ?

Answer 2

Bom dia! segue tela do erro logo abaixo.

Observação: estou utilizando excel e outlook 2013

Answer 3

Nunca me deparei com essa mensagem, mas pesquisando encontrei algo no suporte da microsoft. Veja se ajuda:

https://support.microsoft.com/pt-br/kb/248404