ola a todos
Preciso daajuda aqui dos mestres:
deve ser uma coisa simples mas não estou a conseguir fazer:
tenho o seguinte codigo num dotão de um form que envia email com os dados desse form:
Private Sub Comando15_Click()
Dim cod As String
Dim ser As String
Dim DAT As String
Dim OutApp As Object
Dim OutMail As Object
cod = TXCODPC
ser = TXNSERIE
DAT = DTORC
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Me!for_Email
.Subject = "Actualização de documentos"
.HTMLBody = "Verifique abaixo o estado da sua documentação, tem documentos caducados ou a caducar nos proximos 5 dias:" & " Validade alvara: " & Me!dataalvara & " validade da Segurança Social:" & Me!datass
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
O que eu preciso é que o email seja enviado formatado da seguinte forma:
Verifique abaixo o estado da sua documentação, tem documentos caducados ou a caducar nos proximos 5 dias:
Validade alvara: me!dataalvara
validade da segurança social: me!datass
o que esta a fazer agora e enviar tudo numa linha
podem ajudar SFF
Muito agradecido pela vossa sempre grande disposição para ajudar pessoas como eu que percebemos pouco disto.
Preciso daajuda aqui dos mestres:
deve ser uma coisa simples mas não estou a conseguir fazer:
tenho o seguinte codigo num dotão de um form que envia email com os dados desse form:
Private Sub Comando15_Click()
Dim cod As String
Dim ser As String
Dim DAT As String
Dim OutApp As Object
Dim OutMail As Object
cod = TXCODPC
ser = TXNSERIE
DAT = DTORC
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Me!for_Email
.Subject = "Actualização de documentos"
.HTMLBody = "Verifique abaixo o estado da sua documentação, tem documentos caducados ou a caducar nos proximos 5 dias:" & " Validade alvara: " & Me!dataalvara & " validade da Segurança Social:" & Me!datass
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
O que eu preciso é que o email seja enviado formatado da seguinte forma:
Verifique abaixo o estado da sua documentação, tem documentos caducados ou a caducar nos proximos 5 dias:
Validade alvara: me!dataalvara
validade da segurança social: me!datass
o que esta a fazer agora e enviar tudo numa linha
podem ajudar SFF
Muito agradecido pela vossa sempre grande disposição para ajudar pessoas como eu que percebemos pouco disto.