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

macro funcionando somente no meu PC

 
Página 2 / 2
2024 - VBA & Macros
Post Recente por marpe 7 anos atrás
19 Posts
6 Usuários
0 Reactions
3,351 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
 

Não sei se existe uma ativação como por exemplo no caso do Solver. Todavia, o que quis dizer é que quando vamos instalar o pacote do office, na instalação podemos desabilitar algumas facilidades que o pacote contém. O próprio VBA, por exemplo, pode não ser instalado na máquina se quisermos assim.

No caso, pode ser que na instalação do office nessas máquinas que não estão rodando, tenha sido retirada alguma coisa.

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 : 13/03/2018 11:04 am
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

pior que eu to recebendo email de uma galera daqui HAUHAHAHA.

menos os PC do meu trabalho.. os daqui nenhum funciona

 
Postado : 13/03/2018 1:44 pm
 Andersonjs
(@andersonjs)
Posts: 13
Active Member
 

Ta funcionando...acho que até te mandei um e-mail....rsrs

 
Postado : 13/03/2018 1:44 pm
 marpe
(@marpe)
Posts: 27
Eminent Member
Topic starter
 

Ta funcionando...acho que até te mandei um e-mail....rsrs

sim recebi o seu email hahahahhaha, só que os outros PCs aqui do trabalho da aquele erro no " With ActiveSheet.MailEnvelope"=(

 
Postado : 13/03/2018 1:50 pm
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico