Ver Mensaje Individual
  #6  
Antiguo 27-09-2022
tulio tulio is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 301
Reputación: 22
tulio Va por buen camino
Hola, ahi encontre una solucion sencilla

toma el mail de hotmail definido en outlook

Graciasss

Código Delphi [-]
procedure TF_lisingre.BitBtn5Click(Sender: TObject);
const
  olMailItem = 0;
var
  Outlook, MailItem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;

  MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add('destino@hotmail.com');
  MailItem.Subject := 'Holaaa';
  MailItem.Body := 'Cuerpo del Mensaje';
  MailItem.Attachments.Add('C:\archivo1.sql');
  MailItem.Attachments.Add('C:\archivo2.sql');
  MailItem.Send;
  //Outlook := Unassigned;
end;
Responder Con Cita