Buenas pessoal.
Tenho um código que envia um email. Ali onde tem o HTMLBody, eu gostaria que o VBa utilizasse um arquivo de texto armazenado fora do BD, em outra pasta, de nome "htmlncmproduto.txt". Ou seja, é possível, ao invés de eu digital ali o texto que deverá ser apresentado no email, ele criar uma referência relativa e buscar em um diretório o arquivo?
Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "pipelab@instrulab.com.br"
.Sender = k(0)
.BodyPart.Charset = "utf-8"
.Subject = "Revise o NCM: " & Me.CódigoProd
.HTMLBody = "Prezado (a), " & k(1) & vbCrLf + vbCrLf + "Por gentileza, revise o NCM do produto criado: " & Me.DescriçãoSimples & " NCM informado: " & Me.NCM & vbCrLf + vbCrLf + "Lembrando que o mesmo só poderá ser utilizado após sua revisão!"
.To = k(0)
.Send
End With
Muito obrigado.
Tenho um código que envia um email. Ali onde tem o HTMLBody, eu gostaria que o VBa utilizasse um arquivo de texto armazenado fora do BD, em outra pasta, de nome "htmlncmproduto.txt". Ou seja, é possível, ao invés de eu digital ali o texto que deverá ser apresentado no email, ele criar uma referência relativa e buscar em um diretório o arquivo?
Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "pipelab@instrulab.com.br"
.Sender = k(0)
.BodyPart.Charset = "utf-8"
.Subject = "Revise o NCM: " & Me.CódigoProd
.HTMLBody = "Prezado (a), " & k(1) & vbCrLf + vbCrLf + "Por gentileza, revise o NCM do produto criado: " & Me.DescriçãoSimples & " NCM informado: " & Me.NCM & vbCrLf + vbCrLf + "Lembrando que o mesmo só poderá ser utilizado após sua revisão!"
.To = k(0)
.Send
End With
Muito obrigado.