pedrohgb7 28/12/2012, 10:45
Segue
- Código:
'Envia email
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Cc = ""
.Bcc = "UI45037"
'.Bcc = "UI45037;UI37562;UI36471;UI42179;UI32186;UI37064;UI42184;UI37608;UI00673;UB75968;UI35004;UI40851;UI02833;UI73141;UI73195"
.Subject = "Relatório de Turno: " & Me!txt_Data & " TURNO " & Me!txt_Turno & ""
txthtm = "<HTML> "
txthtm = txthtm & "<BODY>"
'GERAL
txthtm = txthtm & "<CENTER><table width=800 border=5>"
txthtm = txthtm & "<TR <TD><strong><font color=#5555 font size=3> " & Me!M_Observacoes & ""
txthtm = txthtm & "</table></CENTER>"
'PARADAS
txthtm = txthtm & "<CENTER><font color=#555555 font size=5 face=Verdana><b>Paradas por Falha</b></CENTER>"
txthtm = txthtm & "<table border=1>"
'Titulos
txthtm = txthtm & "<TR bgcolor= ""#CFCFCF""><CENTER><TD><strong><font color=#555555 font size=1>"
txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b>Equipamento</td></b>"
txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b><td>Duração</td></b>"
txthtm = txthtm & "<font color=#555555 font size=2 face=Verdana><b><td>Descrição</td></b></CENTER>"
txthtm = txthtm & "<tr>"
Dim PF As String
PF = "Parada por Falha"
Set rs = CurrentDb.OpenRecordset("SELECT Local.Local, Parada_RP.Duracao, Parada_RP.Minuto, " _
& " Parada_RP.Descricao, Parada_RP.Tipo_Parada, Equipamento.ID_Jornada FROM ([Local] INNER JOIN Equipamento " _
& " ON Local.Código = Equipamento.ID_Local) INNER JOIN Parada_RP " _
& " ON Equipamento.Código_Equipamento = Parada_RP.ID_Equipamento " _
& " WHERE (((Equipamento.ID_Jornada)= " & Me.txt_CDTurno & ") " _
& " AND ((Parada_RP.Tipo_Parada)= '" & PF & "')) " _
& " ORDER BY Local.Local, Local.Area;")
Do While Not rs.EOF
'Linhas
Duracao = rs!Duracao & ":" & rs!Minuto
txthtm = txthtm & " <td><CENTER>" & rs!Local & " </CENTER></td>"
txthtm = txthtm & "<td><CENTER>" & Duracao & " </CENTER></td>"
txthtm = txthtm & "<td><strong><font size=2>" & rs!Descricao & " </strong></td>"
txthtm = txthtm & "</tr>"
rs.MoveNext
Loop
txthtm = txthtm & "</table>"
txthtm = txthtm & "<BR><font size=2 face=Verdana>Mensagem automática</BR>"
txthtm = txthtm & "<BR><BR><font size=2 face=Verdana>Pedro Henrique Gonçalves Barros</BR>"
txthtm = txthtm & "</BODY>"
txthtm = txthtm & "</HTML>"
.Body = Me!M_Observacoes
.htmlbody = txthtm
.send
MsgBox "A mensagem foi enviada com sucesso!"
End With
rs.Close
'_____________________________________________________________________
- Código:
txthtm = txthtm & "<TR <TD><strong><font color=#5555 font size=3> " & Me!M_Observacoes & ""
Essa linha.
Essa caixa de texto eu gostaria que fosse para o email igual esta digitado nesta caixa de texto.
o problema é quando eu uso html vem tudo bagunçado...
Eu preciso que va para o email identico esta digitado na caixa de texto Me!M_Observacoes
Obrigado
Última edição por pedrohgb7 em 28/12/2012, 10:49, editado 1 vez(es) (Motivo da edição : t)