xomen
30-04-2012, 20:25:27
Buen día. Esta vez tratare de explicar una forma para generar y enviar por correo electrónico un documento en PDF. (claro puede ser en cualquier otro formato que el componente ofrezca pero ahora lo hice con PDF). espero y sea de ayuda.
En este primer paso vamos a guardar el documento en PDF.
procedure TFormCatalogo.SpeedButtonExportarClick(
Sender: TObject);
var
IDMaestro : integer;
Ruta : string;
saveDialog : TSaveDialog;
ArchivoPDF : String;
begin
try
Screen.Cursor := crHourGlass;
//Creamos un saveDialog y le damos las características del documento.
//En mi caso voy a recuperar el identificador de la consulta para cargar el ppReport
IDMaestro := ADOQueryCatalogo.FieldByName('ID').AsInteger;
//Recupero los datos a imprimir
DatosParaImpresion(IDMaestro);
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Guardar Archivo';
saveDialog.Filter := 'PDF|*.pdf';
saveDialog.DefaultExt := 'pdf';
saveDialog.FilterIndex := 1;
if saveDialog.Execute then
begin
//Obtenemos la ruta, aquí desdi poner una variable publica tipo string ya que a usare en otro procedimiento
FRuta := saveDialog.FileName;
saveDialog.Free;
//Ahora con el ppReport lo configuramos para guardarlo en pdf
ppReport.ShowPrintDialog := False;
ppReport.DeviceType := 'PDF';
ppReport.PDFSettings.Author := 'Autor';
ppReport.TextFileName := FRuta;
end;
ppReport.Print;
EnviaCorreoElectronico;
Screen.Cursor := crDefault;
except
on E:Exception do
begin
Screen.Cursor := crDefault;
raise Exception.Create('Error el exportar a formato PDF:'+#13+ E.Message);
end;
end;
end;
Ahora para enviar el correo electrónico se necesitan dos componentes en la pestaña indy Clients necesitamos el objeto IdSMTP y en la pestaña Indy Misc necesitamos el objeto IdMessage. ahora vamos a configurar.
procedure TFormCatalogo.EnviaCorreoElectronico;
var
NombreUsuario : string;
Correo : string;
Password : string;
Host : string;
Puerto : string;
Autenticacion : TAuthenticationType;
Firma : string;
Destinatario : string;
SMTP: TIdSMTP;
Mensaje: TIdMessage;
Adjunto: TIdAttachment;
IDMaestro : integer;
begin
//Recuperamos datos para el llenado de los requisitos del e-mail.
//En este caso recupere mis datos de un catalogo anteriormente capturado.
with ADOQueryRecuperaConfigMail do
begin
Close;
Parameters.ParamByName('IDUsuario').Value := FUsuarioLink;
Open;
NombreUsuario :=
FieldByName('NOMBREDELUSUARIO').AsString;
Correo :=
FieldByName('CORREO').AsString;
Password :=
FieldByName('CONTRASEÑA').AsString;
Host :=
FieldByName('HOST').AsString;
Puerto :=
FieldByName('PUERTO').AsString;
if FieldByName('AUTENTICACION').AsString = '' then
Autenticacion := atLogin
else
Autenticacion :=
FieldByName('AUTENTICACION').AsVariant;
Firma :=
FieldByName('FIRMA').AsString;
end;
//El destinatario lo extraigo de mi catalogo según lo requiera se va a ir configurando dinamicamente.
Destinatario :=
ADOQueryReporte.FieldByName('EMAIL').AsString;
if Destinatario = '' then
raise Exception.Create('No existe correo electronico del destinatario.');
//Creamos el componente de conexión con el servidor
SMTP := TIdSMTP.Create( nil );
SMTP.Username := Correo;
SMTP.Password := Password;
SMTP.Host := Host;
SMTP.Port := StrToInt(Puerto);
SMTP.AuthenticationType := Autenticacion;
//Creamos el contenido del mensaje
Mensaje := TIdMessage.Create( nil );
Mensaje.Clear;
Mensaje.From.Name := NombreUsuario;
Mensaje.From.Address := Correo;
Mensaje.Subject := 'Asunto';
Mensaje.Body.Text := 'Cuerpo del mensaje '+#13+#13+Firma;
Mensaje.Recipients.Add;
Mensaje.Recipients.Items[0].Address := Destinatario;
//Si hay que meter un archivo adjunto lo creamos y lo asignamos al mensaje
if not ADOQueryReporteDetalle.IsEmpty then
begin
//Recuerdan la variable FRuta declarada en la seccion publica? aquí la utilizamos para saber de donde vamos a adjuntar.
Adjunto := TIdAttachment.Create(Mensaje.MessageParts,FRuta);
end
else
Adjunto := nil;
//Le mostramos al usuario como quedara el correo electronico.
if MessageDlg('El correo electrónico que se enviara es el siguiente:'+#13+#13+
'Usuario: '+NombreUsuario+#13+
'Correo: '+Correo+#13+#13+
'Destinatario: '+Destinatario+#13+#13+
'Ruta de Archivo Adjunto:'+FRuta+#13+#13+
'Asunto: Asunto'+#13+
'Body: '+#13+
'Cuerpo del mensaje '+#13+#13+Firma,
mtConfirmation, mbYesNoCancel, 0) = mrYes then
begin
// Si es afirmativa la respuesta entonces conectamos con el servidor SMTP
try
SMTP.Connect;
except
raise Exception.Create('Error al conectar con el servidor.');
end;
//Si ha conectado enviamos el mensaje y desconectamos
if SMTP.Connected then
begin
try
SMTP.Send( Mensaje );
except
raise Exception.Create('Error al enviar el mensaje.');
end;
try
SMTP.Disconnect;
except
raise Exception.Create('Error al desconectar del servidor.');
end;
end;
//Liberamos los objetos creados
if Adjunto <> nil then
FreeAndNil( Adjunto );
FreeAndNil( Mensaje );
FreeAndNil( SMTP );
Application.MessageBox('Mensaje enviado correctamente.',
' ',MB_ICONINFORMATION );
end;
end;
Bueno de mi parte es todo espero les sea de ayuda. Muchas gracias por leerme. Se aceptan criticas y mejoras al código. Muchas gracias
En este primer paso vamos a guardar el documento en PDF.
procedure TFormCatalogo.SpeedButtonExportarClick(
Sender: TObject);
var
IDMaestro : integer;
Ruta : string;
saveDialog : TSaveDialog;
ArchivoPDF : String;
begin
try
Screen.Cursor := crHourGlass;
//Creamos un saveDialog y le damos las características del documento.
//En mi caso voy a recuperar el identificador de la consulta para cargar el ppReport
IDMaestro := ADOQueryCatalogo.FieldByName('ID').AsInteger;
//Recupero los datos a imprimir
DatosParaImpresion(IDMaestro);
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Guardar Archivo';
saveDialog.Filter := 'PDF|*.pdf';
saveDialog.DefaultExt := 'pdf';
saveDialog.FilterIndex := 1;
if saveDialog.Execute then
begin
//Obtenemos la ruta, aquí desdi poner una variable publica tipo string ya que a usare en otro procedimiento
FRuta := saveDialog.FileName;
saveDialog.Free;
//Ahora con el ppReport lo configuramos para guardarlo en pdf
ppReport.ShowPrintDialog := False;
ppReport.DeviceType := 'PDF';
ppReport.PDFSettings.Author := 'Autor';
ppReport.TextFileName := FRuta;
end;
ppReport.Print;
EnviaCorreoElectronico;
Screen.Cursor := crDefault;
except
on E:Exception do
begin
Screen.Cursor := crDefault;
raise Exception.Create('Error el exportar a formato PDF:'+#13+ E.Message);
end;
end;
end;
Ahora para enviar el correo electrónico se necesitan dos componentes en la pestaña indy Clients necesitamos el objeto IdSMTP y en la pestaña Indy Misc necesitamos el objeto IdMessage. ahora vamos a configurar.
procedure TFormCatalogo.EnviaCorreoElectronico;
var
NombreUsuario : string;
Correo : string;
Password : string;
Host : string;
Puerto : string;
Autenticacion : TAuthenticationType;
Firma : string;
Destinatario : string;
SMTP: TIdSMTP;
Mensaje: TIdMessage;
Adjunto: TIdAttachment;
IDMaestro : integer;
begin
//Recuperamos datos para el llenado de los requisitos del e-mail.
//En este caso recupere mis datos de un catalogo anteriormente capturado.
with ADOQueryRecuperaConfigMail do
begin
Close;
Parameters.ParamByName('IDUsuario').Value := FUsuarioLink;
Open;
NombreUsuario :=
FieldByName('NOMBREDELUSUARIO').AsString;
Correo :=
FieldByName('CORREO').AsString;
Password :=
FieldByName('CONTRASEÑA').AsString;
Host :=
FieldByName('HOST').AsString;
Puerto :=
FieldByName('PUERTO').AsString;
if FieldByName('AUTENTICACION').AsString = '' then
Autenticacion := atLogin
else
Autenticacion :=
FieldByName('AUTENTICACION').AsVariant;
Firma :=
FieldByName('FIRMA').AsString;
end;
//El destinatario lo extraigo de mi catalogo según lo requiera se va a ir configurando dinamicamente.
Destinatario :=
ADOQueryReporte.FieldByName('EMAIL').AsString;
if Destinatario = '' then
raise Exception.Create('No existe correo electronico del destinatario.');
//Creamos el componente de conexión con el servidor
SMTP := TIdSMTP.Create( nil );
SMTP.Username := Correo;
SMTP.Password := Password;
SMTP.Host := Host;
SMTP.Port := StrToInt(Puerto);
SMTP.AuthenticationType := Autenticacion;
//Creamos el contenido del mensaje
Mensaje := TIdMessage.Create( nil );
Mensaje.Clear;
Mensaje.From.Name := NombreUsuario;
Mensaje.From.Address := Correo;
Mensaje.Subject := 'Asunto';
Mensaje.Body.Text := 'Cuerpo del mensaje '+#13+#13+Firma;
Mensaje.Recipients.Add;
Mensaje.Recipients.Items[0].Address := Destinatario;
//Si hay que meter un archivo adjunto lo creamos y lo asignamos al mensaje
if not ADOQueryReporteDetalle.IsEmpty then
begin
//Recuerdan la variable FRuta declarada en la seccion publica? aquí la utilizamos para saber de donde vamos a adjuntar.
Adjunto := TIdAttachment.Create(Mensaje.MessageParts,FRuta);
end
else
Adjunto := nil;
//Le mostramos al usuario como quedara el correo electronico.
if MessageDlg('El correo electrónico que se enviara es el siguiente:'+#13+#13+
'Usuario: '+NombreUsuario+#13+
'Correo: '+Correo+#13+#13+
'Destinatario: '+Destinatario+#13+#13+
'Ruta de Archivo Adjunto:'+FRuta+#13+#13+
'Asunto: Asunto'+#13+
'Body: '+#13+
'Cuerpo del mensaje '+#13+#13+Firma,
mtConfirmation, mbYesNoCancel, 0) = mrYes then
begin
// Si es afirmativa la respuesta entonces conectamos con el servidor SMTP
try
SMTP.Connect;
except
raise Exception.Create('Error al conectar con el servidor.');
end;
//Si ha conectado enviamos el mensaje y desconectamos
if SMTP.Connected then
begin
try
SMTP.Send( Mensaje );
except
raise Exception.Create('Error al enviar el mensaje.');
end;
try
SMTP.Disconnect;
except
raise Exception.Create('Error al desconectar del servidor.');
end;
end;
//Liberamos los objetos creados
if Adjunto <> nil then
FreeAndNil( Adjunto );
FreeAndNil( Mensaje );
FreeAndNil( SMTP );
Application.MessageBox('Mensaje enviado correctamente.',
' ',MB_ICONINFORMATION );
end;
end;
Bueno de mi parte es todo espero les sea de ayuda. Muchas gracias por leerme. Se aceptan criticas y mejoras al código. Muchas gracias