Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
macro funcionando s...
 
Notifications
Clear all

macro funcionando somente no meu PC

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por marpe 7 anos atrás
19 Posts
6 Usuários
0 Reactions
3,352 Visualizações
RSS
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

bom dia,

to com um problema que a planilha que é o seguinte

a macro de selecionar o range e enviar por email ta funcionando somente no meu pc

tentei em 3 pcs diferentes nenhum funcionou

o meu ta de boa =(

ta dando erro no with.

codigo

Sub enviar_corpo_email()



   ActiveSheet.Range("A2:G99").Select

   ActiveWorkbook.EnvelopeVisible = True
Application.ScreenUpdating = False

   With ActiveSheet.MailEnvelope

      .Introduction = "Prezados bom dia," & vbLf & "Favor confirmar recebimento do protocolo abaixo."
    

      .Item.To = "x; x"
      

      .Item.Subject = "Protocolo de Recebimento de Faturas para Pagamento"
      .Item.Send
   End With
   
ActiveWindow.SelectedSheets.PrintOut

End Sub
 
Postado : 08/03/2018 9:23 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

marpe,

Boa tarde!

Muito provavelmente seu arquivo contém algum objeto específico que exige uma .DLL que não tem nos outros micros onde você está tentando executar o mesmo. Anexe, aqui mesmo no fórum, se arquivo compactado com .ZIP para que possamos tentar rodar e ver o que está ocorrendo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/03/2018 9:25 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

nao estou conseguindo anexar o zip, estranho.

não aparece nenhum botao de anexo

 
Postado : 08/03/2018 10:52 am
gfranco
 gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

O botão de adicionar um anexo está indisponível.
Já entrei em contato com um moderador pra resolver isto...

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 08/03/2018 10:57 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

segue o link para download entao
https://www.sendspace.com/delete/hpv57x/4394a19184db4ac0a3f1d8e071f564a7

 
Postado : 08/03/2018 12:14 pm
 srobles
(@srobles)
Posts: 231
Estimable Member
 

marpe,

Link errado meu amigo.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 09/03/2018 10:50 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

segue o anexo

 
Postado : 12/03/2018 9:01 am
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

Sua planilha não tem código nenhum.

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 12/03/2018 9:10 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

desculpa, acabei subindo o arquivo errado.

 
Postado : 12/03/2018 9:14 am
 teleguiado
(@teleguiado)
Posts: 142
Estimable Member
 

Aqui não deu erro.
So não enviou o email pois meu outlook não esta configurado.

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 12/03/2018 9:19 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

em outras maquinas que estão com outlook verificado ta dando erro na linha do with mailenvelop

 
Postado : 12/03/2018 9:25 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

marpe,

Boa tarde!

Aqui também não deu nenhum erro. Rodando normalmente, inclusive envio de email.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 12/03/2018 10:40 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

ta dando esse erros nos outros pcs aqui do trabalho :(

 
Postado : 12/03/2018 12:17 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Pode ser que ser facilidade do Excel (MailEnvelope) não esteja instalada nas versões dos computadores que está dando erro.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 12/03/2018 2:04 pm
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

Pode ser que ser facilidade do Excel (MailEnvelope) não esteja instalada nas versões dos computadores que está dando erro.

ela é ativada como? procurei aqui e nao to achando

 
Postado : 13/03/2018 9:20 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico