Wie kann ich beim Ausrucken von Outlook ContactItems den Drucker auswählen?

[soulies]

hoi,

was passiert denn wenn du die reihenfolge deines Codes dahingehend änderst,
das zu erst der PrinterSetup Dialog erscheint.

Es könnte ja sein das beim aufruf von
oaOutlook := CoOutlookapplication.create; der aktuell eingestellte Drucker gespeichert und verwendet wird ...

wenn jetzt der Dialog kommt kann man zwar den Drucker ändern,
aber im Outlook-Objekt steht halt der alte drin ...

Idee:

Delphi-Quellcode:

procedure TvbCONTACT.ToolButton11Click(Sender: TObject);
var
  oaOutlook : Variant; //OutlookApplication;
  nsOutlookNamespace : Variant; //Namespace;
  ciContact : Variant; //ContactItem;
begin
  if PrinterSetupDialog1.Execute then
  begin
    // Login
    oaOutlook := CoOutlookapplication.create;
    nsOutlookNamespace := oaOutlook.getnamespace('MAPI');
    nsOutlookNamespace.Logon('', '', False, True);

    // Create ContactItem and fill contact information
    ciContact := oaOutlook.CreateItem(olContactItem);
    ciContact.FullName := 'TestName';  

    ciContact.PrintOut;
  end;
end;

cya