none
Enviar email com excel 2013 gerando erro RRS feed

  • Pergunta

  • 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

                 
    segunda-feira, 26 de outubro de 2015 18:48

Respostas

  • 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

    terça-feira, 27 de outubro de 2015 16:13

Todas as Respostas