sanmcosta

Em 20/01/2016 às 08:49, MooM disse:

O código fica desse jeito, só que também não funciona trocando para True.

Eu pesquisei em alguns sites e verifiquei algumas instruções referentes versões do office, etc, e não adiantou também.

 

Sub Send_Range()
       
       ActiveSheet.Range("A2:C20").Select
       ActiveWorkbook.EnvelopeVisible = True


       With ActiveSheet.MailEnvelope
          .Introduction = "Bom dia Srs(ª)." & vbCr & "Segue Quantidade para teste" ' Texto Corpo do e-mail
          .Item.To = "[email protected]" 
          .Item.Cc = "[email protected]"
          .Item.Subject = "Quantidade de Atendimento" 
          .Item.Send 
       End With
   
End Sub

 

Boa tarde,

Altere .Item.Send por .Item.Display

Atenciosamente.