Envio de email com INDY

Oi nóis na fita

Aqui vai um exemplo :

if RadioGroup3.ItemIndex = 2 then
begin
// aqui vc configura o comp para enviar o email ok

NomeArquivo := ´Imagem.bmp´;
GetImagem.Picture.SaveToFile(NomeArquivo);
{ with IdMessage1 do
begin
From.Address := ´micheledasilva@uol.com.br´;
From.Name := ´Michele´;
ReplyTo.EMailAddresses := From.Address;
Recipients.EMailAddresses := ´vendas@moveisbalaroti.com.br´;
Subject := ´Confirmação de Pedido´;
Body.Text:= ´Eu estou aqui´;
TIdAttachment.Create( IdMessage1.MessageParts, NomeArquivo);
end;
idSMTP1.Host := ´smtp@uol.com.br´;
idSMTP1.UserId:= ´micheledasilva@uol.com.br´;
idSMTP1.Port := 25;
idSMTP1.Connect;
idSMTP1.Send(IdMessage1);
idSMTP1.Disconnect;}

Imagem.Free;
end;
end;

Espero ter ajudado :wink: