Pessoal, boa tarde!
Tenho o seguinte código para enviar a aba “Alteração de Workflow” por email:
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
Dim resp As String
'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc
sPlanAEnviar = "Alteração de Workflow"
'Cria um novo arquivo excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Envia o email
NovoArquivoXLS.SendMail " ","Solicitação de Demandas ", True
Gostaria de substituir o comando enviar email, por algum que deixe o email já com anexo e aberto, para que eu envie o email manualmente. Estou duas semanas tentando decifrar e não congiso.. alguém pode me ajudar? Obrigado!!
Tenho o seguinte código para enviar a aba “Alteração de Workflow” por email:
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
Dim resp As String
'Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc
sPlanAEnviar = "Alteração de Workflow"
'Cria um novo arquivo excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Envia o email
NovoArquivoXLS.SendMail " ","Solicitação de Demandas ", True
Gostaria de substituir o comando enviar email, por algum que deixe o email já com anexo e aberto, para que eu envie o email manualmente. Estou duas semanas tentando decifrar e não congiso.. alguém pode me ajudar? Obrigado!!