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