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

Flavio Nascto · Dezembro 2, 2014

Basta colocar as strings que funciona.

Afinal é desenvolvimento ! Só existe programando !

Pergunta