Email no Delphi

[danielnascimento 0]

Salve galera!estou com uma pequena dúvida e espero q vcs possam me ajudar!!!Gostaria de anexar uma URL a um email a ser enviado!porém esta URL deverá abrir quando o usuario abrir o email...como acontece nos casos de emails enviados com propaganga, por ex... BOL, Mercado Livre, etc..[]sDaniel

[NerdeX 0]

O que você quer tá aí... e não é só anexar uma simples URL. Olhe... note que no Objeto Memo você poderá escrever tudo em cód. HTML (ñ entrarei na questão: linguagem HTML aqui, pois acredito que já saiba), inserindo texto normalmente e... com o comado "IMG" a imagem para ser exibida direto no corpo da mensagem..., desde que já disponível na Web... lógico ñ? se ñ... ñ vai achar a imagem nunca, no path do comando IMG informado...

 

procedure TForm1.BitBtn1Click(Sender: TObject);beginMsg.Clear;Msg.ContentType:='text/html';Msg.From.Address:='pcunit@terra.com.br'; //end de retorno//Msg.ReplyTo.Add.Text:='pcunit@terra.com.br'; //end de respostaMsg.From.Name :='Process Tecnologia'; //nome de quem mandaMsg.Subject :=Edit2.text; //assuntoMsg.Priority:=mpHighest;Msg.Recipients.Clear;Msg.Recipients.EMailAddresses:=Edit1.text;//end de destinoMsg.BccList.Clear;//Msg.BccList.Add.Address :=; //com cópia oculta//Aqui to usando html para formatar o corpo da mensagem, só da certo se o ContentType for igual a "text/html"Msg.Body.Add(Memo.Lines.Text);idSMTP1.Username :='xxxxxx';idSMTP1.Password :='yyyyyy';idSMTP1.Host :='zzz.zzz.zz.z'; //teu end smtp do teu provedor de e-mailsidSMTP1.AuthenticationType := atLogin; // faz autenticacao antes de enviar a mensagem//idSMTP1.AuthenticationType := atNone;if not idSMTP1.Connected thenidSMTP1.Connect;tryidSMTP1.Send(Msg);finallyidSMTP1.Disconnect;end;end;

Sem mais no momento... Agradeço sua atenção

Atenção: ñ use isto em looping para produzir spam em massa... Ok?