Ir para conteúdo
Fórum Script Brasil
  • 0

Enviando Email Utilizando o VBA e HTML


filipehrg

Pergunta

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
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...