Comentários sobre: Enviar Email diretamente do Excel (Macro)

Por: Reinaldo Coral

Reinaldo Coral — Tue, 13 Sep 2011 21:00:29 +0000

Achei um bugzinho no código…. já corrigi. Veja lá.

Por: Reinaldo Coral

Reinaldo Coral — Tue, 13 Sep 2011 20:47:06 +0000

Realmente tem um bug no código.
Como ele cria uma nova pasta de trabalho, ele se auto referencia na Plan1….

Correção:

Onde está:
Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)

Mude para:
ThisWorkbook.Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)

Vou atualizar no site também…

Abç

Por: NLORAS

NLORAS — Tue, 13 Sep 2011 20:33:48 +0000

A planilha é Plan1 mesmo… criei um botão e associei a macro… era para salvar e automaticamente anexar esse arquivo salvo num correio… e funciona bem… o problema é que o arquivo que anexa fica totalmente em branco… cria uma nova Plan1(2) no arquivo novo…

Por: Reinaldo Coral

Reinaldo Coral — Tue, 13 Sep 2011 20:28:20 +0000

Se você está trabalhando com Excel 2007 ou 2010, você pode salvar assim:

—— Para XLSX
NovoArquivoXLS.SaveAs ThisWorkbook.Path & “\” & sPlanAEnviar, xlWorkbookDefault

—— Para XLSM (Com Macro)
NovoArquivoXLS.SaveAs ThisWorkbook.Path & “\” & sPlanAEnviar, xlOpenXMLWorkbookMacroEnabled

Para versões 2003:
NovoArquivoXLS.SaveAs ThisWorkbook.Path & “\” & sPlanAEnviar, xlWorkbookNormal

Dessa maneira você não precisa definir a extensão e o Excel salva no formato correto.
Não sei se isto, mas, boa sorte aí, espero que ajude.

Abçs.

Está seguindo o @exceldoseujeito ? Então, o que está esperando?!!!

Por: Reinaldo Coral

Reinaldo Coral — Tue, 13 Sep 2011 20:02:40 +0000

Você está utilizando este código no projeto do Excel?
Este código foi escrito para rodar a partir da pasta de trabalho que você está enviando. Não sei bem como funcionaria esta integração com o Lotus Notes.
Mas acredito que se você referenciar a pasta de trabalho que está querendo enviar, funcione bem.

Neste código a planilha enviada chama-se “Plan1″.
Certifique-se que sua planilha tenha esso nome. Se não, altere no código pelo nome da planilha que você quer enviar.
E, se não estiver escrevendo o código no Excel, faça a referência completa do arquivo também. Nome do arquivo Excel + Nome da Planilha.

Não sei se fui claro. Passe mais informações.

Abçs.

Está seguindo o @exceldoseujeito ? Então, o que está esperando?!!!

Por: NLORAS

NLORAS — Tue, 13 Sep 2011 19:22:02 +0000

Tentei utilizar essa macro para enviar um arquivo excel após o preenchimento pelo Lotus Notes… ela roda corretamente, mas o arquivo que anexa fica em branco…
Será que estou fazendo alguma bobagem? vc tem como verificar para mim?

———————-

Sub EnviarEmailPlanilhaEspecifica()

Dim NovoArquivoXLS As Workbook

Dim sPlanAEnviar As String

Dim sExcluirAnexoTemporario As String

‘Define a planilha que será enviada por email. Ex.: Plan1, Balancete, Lista De Nomes, etc

sPlanAEnviar = “Plan1″

‘Cria um novo arquivo excel

Set NovoArquivoXLS = Application.Workbooks.Add

‘Copia a planilha para o novo arquivo criado

Sheets(sPlanAEnviar).Copy Before:=NovoArquivoXLS.Sheets(1)

‘Salva o arquivo

NovoArquivoXLS.SaveAs ThisWorkbook.Path & “” & sPlanAEnviar & “.xlsx”

sExcluirAnexoTemporario = NovoArquivoXLS.FullName

‘Envia o email

NovoArquivoXLS.SendMail “xxx@xxx.com”, “Pesquisa Satisfação xxx 1S2011″

‘Fecha o arquivo novo

NovoArquivoXLS.Close

‘Exclui o arquivo criado apenas para ser enviado.

Kill sExcluirAnexoTemporario

End Sub

Por: carlos

carlos — Tue, 13 Sep 2011 14:09:27 +0000

Tudo certo. Porém, os dados não estão sendo copiado para a planilha temporária. Quando vou abrir a planilha que chegou no e-mail, diz que está em formato diferente, e a planilha aparece em branco. O que pode ser?

Por: Reinaldo Coral

Reinaldo Coral — Sun, 21 Aug 2011 03:32:11 +0000

Sidnie,

Não sei o que você exatamente modificou no código.
Onde você diz “boletimXLS” – no exemplo está NovoArquivoXLS – é um objeto que faz referência a um novo documento excel criado pela macro.
Você não pode deixar de instanciá-lo conforme foi feito no exemplo:
Set boletimXLS = Application.Workbooks.Add

E outro caso pode ser a informação da planilha que você deseja enviar:
No exemploestá na linha sPlanAEnviar = “Plan2″

Substitua “Plan2″ pelo nome da planilha que deseja enviar.

Espero que ajude.

—————————————-
Não deixe de nos seguir no Twitter – twitter.com/exceldoseujeito

Por: Sidnie

Sidnie — Mon, 08 Aug 2011 16:33:48 +0000

Ola…eu não consegui fazer a macro de enviar por e-mail diretamente do excel como o exemplo no começo da página. O que estou fazendo errado?: eu peguei os códigos exatamente como estão e criei a macro dentro da minha planilha que gera o erro na linha: Sheets(sPlanAEnviar).Copy Before:=boletimXLS.Sheets(1). Onde que devo alterar para que funcione na minha planilha.
Grato

Por: Reinaldo Coral

Reinaldo Coral — Tue, 08 Feb 2011 17:10:07 +0000

Leia:

Salvar cópia do arquivo atual
Criar um novo arquivo excel dinamicamente

É só adaptar às suas necessidades.
Abç