[Delphi] Outlook/PST component?

[Aetje]

Ik ben op zoek naar een tool waarmee ik rauwe text in een PST kan importeren. Wat achtergrond: We hebben een zeer oud mailsysteem (Pegasus/Mercury) wat we naar Exchange om willen zetten. Ik heb inmiddels een eenvoudige manier om de mail als rauwe text te kunnen exporteren(kleine Delphi app die de attachment files als MIME integreert in de berichten, en daarna de folder op integriteitsfouten checkt), maar nog niets om iets te kunnen importeren in PSTs.

Wat wil ik uiteindelijk? Importeren in een PST waarbij ik alleen berichten en de folder structuur bewaar. Geen address book en andere meuk.

Ik heb me helemaal rot gezocht op google en andere crawlers... ik begin te geloven dat zo'n component niet bestaat.

Als het bestaat voor een andere taal (Visual C, Borland C) heb ik nog steeds interesse...

[ Voor 10% gewijzigd door Aetje op 27-07-2006 04:24 ]

[xtra]

De meest bereikbare is waarschijnlijk Outlook. Met ActiveX zul je een groot deel kunnen doen. Of het ook lukt om jouw tekst naar berichten om te zetten weet ik niet. Als het om een eenmalige actie gaat kun je dit zeker overwegen.

[Klippy]

xtra schreef op donderdag 27 juli 2006 @ 04:55:
De meest bereikbare is waarschijnlijk Outlook. Met ActiveX zul je een groot deel kunnen doen. Of het ook lukt om jouw tekst naar berichten om te zetten weet ik niet. Als het om een eenmalige actie gaat kun je dit zeker overwegen.

Zal prima lukken en lijkt me ook de meest makkelijke oplossing.
Daarnaast is het allemaal erg simpel. Gewoon tijdens het uitlezen van ja data in Delphi de tekst wegscrijven naar een lokale Outlook en hij slaat alles op in je PST file. Makkelijker kan bijna niet.
En je kan bijna elke taak automatiseren in Outlook, dus dit moet ook kunnen.

http://msdn2.microsoft.com/en-us/library/y1xatbkd.aspx
http://msdn.microsoft.com...oltocommap_HV01049998.asp

[ Voor 7% gewijzigd door Klippy op 27-07-2006 06:17 ]

[Aetje]

Ik ga ns lekker n blikje code open trekken dan... Dank voor de links.

[Tomatoman]

Het kan allemaal best simpel hoor. Een voorbeeld dat ik letterlijk van deze website heb gekopieerd:

Delphi:

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('[e-mail]');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\temp\sample.txt');
  vMailItem.Send;

  VarClear(Outlook);
end;

Nog meer resources specifiek voor Delphi: http://www.djpate.freeserve.co.uk/AutoOutl.htm