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
