[Delphi 6/2007] MAPI en Groupwise

[Spockz]

Ik ben nu al een poosje bezig om ondersteuning voor Groupwise in te bakken in ons programma. De methode die ik nu gebruik werkt prima met alle outlook versies maar dus niet met Groupwise.

Wat er gebeurd in Groupwise is:
Als de client zelf nog niet is opgestart wordt het programma gestart maar wordt er geen nieuw berichtvenster getoond. Als de client al wel draaide komt er ook geen nieuw bericht venster maar returned de MAPISendMail functie wel '0' en dat zou succes moeten voorstellen.

Om te kijken of het aan Groupwise zou liggen die geen MAPI zou ondersteunen heb ik een C# programma gevonden die het wel voor elkaar krijgt om een nieuw bericht venster te tonen in Groupwise.

Nu hebben we onze methode nagelopen en gekeken wat het verschil was tussen wat wij deden en wat het C# programma deed en daar zat geen functioneel verschil tussen. Vervolgens hebben we geprobeerd om de methode van het C# programma te vertalen naar Delphi maar dat heeft ook niets opgeleverd.

Nu is mijn vraag of iemand hier ervaring heeft met Groupwise en MAPI.

Edit: Het gaat hier trouwens om Groupwise 7

[RobLemmens]

Ik zou zo niet weten wat er fout gaat met je code, zoals hieronder doen wij het met delphi7 en groupwise 6. Deze code gaat er wel vanuit dat notify is opgestart en ingelogd. Anders moet je credentials meegeven.
Tijdens de instal van gw6 krijg je ook de vraag of je de mapi componenten wil installeren (zoiets, is al lang geleden) ik neem aan dat je die erop hebt staan?

Delphi:

var GroupWise,RA,OutMsg,
    Recpt, MailMsg       : OleVariant;
begin

 //Connect through OLE with the groupwise client
 try
  GroupWise := CreateOleObject('NovellGroupWareSession');
  RA        := GroupWise.Login('','/ph-?');
 except
  MessageDlg('Failed to establish a interface to GroupWise',mtError,[mbOK],0);
  Exit;
 end;

 //construct the message
 MailMsg          := RA.MailBox.Messages.Add('GW.MESSAGE.MAIL.Internet'); //Add message subtype "internet" to match the GroupWise SMTP gateway
 MailMsg.Subject  := Subject;

 
 MailMsg.BodyText := Msg;
 MailMsg.ViewName := 'Internet';  //Changed the viewname to match the GroupWise SMTP gateway viewname
 Recpt            := MailMsg.Recipients.Add(Addres); {Send message to owner}
 if(CC <> '') then Recpt := MailMsg.Recipients.Add(CC); {Send message to owner}
 Recpt.Resolve;

 //Add the Attachments
 i := 0;
 if(Attachments <> NIL) then while (i < Attachments.Count) do begin
  MailMsg.Attachments.Add(Attachments.Strings[i]);
  i := i + 1;
 end;


 MailMsg.Send;

 GroupWise := Unassigned;
 RA        := Unassigned;

end;

[Spockz]

Het lijkt mij niet dat je hier gebruik maakt van de MAPI, of mis ik hier nu iets?

En als je Send gebruikt dan wordt het mailtje meteen verstuurd. Ik wil eerst het berichtenscherm nog laten zien, dus dat je handmatig op versturen moet klikken en de inhoud nog een keer kan controleren.

[ Voor 55% gewijzigd door Spockz op 17-04-2007 15:25 ]

[Spockz]

Kickje.

[JoetjeF]

Geen ervaring met MAPI, maar heb je de GW MAPI API al bekeken? Hier staan ook voorbeelden en een link naar de support forums.

[ Voor 25% gewijzigd door JoetjeF op 30-04-2007 10:22 ]

[Spockz]

Ja daar had ik al naar gekeken, maar voorzover ik kon zien moet je dan aparte code voor de GW api schrijven en dat was nou eigenlijk juist niet de bedoeling.