Советы по Delphi



Delphi / MS Office 97 / OLE / VB для приложений


Здесь мы ответим на действительно интересные вопросы:
  • Как узнать, установлен ли Word 8 на машине клиента?
  • Где расположены шаблоны?
  • Почему запускается все время новый документ, когда я хочу работать в том же?
  • Как найти документ, с которым пользователь работал в последнее время?
  • Почему Word закрывается после завершения моей процедуры?
  • Как мне добраться до папок программы Outlook?
  • Как в Outlook получить доступ к существующему контакту или создать свой?

    {--------------------Взято из библиотеки типов--------------- WORDDEC.INC}
    Const
    // OlAttachmentType
    olByValue = 1;olByReference = 4;olEmbeddedItem = 5;olOLE = 6;// OlDefaultFolders
    olFolderDeletedItems = 3;olFolderOutbox = 4;olFolderSentMail = 5;olFolderInbox = 6;olFolderCalendar = 9;olFolderContacts = 10;olFolderJournal = 11;olFolderNotes = 12;olFolderTasks = 13;// OlFolderDisplayMode
    olFolderDisplayNormal = 0;olFolderDisplayFolderOnly = 1;olFolderDisplayNoNavigation = 2;// OlInspectorClose
    olSave = 0;olDiscard = 1;olPromptForSave = 2;// OlImportance
    olImportanceLow = 0;olImportanceNormal = 1;olImportanceHigh = 2;// OlItems
    olMailItem = 0;olAppointmentItem = 1;olContactItem = 2;olTaskItem = 3;olJournalItem = 4;olNoteItem = 5;olPostItem = 6;// OlSensitivity
    olNormal = 0;olPersonal = 1;olPrivate = 2;olConfidential = 3;// OlJournalRecipientType;
    olAssociatedContact = 1;// OlMailRecipientType;
    olOriginator = 0;olTo = 1;olCC = 2;olBCC = 3;
    Const
    wdGoToBookmark = -1;wdGoToSection = 0;wdGoToPage = 1;wdGoToTable = 2;wdGoToLine = 3;wdGoToFootnote = 4;wdGoToEndnote = 5;wdGoToComment = 6;wdGoToField = 7;wdGoToGraphic = 8;wdGoToObject = 9;wdGoToEquation = 10;wdGoToHeading = 11;wdGoToPercent = 12;wdGoToSpellingError = 13;wdGoToGrammaticalError = 14;wdGoToProofreadingError = 15;
    wdGoToFirst = 1;wdGoToLast = -1;wdGoToNext = 2; //интересно,wdGoToRelative = 2; //чем отличаются эти две константы?wdGoToPrevious = 3;wdGoToAbsolute = 1;

    Основные функции:

    Function GetWordUp(StartType : string):Boolean;
    Function InsertPicture(AFileName : String) : Boolean;
    Function InsertContactInfo(MyId : TMyId; MyContId : TMyContId): Boolean;
    Function GetOutlookUp(ItemType : Integer): Boolean;
    Function MakeOutLookContact(MyId : TMyId; MyContId : TMyContId) : Boolean;
    Function ImportOutlookContact : Boolean;
    Function GetOutlookFolderItemCount : Integer;
    Function GetThisOutlookItem(AnIndex : Integer) : Variant;
    Function FindMyOutlookItem(AFilter : String; var AItem : Variant) :Boolean;
    Function FindNextMyOutlookItem(var AItem : Variant) : Boolean;
    Function CloseOutlook : Boolean;

    Type TTreeData = class(TObject)
    PublicItemId : String;end;
    <


    Содержание    Вперед