Notifications

Clear all

macro funcionando somente no meu PC

Página 1 / 2 Próximo

2024 - VBA & Macros

Post Recente por marpe 7 anos atrás

19 Posts

6 Usuários

0 Reactions

3,339 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-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

(@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-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-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