Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 20-11-2014
Avatar de pacopenin
pacopenin pacopenin is offline
Miembro
 
Registrado: sep 2010
Ubicación: Asturias
Posts: 382
Poder: 16
pacopenin Va por buen camino
Yo utilizo éste código y funciona sin problemas en 2007-2010-2013 en varias decenas de instalaciones...

Código Delphi [-]
uses

   OutlookXP,

var
  ol : OutlookXP.TOutLookApplication;
  mi : OutlookXP.TMailItem;
  ns : OutlookXP.NameSpace;
  fdInbox, fdOutbox : OutlookXP.MAPIFolder;
const
 olByValue = 1;

     .......

   try
     ol := OutlookXP.TOutLookApplication.Create(nil);

     ns := ol.GetNamespace('MAPI');
     fdInbox := ns.GetDefaultFolder(olFolderInbox);
     fdOutbox := ns.GetDefaultFolder(olFolderSentMail);

     mi := TmailItem.Create(nil);

     mi.ConnectTo( ol.CreateItem( olMailItem) as MailItem);
     mi.Subject := Datos.ZEMailDESCRIPCION.asstring;

     if Datos.ZEMailPARA.asstring <> '' then
      mi.Recipients.Add(Datos.ZEMailPARA.value);

     if Datos.ZEMailPARA_CC.asstring <> '' then
      mi.CC := Datos.ZEMailPARA_CC.asstring;
     if Datos.ZEMailPARA_CCO.asstring <> '' then
      mi.BCC := Datos.ZEMailPARA_CC.asstring;

     .....

   finally
     mi.Free;
     ns.Logoff;
   end



De todas formas, creo a partir de la versión del 2010 había un cambio. Trata de utilizar solo la opcion de Create...
__________________
http://www.gestionportable.com
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
No puedo instalar Microsoft Visual Studio 2010 Professional lsedr La Taberna 20 05-12-2013 23:25:48
outlook microsoft office shoulder Varios 5 10-12-2011 13:11:25
Delphi development offered for Microsoft Visual Studio 2010 JXJ Noticias 0 22-04-2010 20:36:17
Crear una Cita de Microsoft Outlook adebonis Servers 6 02-12-2005 19:03:38
Delphi y Microsoft Outlook Alexander Servers 0 13-09-2004 21:56:58


La franja horaria es GMT +2. Ahora son las 21:34:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi