Macro para envio de pedido
Enviado: 18 Nov 2015 às 15:14
Olá tenho a seguinte macro, que faz com que eu envie apenas a planilha especificada por email, conforme abaixo.
Eu gostaria de implantar na mesma, uma rotina em que eu pudesse escolher em qual conta de email sera usada para o envio, pois em meu Outlock 2013 eu possuo 4 contas cadastradas, pois trabalho com representações.
Assim eu ja colocaria fixo nesta Macro a conta a ser usada. Na outra Planilha da outra empresa , a macro teria o mesmo comando porem pegando uma conta de envio diferente. Isso pra se evitar de toda vez ter que mudar a conta padrao no Outlook.
Queria tambem uma rotina que eu pudesse acrescentar no corpo da mensagem algum texto.
ex: referencia [A6] , tudo que estiver escrito na coluna A6 da Planilha será usada do corpo da mensagem.
Grato, André Luiz
Sub Pedido()
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
'Define a Planilha que será enviada por Email. Ex: Plan1, Plan2, Pedidos, etc
sPlanAEnviar = "Profit"
'Cria um novo arquivo Excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Copia a Planilha para o novo arquivo criado
ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)
'Salva o Arquivo
NovoArquivoXLS.SaveAs ThisWorkbook.Path & "\" & sPlanAEnviar & ".xLs"
sExcluirAnexoTemporario = NovoArquivoXLS.FullName
'Envia o email
NovoArquivoXLS.SendMail "vendas@profitlabs.com.br", "Pedido " & [I9].Value
'Fecha o Arquivo Novo
NovoArquivoXLS.Close
'Exclui o arquivo criado apenas para ser enviado
Kill sExcluirAnexoTemporario
End Sub
Eu gostaria de implantar na mesma, uma rotina em que eu pudesse escolher em qual conta de email sera usada para o envio, pois em meu Outlock 2013 eu possuo 4 contas cadastradas, pois trabalho com representações.
Assim eu ja colocaria fixo nesta Macro a conta a ser usada. Na outra Planilha da outra empresa , a macro teria o mesmo comando porem pegando uma conta de envio diferente. Isso pra se evitar de toda vez ter que mudar a conta padrao no Outlook.
Queria tambem uma rotina que eu pudesse acrescentar no corpo da mensagem algum texto.
ex: referencia [A6] , tudo que estiver escrito na coluna A6 da Planilha será usada do corpo da mensagem.
Grato, André Luiz
Sub Pedido()
Dim NovoArquivoXLS As Workbook
Dim sPlanAEnviar As String
Dim sExcluirAnexoTemporario As String
'Define a Planilha que será enviada por Email. Ex: Plan1, Plan2, Pedidos, etc
sPlanAEnviar = "Profit"
'Cria um novo arquivo Excel
Set NovoArquivoXLS = Application.Workbooks.Add
'Copia a Planilha para o novo arquivo criado
ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)
'Salva o Arquivo
NovoArquivoXLS.SaveAs ThisWorkbook.Path & "\" & sPlanAEnviar & ".xLs"
sExcluirAnexoTemporario = NovoArquivoXLS.FullName
'Envia o email
NovoArquivoXLS.SendMail "vendas@profitlabs.com.br", "Pedido " & [I9].Value
'Fecha o Arquivo Novo
NovoArquivoXLS.Close
'Exclui o arquivo criado apenas para ser enviado
Kill sExcluirAnexoTemporario
End Sub