Hi,
ich habe mangels Doku ein paar Fragen zur Tobit Api unter Delphi 2010. Ich versuche einen MailClient zu schreiben. Doch hakt es an einigen Stellen
1. Kann mir jemand ein kleines Codeschnipsel zeigen, um Benutzerdefinierte Felder anzulegen und auszulesen? Ich weis, dass dies ueber SetProperty bzw GetProperty geht, doch fehlt mir die Beschreibung zu dieser Funktion bzw. ich bekomme es zwar geschrieben ueber SetProperty(1234, 'test'), aber nicht wieder ausgelesen ueber GetProperty(1234, dvfieldtext), geschweige denn dass ich wuesste woher die PropertyID stammt.
2. Wie kann ich den Absender einer email setzen? Ueber Fields('SRFrom') und SRFromDisplay habe ich es versucht, jedoch wird bei messageitem2.send wieder der angemeldete User als Absender der mail eingetragen.
Wenn es ueber UserFields und MailItem einfacher ist obiges zu realisieren, nehm ich auch dazu gern Codeschnipsel. Problem bleibt halt, dass ich den Absender setzen muss und ein Benutzerfeld lesen/schreiben.
Procedure TTobit.test;
var
pArchiv: DVapi32_TLB.Archive;
pMessageItem2: MessageItem2;
vararr: variant;
textstring: string;
begin
pArchiv := DVAccount.GetSpecialArchive(DvArchivePersonalout);
pMessageItem2 := pArchiv.CreateArchiveEntry(DvEMailItem);
Fields(pMessageItem2.Fields).Item('Priority').value := DvMsgPriorityImportant;
pMessageItem2.Subject := 'testsubject1';
pMessageItem2.SetProperty(4190, 'test');
textstring := pMessageItem2.GetProperty(4190, DvFieldText);
Fields(pMessageItem2.Fields).Item('SRFrom').value := 'absender@nix.de';
Fields(pMessageItem2.Fields).Item('SRFromDisplay').value := 'absender@nix.de';
Fields(pMessageItem2.Fields).Item('SRTo').Value := 'empfaenger@ich.de';
varArr := VarArrayCreate([0, 0, 0, 1], varOleStr);
VarArrayPut(varArr, 'empfaenger1@ich.de', [0, 0]);
VarArrayPut(varArr, 'empfaenger1@ich.de', [0, 1]);
Fields(pMessageItem2.Fields).Item('To').Value := vararr;
pMessageItem2.Send;
end;
Alles anzeigen
MfG Alex