Recebimento de email via deplhi
[color=black:1dae3f3f31][b:1dae3f3f31]Estou fazendo um programa para receber emails via delphi, porem, o corpo do email, ele consegue receber, mas recebe tambem os comandos html do corpo.
Como faco para ele puxar apenas o texto ?
[color=red][color=red]Montei a seguinte rotina...[/[/color:1dae3f3f31]color]
For x := 0 to Pred(Msg.MessageParts.Count) do begin
if Msg.MessageParts.Items[x] is TIdText then
Listbox1.Items.Add(´Texto: ´+ TIdText(Msg.MessageParts.Items[x]).Body.Text);
End;
[color=red:1dae3f3f31]Mensagem do email:[/color:1dae3f3f31]
Boa tarde Luciano.
Recebi a revista desse mes em casa, porem nao recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando irei receber, ja que imaginei que viesse td junto.
Obrigado,
Adalberto
[color=red:1dae3f3f31]Mas ele recebe assim:[/color:1dae3f3f31]
Boa tarde Luciano.
Recebi a revista desse mes em casa, porem nao recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando irei receber, ja que imaginei que viesse td junto.
Obrigado,
Adalberto
Texto: <!DOCTYPE HTML PUBLIC ´-//W3C//DTD HTML 4.0 Transitional//EN´>
<HTML><HEAD>
<META http-equiv=Content-Type content=´text/html; charset=iso-8859-1´>
<META content=´MSHTML 6.00.2734.1600´ name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Boa tarde Luciano.</FONT></DIV>
<DIV><FONT face=Arial size=2>Recebi a revista desse mes em casa, porem nao
recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando
irei receber, ja que imaginei que viesse td junto.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Obrigado,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Adalberto</FONT></DIV>
<DIV>&</DIV></BODY></HTML>[/b:1dae3f3f31][/color]
Como faco para ele puxar apenas o texto ?
[color=red][color=red]Montei a seguinte rotina...[/[/color:1dae3f3f31]color]
For x := 0 to Pred(Msg.MessageParts.Count) do begin
if Msg.MessageParts.Items[x] is TIdText then
Listbox1.Items.Add(´Texto: ´+ TIdText(Msg.MessageParts.Items[x]).Body.Text);
End;
[color=red:1dae3f3f31]Mensagem do email:[/color:1dae3f3f31]
Boa tarde Luciano.
Recebi a revista desse mes em casa, porem nao recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando irei receber, ja que imaginei que viesse td junto.
Obrigado,
Adalberto
[color=red:1dae3f3f31]Mas ele recebe assim:[/color:1dae3f3f31]
Boa tarde Luciano.
Recebi a revista desse mes em casa, porem nao recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando irei receber, ja que imaginei que viesse td junto.
Obrigado,
Adalberto
Texto: <!DOCTYPE HTML PUBLIC ´-//W3C//DTD HTML 4.0 Transitional//EN´>
<HTML><HEAD>
<META http-equiv=Content-Type content=´text/html; charset=iso-8859-1´>
<META content=´MSHTML 6.00.2734.1600´ name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Boa tarde Luciano.</FONT></DIV>
<DIV><FONT face=Arial size=2>Recebi a revista desse mes em casa, porem nao
recebi as outras edicoes anteriores que solicitei e gostaria de saber, quando
irei receber, ja que imaginei que viesse td junto.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Obrigado,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&</DIV>
<DIV><FONT face=Arial size=2>Adalberto</FONT></DIV>
<DIV>&</DIV></BODY></HTML>[/b:1dae3f3f31][/color]
Splash
Curtidas 0