Einige Daten werden in der Vcard nicht angezeigt, MS-Office 2007

**onk**

Hallo liebe Delphi-Freunde,

ich arbeite mit RAD Studio Seattle Pro und MS-Office 2007.

ich möchte von meinem Programm aus Vcards erzeugen und diese in den Outlook-Kontakten übernehmen.
Die Infos habe ich von den folgenden Webseiten:

https://de.wikipedia.org/wiki/VCard

http://wiki.christian-stankowic.de/d...rd#anwendungen

Was ich nicht verstehe, die E-Mail wird z.B. angezeigt, aber die Webadresse bleibt leer, steht aber in der Visitenkarte.
Die Festnetznummer und die Mobilnummer werden angezeigt, nicht aber die Faxnummer. Auch bleibt die Anschrift leer. Im Source der Vcard ist alles eingetragen.

Das ist der Source der Vcard:

BEGIN:VCARD
VERSION:4.0
FN:Musti Mustermann
ORG:Mustermann AG
TITLE:Bürohonk
TEL;TYPE=work:22 55 22 66
TEL;TYPE=fax:22 55 22 67
TEL;TYPE=cell:0177 / 1 10 22 55 22
X-MS-OL-DEFAULT-POSTAL-ADDRESS:0
EMAIL:m.mustermann@test.de
URL:

www.mustermann.de
ADR;TYPE=work;LABEL="Mustermannstr. 33\n12203 Berlin"
:;;Mustermannstr. 33;Berlin;12203n\Deutschland
note:Ich bin Mustermannfähig.
REV:20140301T221110Z
END:VCARD

zusammenfalten · markieren

Delphi-Quellcode:

			
              festnetz:=dapc.FieldByName('TelefonFirma').asstring;

              Position:=dapc.FieldByName('Position').asstring;

              notizen:=dapc.FieldByName('notizen').asstring;

               anrede:=dapc.FieldByName('anrede').asstring;

               vorname:=dapc.FieldByName('vorname').asstring;

               nachname:=dapc.FieldByName('nachname').asstring;

               firma:=dapc.FieldByName('firma').asstring;

               email:=dapc.FieldByName('email').asstring;

               webseite:=dapc.FieldByName('webseite').asstring;

               fax:=dapc.FieldByName('fax').asstring;

               mobil:=dapc.FieldByName('mobiltelefon').asstring;

               strasse:=dapc.FieldByName('strasse').asstring;

               plz:=dapc.FieldByName('plz').asstring;

               ort:=dapc.FieldByName('ort').asstring;

  pfad:=ExtractFilePath(Application.ExeName) + '\vcard.txt';

            if FileExists(pfad) then

              DeleteFile(pfad);

            if not FileExists(pfad) then

            begin

              AssignFile(tFile, pfad);

              ReWrite(tFile);

              WriteLn(tFile, 'BEGIN:VCARD');

              WriteLn(tFile, 'VERSION:4.0');

//            WriteLn(tfile,'N;LANGUAGE=de:'+ name + '');  // Wenn ich das auskommentiere, wird im Outlook Editfeld "Speichern unter" form1 angezeigt

                                                            // wenn ich das ingnoriere werden korrekt der Nachname, das Komma und der Vorname angezeigt

              WriteLn(tFile, 'FN:' + vorname + ' ' + nachname + '');

              WriteLn(tFile, 'ORG:' + firma + '');

              WriteLn(tFile, 'TITLE:' + Position + '');

              WriteLn(tFile, 'TEL;TYPE=work:' + festnetz + '');

              WriteLn(tFile, 'TEL;TYPE=fax:' + fax + '');   //Wird nicht angezeigt

              WriteLn(tFile, 'TEL;TYPE=cell:' + mobil + '');

              WriteLn(tFile, 'X-MS-OL-DEFAULT-POSTAL-ADDRESS:0');

              WriteLn(tFile, 'EMAIL:' + email + '');

              WriteLn(tFile, 'URL:' + webseite + '');  // Wird nur in der Visitenkarte angezeigt

              WriteLn(tFile, 'ADR;TYPE=work;LABEL="' + strasse + '\n' + plz + ' ' + ort + '"'); // Wird nicht angezeigt

              WriteLn(tFile, ':;;' + strasse + ';' + ort + ';' + plz +

                'n\Deutschland');

              WriteLn(tFile, 'note:' + notizen + '');

              WriteLn(tFile, 'REV:20140301T221110Z');

              WriteLn(tFile, 'END:VCARD');

              closefile(tFile);

            end;

Ich bedanke mich schon im Voraus für eure Unterstützung.

Vielen Dank,
Viele Grüße aus Berlin
von Onk

Einige Daten werden in der Vcard nicht angezeigt, MS-Office 2007

Einige Daten werden in der Vcard nicht angezeigt, MS-Office 2007

Stichworte

Forumregeln