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