Olha, vê se ajuda
uses IdSMTP, IdMessage;
function EnviaAvisoEmail(Para: string):Boolean;
var
htmpart, txtpart: TIdText;
imgpart: TIdAttachment;
email: TIdMessage;
imgName : string;
html: TStrings;
begin
email := TIdMessage.Create(nil);
try
email.From.Address := '[EMAIL PROTECTED]';
email.From.Name := 'FROM';
imgName := 'i:\email\imagemfundoSS.jpg';
html := TStringList.Create();
html.Text := Corpo; //html
email.Recipients.EMailAddresses := Para;
email.Subject := 'SUBJECT';
email.ContentType := 'multipart/mixed';
email.Body.Assign(html);
txtpart := TIdText.Create(email.MessageParts);
txtpart.ContentType := 'text/plain';
txtpart.Body.Text := '';
htmpart := TIdText.Create(email.MessageParts, html);
htmpart.ContentType := 'text/html';
imgpart := TIdAttachment.Create(email.MessageParts, imgName);
imgpart.ContentType := 'image/jpeg';
imgpart.FileIsTempFile := true;
imgpart.ContentDisposition := 'inline';
imgpart.ExtraHeaders.Values['content-id'] := 'imagemfundo';
imgpart.DisplayName := 'imagemfundo';
Result := False;
with TIdSMTP.Create(nil) do
try
Host := 'smtp.A.com.br'
Port := 25;
Connect(1000);
Send(email); //envia a msg
Result := True;
finally
if Connected then
Disconnect;
Free;
end;
finally
email.Free;
html.Free;
end;
end;
ese envia um e-mail com imagemd e fundo "anexado" mas que não fik no anexos.
Para aparecer a imagem no fundo vc deve mudar o SRC da imagem background
no HTML para "cid:imagemfundo".... assim vai.
Flw,
Guidi
Isaque J escreveu:
> Bom dia Murillo,
>
> Existe componente indy que faz essa transformação para html? E para
> apresenta uma mensagem recebida no formato html, existe algum componente
> para isso?
>
> Grande Abraço,
> Isaque Jota
>
>
>
> 2006/6/27, Isaque J <[EMAIL PROTECTED]>:
> >
> >
> >
> > Em 14/06/06, Murillo Proença <[EMAIL PROTECTED]> escreveu:
> >
> > > utilize os componentes Indy, funciona blzinha.
> > >
> > >
> > > >
> > > > Galera, preciso saber como faco pra enviar um email pelo Delphi Com
> > > formato
> > > > HTML. Nao serve enviar anexo. O que eu quero é mandar aquelas
> > > mensagens Com
> > > > uma imagem de fundo e coisa assim;
> > > >
> > > >
> > > > Abracos
> > > >
> > > > Marcio
> > > > Programador Pleno
> > > > Unimar - Universidade de Marilia
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > --
> > > Cordiais saudações,
> > > Isaque Niche Ramos Jota
> > >
> > >
>
>
> --
> Cordiais saudações,
> Isaque Niche Ramos Jota
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __._,
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
