da uma alterada nesse código q vc ja consegue anexar....
a com a vara e o peixe na mão só fritar....a seu gosto.
abs.
Rodrigo Mota.
//====================================================
// Gera uma String unica baseada no relogio do windows
//====================================================
Function CreateUniqueID(HexMode:Boolean=True):String;
Var A : Int64;
Begin
a := Trunc(Now*100000000);
If HexMode Then Result := IntToHex(a,14) Else Result := IntToStr(a);
Sleep(50);
End;
procedure TForm1.Button1Click(Sender: TObject);
Var newText : TIdText;
sPath : String;
newAttach : TIdAttachment;
imgID1, imgName1 : String;
imgID2, imgName2 : String;
begin
// Endereço e ID das Imagens
imgName1 := 'c:\\mail\\imagem1.jpg';
imgID1 := CreateUniqueID;
imgName2 := 'c:\\mail\\imagem2.jpg';
imgID2 := CreateUniqueID;
// Configura o Servidor
IdSMTP.Username := 'seu_login';
IdSMTP.Password := 'sua_senha';
IdSMTP.Host := 'seu_servidor_smtp';
// Configura o Remetente da Mensagem
IdMessage.Clear;
IdMessage.Subject := 'Teste de Envio de Mensagem';
IdMessage.From.Address := '[EMAIL PROTECTED]';
IdMessage.From.Name := 'Adenilton Rodrigues';
IdMessage.Subject := 'My Subject';
// configura os destinatários
IdMessage.Recipients.Clear;
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '[EMAIL
PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name :=
'Adenilton Rodrigues';
IdMessage.Recipients.Add;
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Address := '[EMAIL
PROTECTED]';
IdMessage.Recipients.Items[IdMessage.Recipients.Count-1].Name :=
'Adenilton Rodrigues';
// Adiciona o HTML ao corpo da mensagem
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/html';
newText.Body.Add('<HTML><BODY>');
newText.Body.Add('<H2>Teste de Envio de Email HTML Embeded</H2>');
newText.Body.Add('<IMG
newText.Body.Add('<IMG
newText.Body.Add('</BODY><HTML>');
// Adiciona uma parte texto ao corpo
newText := TIdText.Create(IdMessage.MessageParts,nil);
newText.ContentType := 'text/plain';
newText.Body.Add('Este email só será visualizado em padrão HTML');
// Anexa a primeira imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName1);
newAttach.ContentType := 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId1+'>';
// Anexa a segunda imagem
newAttach := TIdAttachment.Create(IdMessage.MessageParts,imgName2);
newAttach.ContentType := 'image/jpeg';
newAttach.ContentDisposition := 'inline';
newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId2+'>';
// Envia
IdSMTP.Connect;
Try
if IdSMTP.Connected then Begin
IdSMTP.Send(IdMessage);
End
Finally
IdSMTP.Disconnect;
End;
end;
Basicamente a técnica consiste em trocar os nomes das imagens no corpo do HTML
(IMG SRC) por um identificador único, usando e anexar essas imagens
referenciando-as ao seus respectivos identificadores.
Veja que foram usadas duas variaveis string para comportar os nomes das imagens
e seus IDs. A solução ideal é:
1. Ler o arquivo html diretamente do disco (loadfromfile)
2. Executar uma varredura e trocar todos os IMG SRC por um ID unico.
3. Anexar as imagens ao corpo do email.
4. Enviar.
On Fri, 14 Jul 2006 20:39:47 -0300, "Leandro Belanda" <[EMAIL PROTECTED]>
escreveu:
> De: "Leandro Belanda" <[EMAIL PROTECTED]>
> Data: Fri, 14 Jul 2006 20:39:47 -0300
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] HTML
>
>
> Caro amigo Rodrigo, seu desenvolvimento evia anexo???
> Tenho que desenvolver um programa que envia anexo.
>
>
>
> Em 14/07/06, Rodrigo <[EMAIL PROTECTED]> escreveu:
> >
> > boa tarde galera,
> >
> > estou fazendo um programinha para enviar e-mail no meu
> > sistema, gostaria que a pessoa pudesse formatar o texto
> > de acordo com os botões ...e tal negrito fonte...
> >
> > tem algum componente para tal..a parte de envio ja
> > tenho os componentes da pasta Indy
> >
> > abs.
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
>
> --
> ==============================================
> Leandro Belanda
> MSN: [EMAIL PROTECTED]
> "É bom ser importante, mas é mais importante ser bom."
>
>
> [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
