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

[ad48]

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

 

 

[ad48]

boa noite

 

estou aguardando ajuda quem pode me ajudar?

 

att.

[Patropi]

Boa noite

 

Por enquanto aguarda ajuda, veja se consegue adaptar o código destes links:

 

http://guiadoexcel.com.br/copiar-planilha-e-enviar-como-anexo-por-email-com-outlook

http://www.microsoftexcel.com.br/index.php/excel-dicas-microsoft-excel-vba/89-excel-vba-envia-email/1344-excel-vba-planilha-email-envia-anexo-e-corpo.html

 

[]s

[ad48]

mais alguma ajuda?

[RODRIGO ZAMENGO]

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