Beschreibung:

Liefert ein OLEError-Objekt zurück.

Typ:

OLEError

Beispiel VBScript:

' Erstellt einen neuen Aktivitäten-Datensatz und fügt ein Dokument hinzu. Basis ist hierbei der Aktivitäten-Container der Firmen-Ansicht einer combit_Large-Solution

Dim oDocMngr : Set oDocMngr = cRM.CurrentProject.DocMngr

Dim oRecord : Set oRecord = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord

Dim oRelation : Set oRelation = cRM.CurrentProject.ActiveViews.ActiveView.Config.Relations.ItemByName("ID.Aktivitäten.CompanyID")

Dim sFileToAppend : sFileToAppend = "C:\Firmen-Dossier.docx"

Dim sDocDescription : sDocDescription = "docx"

If (oDocMngr.AppendFile(oRecord, oRelation, sFileToAppend, sDocDescription) = True) Then

    Call cRM.DialogMessageBox("Die Datei """ & sFileToAppend & """ konnte erfolgreich hinzugefügt werden.", "DocMngr.AppendFile", vbOkOnly)

Else

    If (oDocMngr.LastError.ErrorCode = 32) Then

        Call cRM.DialogMessageBox("Das Hinzufgen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFile", vbOkOnly)

    ElseIf (oDocMngr.LastError.ErrorCode = 33) Then

        Call cRM.DialogMessageBox("Das Hinzufgen der Datei """ & sFileToAppend & """ konnte nicht erfolgreich durchgeführt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFile", vbOkOnly)

    End If

End If

Set oRelation = Nothing

Set oRecord = Nothing

Set oDocMngr = Nothing

Beispiel C#-Script:

// Erstellt einen neuen Aktivitäten-Datensatz und fügt ein Dokument hinzu. Basis ist hierbei der Aktivitäten-Container der Firmen-Ansicht einer combit_Large-Solution

DocMngr docMngr = cRM.CurrentProject.DocMngr;

Record record = cRM.CurrentProject.ActiveViews.ActiveView.CurrentRecordSet.CurrentRecord;

Relation relation = cRM.CurrentProject.ActiveViews.ActiveView.Config.Relations.ItemByName("ID.Aktivitäten.CompanyID");

string fileToAppend = @"C:\Firmen-Dossier.docx";

string docDescription = "docx";

if (docMngr.AppendFile(record, relation, fileToAppend, docDescription) == true)

{

    cRM.DialogMessageBox("Die Datei \"" + fileToAppend + "\" konnte erfolgreich hinzugefügt werden.", "DocMngr.AppendFile", 0);

}

else

{

    if (docMngr.LastError.ErrorCode == 32)

    {

        cRM.DialogMessageBox("Das Hinzufügen der Datei \"" + fileToAppend + "\" konnte nicht erfolgreich durchgefhrt werden. Der Schreibzugriff wurde verweigert.", "DocMngr.AppendFile", 0);

    }

    else if (docMngr.LastError.ErrorCode == 33)

    {

        cRM.DialogMessageBox("Das Hinzufügen der Datei \"" + fileToAppend + "\" konnte nicht erfolgreich durchgefhrt werden. Das Kopieren der Datei ist fehlgeschlagen.", "DocMngr.AppendFile", 0);

    }

}

relation.Dispose();

record.Dispose();

docMngr.Dispose();