Olá,
Não consegui baixar o componente ACBr (estou usando apenas a do
celular, a de casa deu pane), então tentei o envio de email com o Indy
10.2.3, como no código abaixo. Ele compilou, gerou o executável, mas
não consegui mandar o email. Para o SMTP(IdSMTP), só alterei algumas
propriedades (AuthType: satNone; HelloName:
hugoengel2003@yahoo.com.br; Host: smtp.mail.yahoo.com.br, Intercept,
IOHandler e MailAgent deixei em branco, coloquei o password da conta),
no IdMessage (MailMessage) não alterei nada.
Bom, se puder ajudar ou puder indicar alguém que possa, agradecerei imensamente.
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
IdSMTP, IdMessage;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
MailMessage: TIdMessage;
SMTP: TIdSMTP;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.SMTP.Host:='smtp.mail.yahoo.com.br';
Form1.SMTP.Port:=25;
Form1.SMTP.AuthType:=satDefault;
//Form1.SMTP.AuthType:=satSASL;//if authentication is used.
Form1.MailMessage.From.Address := 'hugoengel2003@yahoo.com.br';
Form1.MailMessage.Recipients.EMailAddresses := 'hugoengel2003@gmail.com';
Form1.MailMessage.Subject:='Teste';
Form1.MailMessage.Body.Text:='Senha';
try
try
Form1.SMTP.Connect;
Application.processmessages;
Form1.SMTP.Send(Form1.MailMessage) ;
except on E:Exception do
ShowMessage('Sending Error');
end;
finally
if Form1.SMTP.Connected then Form1.SMTP.Disconnect;
end;
end;
end.
Obs.: desculpa o incômodo, se não for demais, estou tentando também
utilizar o tcalendar para que em cada dia, possa realizar o
agendamento de pacientes conforme o horário. A dúvida é como
selecionar clicar e selecionar o dia para que, com DBGrid possa
manipular (adicionar, excluir, alterar paciente agendado) Se puder
ajudar, agradeço mais ainda.
Muitíssimo obrigado e Feliz Dia das Mães!
Recent
