Valeu Muito Origado,
Em 14/07/06, Rodrigo Mota <[EMAIL PROTECTED]> escreveu:
>
> 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 <http://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]
> >
> >
> >
>
>
--
==============================================
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
