Adressbuch

Create address entry / Get address entry

This code fragment adds a new entry to the personal address book and write some field values from an existing address entry into an textfile.

using System.IO;
using DvApi32;
.... 

DavidAPIClass oApp;
Account oAcc;
Archive oArchive; 
AddressBook oAddressbook;
AddressItem oAddressItem;
Address oAddress;

oApp = new DavidAPIClass();
oApp.LoginOptions = DvLoginOptions.DvLoginForceAsyncDuplicate;
oAcc = oApp.Logon("", "", "", "", "", "NOAUTH");
oArchive = oAcc.GetSpecialArchive(DvArchiveTypes.DvArchivePersonalAddress);
oAddressItem = (AddressItem)oArchive.NewItem(DvApi32.DvItemTypes.DvAddressItem); 

oAddressItem.DisplayName = "Test User";
oAddressItem.AltEMail = "chef@firma.de";
oAddressItem.AltFaxNumber = "555-333-555";
oAddressItem.Category = 2;
oAddressItem.City = " New York";
oAddressItem.Company = "Firm";
oAddressItem.Birthday = "15.06.1960";
oAddressItem.Save(DBNull.Value, DBNull.Value);

oAddressbook = oAcc.PersonalAddressBook;
oAddress = oAddressbook.Item(0);
oAddressItem = oAddress.AddressItem;

using (StreamWriter sw = new StreamWriter(@"C:\testfile.txt"))
{
 sw.WriteLine("AltEmail address: " + oAddressItem.AltEMail);
 sw.WriteLine("AltFaxNumber address: " + oAddressItem.AltFaxNumber);
 sw.WriteLine("display name: " + oAddressItem.DisplayName);
 sw.WriteLine("birthday: " + oAddressItem.Birthday);
 sw.WriteLine("category: " + oAddressItem.Category);
 sw.WriteLine("city: " + oAddressItem.City);
 sw.WriteLine("company: " + oAddressItem.Company);
 sw.WriteLine("preferred type: " + oAddressItem.PreferredType);
}

oAcc.Logoff();

Dim oApp As DvApi32.DavidAPI
Dim oAcc As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oSubArchive As DvApi32.Archive
Dim oNewArchive As DvApi32.Archive
Dim oArchives As DvApi32.Archives
Dim fso, txtfile
Dim i As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("c:\testfile1.txt", True)
Set oApp = CreateObject("DVOBJAPILib.DvISEApi")
Set oAcc = oApp.Logon
Set oArchive = oAcc.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalOut)
For i = 1 To oArchive.Archives.Count
  Set oSubArchive = oArchive.Archives.Item(i - 1)
  txtfile.WriteLine ("SubArchive from your personal out archive: " & oSubArchive.DisplayName)
  txtfile.WriteLine ("Path of the SubArchive: " & oSubArchive.FullPath)
Next
txtfile.Close