Fórum Enviar E-mail #188180

procedure TFmPrincipal.SBtEnviarClick(Sender: TObject); begin if (EdEndereco.Text<>´´) and (EdAssunto.Text<>´´) and (RichEdMensagem.Lines.Strings[0]<>´´) then begin SMTP.Username:= ´cloviskonaka´; //meu usuario SMTP.Host:=´www.yahoo.com.br´; SMTP.Password:= senha; //coloco a minha senha aqui SMTP.Port:= 25; MSG.From.Address:= ´cloviskonaka@yahoo.com.br´; MSG.From.Name:= ´Clovis´; MSG.Subject:= EdAssunto.Text; MSG.Body.Text:= RichEdMensagem.Lines.Strings[0]; //peguei a primeira linha de um RichEdit só para testar if not SMTP.Connected then SMTP.Connect; MSG.Recipients.EMailAddresses:= ´ctk@dct.ufms.br´; //para quem quero mandar SMTP.Send(MSG); if SMTP.Connected then SMTP.Disconnect; end; end;