Ir ao conteúdo
  • Cadastre-se

Preciso de ajuda Macro salvar anexo e enviar por e-mail


Posts recomendados

Boa noite Amigos,

 

quem pode me ajudar?

 

macro salvar database,

anexo com nome  RELATORIO_ANO MES DIA e hora .xlsb que foi salvo, 

e enviar por email  pra 8 destinatarios buscar o email em algumas celulas 

ex: RELATORIO_20140723_185400.xlsb   (.XLSB

--------------------------------------------------------------------------------------------------------

 

macro salva mas não envia por email

 

Sub salvar_relatorio()
 
Dim sPath       As String
Dim sFileName   As String
    
    sPath = ActiveWorkbook.Path & "\"
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Sheets("DATABASE").Visible = True
    Sheets("DATABASE").Select
    Sheets("DATABASE").Copy
    Selection.AutoFilter
    
    sFileName = "relatorio" & UCase(GetUserName) & " " & Format(Now(), "yyyymmdd_hhmmss") & ".xlsb"
    
    ActiveWorkbook.SaveAs Filename:=sPath & sFileName, FileFormat:=50, CreateBackup:=False
    
    
    ActiveWorkbook.Close
    
    ActiveWorkbook.Sheets("DATABASE").Visible = xlVeryHidden
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
    If MsgBox("Arquivo " & sFileName & " foi salvo e já pode ser enviado por e-mail!" & Chr(13) & "Deseja abrir a pasta que contém o arquivo?", vbQuestion + vbYesNo) = vbYes Then
        Shell "C:\WINDOWS\explorer.exe """ & sPath & "", vbNormalFocus
    End If
 
End Sub
 
 
 
segue o anexoteste.xls

 

 

muito obrigado

 

 

Link para o comentário
Compartilhar em outros sites

  • Membro VIP
  • 4 anos depois...

Eu uso esse

 

sub enviar_email ()
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  Dim MyOlapp As Object, MeuItem As Object
  Set MyOlapp = CreateObject("Outlook.Application")
  Set MeuItem = MyOlapp.CreateItem(olMailItem)
  With MeuItem
     .to = ("e-mail")
     .Subject = "titulo" 
     .Attachments.Add "caminho\arquivo.xlsx"
     .Display
     .Send
end sub

 

Onde eu coloquei e-mail, adicione o e-mail de destino (para colocar mais de um  coloque "e-mail1;e-mail2;e-mail3");

Onde eu coloquei titulo, coloque o titulo do e-mail (não necessariamente o nome do arquivo)

Onde eu coloquei caminho, coloque o caminho (ex: c:\teste.xlsx)

 

Boa sorte

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...