Enviando Email Utilizando o VBA e HTML

filipehrg · Setembro 18, 2014

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 = "Bom Dia "

.HTMLBody = .HTMLBody & " xxxx DATA:"

.HTMLBody = .HTMLBody & " <html><body><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></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

Awq · Setembro 22, 2014

Cara, no link vai ser difícil você colocar o nome com a data de hj, porque é em html, e pra fazer essas coisas em html geralmente o pessoal usa js ou php.

o que eu aconselharia a fazer é criar uma sub que abra o navegador com o seu link.

E o código que corrige mais ou menos o que você mandou.

Sub Macro1()

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(Now, "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 :" & Format(Now, "dd/mmm/yy")
        .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3  color=red><a href=www.Relatório..xlsx>www.Relatório.xlsx</a></font></body></html>"
       .Attachments.Add ActiveWorkbook.FullName
    .Display

    End With
End Sub

Entrar

Enviando Email Utilizando o VBA e HTML

Pergunta

filipehrg

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Awq

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades