Ir para conteúdo
Fórum Script Brasil

filipehrg

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2

  • Registro em

  • Última visita

Sobre filipehrg

filipehrg's Achievements

0

Reputação

  1. filipehrg
    Boa Tarde Amigos, Estou com uma Macro no VBA que necessito colocar um campo de data automaticamente, Segue abaixo a programação da Macro: Sub Macro1() ' ' Macro1 Macro ' ' Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br) .Subject = "Relatório x (Ref " & Format(Date, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx DATA:" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub Sou iniciante em HTML e VBA, Necessito que o email no final das contas fique mais ou menos assim: Relatório xxx ( DATA DE HOJE) Link: www.relatório/(DATA DE HOJE).xls Procurei em alguns blogs e não achei uma maneira de fazer isso, Se puderem me ajudar agradecerei muito ! Obrigado
  2. filipehrg
    Boa Tarde Amigos, Estou com uma Macro no VBA que necessito colocar um campo de data automaticamente, Segue abaixo a programação da Macro: Sub Macro1() ' ' Macro1 Macro ' ' Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br) .Subject = "Relatório x (Ref " & Format(Date, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx DATA:" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub Sou iniciante em HTML e VBA, Necessito que o email no final das contas fique mais ou menos assim: Relatório xxx ( DATA DE HOJE) Link: www.relatório/(DATA DE HOJE).xls Procurei em alguns blogs e não achei uma maneira de fazer isso, Se puderem me ajudar agradecerei muito ! Obrigado
×
×
  • Criar Novo...