EMail mit Api versenden und mit eindeutigem Feld markieren

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;

MfG Alex

DvFieldText ist Teil eines Enum aus der fuer Delphi erzeugten Tobit-Api und wurde von mir vom Namen her faelschlicherweise fuer den Typ von GetProperty gehalten. Nachdem ich mittlerweile weis, dass Text die 8 ist und nicht DvFieldText, funktioniert es auch. Danke schon mal hierfuer.

Was den Absender betrifft schreibe ich nahezu exakt die selbe Zeile wie aus dem Beispiel in meinem Code (Zeile 17-18). Das Kuriose: Wenn ich die Nachricht ueber pMessageItem2.Save() speichere, wird der Absender korrekt eingetragen. Versende ich sie ueber .Send() wird der Absender des angemeldeten Benutzers verwendet.

MfG Alex

Zitat von Teardrop

Hallo Alex,

mit Delphi kann ich leider nicht dienen.

Generell:
Die Property ID bestimmst Du selbst. Hierdurch lassen sich die verschiedenen Properties unterscheiden, z.B. wenn zwei verschiedene Programme Properties verwenden.

Ein Beispiel zum auslesen von Properties in Video items findest Du in der API Hilfe.
Was genau ist Dein "dvfieldtext"?

Code

oMessageItem2.GetProperty(74, 8);
oMessageItem2.GetProperty(152, 3);

Das erste Beispiel holt die Poperty mit der ID 74 als String, das Zweite die Property mit der ID 152 als Long:

Absender
Auch dazu hat die API Hilfe ein Beispiel.

Code

oFields.Item("SRFrom").Value = "Thomas.Tobit@tobit.com";

Das funktioniert so auch in .NET

Gruß Jens

Alles anzeigen

Die Verwendung von @@VON ist zwar nicht besonders huebsch, aber funktioniert und das ist die Hauptsache.

Vielen Dank!