none
Macro Enviar RRS feed

  • Pergunta

  • Fiz uma macro que envia a planilha por e-mail. Ela funciona normalmente em máquinas com Windows 7 e Excel 2007.

    Porém, em máquina com Windows 10 e Excel 2007 ela roda somente até o momento de incluir o destinatário.

    Nesse momento, ela dá o erro: O método "To" do objeto '_MailItem' falhou.

    O que devo fazer para corrigir isso? Será que devo fazer uma correção na macro ou trata-se de erro de configuração dos programas?

    Segue a macro:

    Set myOlApp = CreateObject("Outlook.Application")
    Set myItem = myOlApp.CreateItem(olMailItem)
    Set myAttachments = myItem.Attachments
     
     Dim Anexo As String
     Anexo = Sheets("Preenchimento").Range("Y2")
     
     Dim Resposta1 As String
     Resposta1 = Sheets("Preenchimento").Range("Z1")
     
     Dim Resposta2 As String
     Resposta2 = Sheets("Preenchimento").Range("AA1")
     
     Dim Resposta3 As String
     Resposta3 = Sheets("Preenchimento").Range("AB1")
     
     Dim Resposta4 As String
     Resposta4 = Sheets("Preenchimento").Range("AC1")
     
    With myItem
         .To = Range("U2")
         .Cc = Range("U4")
         .Subject = Range("U1")
         .Body = Range("U5")
         .votingoptions = "Autorizado;Não Autorizado"
         .ReplyRecipients.Add Resposta1
         .ReplyRecipients.Add Resposta2
         .ReplyRecipients.Add Resposta3
         .ReplyRecipients.Add Resposta4
         myAttachments.Add Anexo
         .Send
     End With

    quinta-feira, 26 de janeiro de 2017 19:03

Todas as Respostas

  • Tente adicionar o nome da planilha antes do range

    ficaria:

    .To = Sheets("Preenchimento").Range("U2")


    André Santo | basevba.wordpress.com

    sexta-feira, 27 de janeiro de 2017 12:33