Du kan ikke knytte en beskyttet Word-dokument til en samhandling i Microsoft Dynamics NAV 2009


Denne artikkelen gjelder for alle land og alle språkinnstillingene for Microsoft Dynamics NAV 2009.

Symptomer


Når du prøver å knytte en beskyttet Word-dokument til en samhandling i Microsoft Dynamics NAV 2009 R2 og i Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), får du en feilmelding som sier at du ikke kan knytte dokumentet fordi dokumentet er beskyttet. Hvis du for eksempel får du følgende feilmelding:
Kallet til medlemmet OpenDataSource mislyktes. Microsoft Word returnerte følgende melding: The OpenDataSource metoden eller egenskapen er ikke tilgjengelig fordi det merkede området er låst for redigering.

Oppløsning


Informasjon om hurtigreparasjon

En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å løse problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som har dette bestemte problemet. Denne hurtigreparasjonen kan gjennomgå ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på neste oppdateringspakke for Microsoft Dynamics NAV 2009 eller den neste versjonen av Microsoft Dynamics NAV som inneholder denne hurtigreparasjonen.

Obs! I spesielle tilfeller avgifter som vanligvis påløper for støtte samtaler kan avbrytes hvis en kundestøttemedarbeider for Microsoft Dynamics og beslektede produkter avgjør at en bestemt oppdatering løser problemet. Vanlige kundestøttekostnader gjelder for ytterligere kundestøttespørsmål og problemer som ikke dekkes av den gjeldende oppdateringen.


Installasjonsinformasjon

Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.

Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle brukere av Microsoft Navision-klienten er logget av systemet. Dette inkluderer Microsoft Navision Application tjenester (NAS) client-brukere. Du skal bare klient-brukeren som er logget på når du implementerer denne hurtigreparasjonen.

Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.

Vi anbefaler at kontoen i vinduet Windows-pålogging eller i vinduet Database-pålogging være tildelt "SUPER" rolle-ID. Hvis brukerkontoen ikke kan tilordnes "SUPER" rolle-IDen, må du kontrollere at brukerkontoen har følgende tillatelser:
  • Endre-tillatelse for objektet du vil endre.
  • Tilgangsnivået for systemet objekt-IDen til 5210 objektet og systemet objekt-ID-9015 -objekt.


Obs! Du har ikke tilgangsrettigheter til datalagre med mindre du har til å utføre data reparasjon.

Kodeendringer

Obs! Alltid løser teste koden i et kontrollert miljø før du installerer hurtigreparasjoner til produksjonsdatamaskiner for.
Hvis du vil løse dette problemet ved å endre koden i WordManagement Codeunit (5054). Følg disse trinnene:
  1. Legg til følgende global variabel:
    Text009@1009 : TextConst 'ENU=Sending individual mails...';
  2. Endre koden i funksjonen ExecuteMerge som følger:
    Eksisterende kode
    ...          FORMAT(TempDeliverySorter."Correspondence Type")));
    IF TempDeliverySorter.FIND('-') THEN
    NoOfRecords := TempDeliverySorter.COUNT;


    Attachment.GET(TempDeliverySorter."Attachment No.");


    WITH TempDeliverySorter DO BEGIN
    SETCURRENTKEY("Attachment No.","Correspondence Type",Subject);
    FIND('-');
    END;
    ...

    Ny kode
    ...          FORMAT(TempDeliverySorter."Correspondence Type")));
    IF TempDeliverySorter.FIND('-') THEN
    NoOfRecords := TempDeliverySorter.COUNT;


    Attachment.GET(TempDeliverySorter."Attachment No.");

    // Add the following lines.
    // Handle Word documents without mergefields
    IF NOT DocContainMergefields(Attachment) THEN BEGIN
    MainFileName := ConstDocFilename;
    Attachment.ExportAttachment(MainFileName);
    CASE TempDeliverySorter."Correspondence Type" OF
    TempDeliverySorter."Correspondence Type"::"Hard Copy":
    BEGIN
    wrdDoc := wrdApp.Documents.Open(MainFileName);
    HandleWorddocwithoutmerge(wrdDoc,TempDeliverySorter,MainFileName);
    ParamBln := FALSE;
    wrdDoc.Close(ParamBln);
    END;
    TempDeliverySorter."Correspondence Type"::"E-Mail":
    BEGIN
    // Send attachment to all contacts in buffer
    Window.UPDATE(6,Text009);
    Attachment.TESTFIELD("File Extension");
    HandleWorddocwithoutmerge(wrdDoc,TempDeliverySorter,MainFileName);
    DeleteFile(MainFileName);
    END;
    END;
    EXIT;
    END;
    // End of the lines.

    WITH TempDeliverySorter DO BEGIN
    SETCURRENTKEY("Attachment No.","Correspondence Type",Subject);
    FIND('-');
    END;
    ...

  3. Endre koden i funksjonen HandleWorddocwithoutmerge som følger:
    Eksisterende kode
    ...        IF EvalOK AND (Version >= 12.0) THEN
    EXIT('DOCX');
    EXIT(DefaultStr);
    END;


    BEGIN
    END.
    }
    }
    ...

    Ny kode
    ...        IF EvalOK AND (Version >= 12.0) THEN
    EXIT('DOCX');
    EXIT(DefaultStr);
    END;

    // Add the following lines.
    PROCEDURE HandleWorddocwithoutmerge@18(VAR wrdDoc@1021 : Automation "{00020905-0000-0000-C000-000000000046} 8.1:{00020906-0000-0000-C000-000000000046}:Unknown Automation Server.Document";VAR TempDeliverySorter@1022 : Record 5074;MainFileName@1023 : Text[260]);
    VAR
    InteractLogEntry@1001 : Record 5065;
    Contact@1002 : Record 5050;
    Mail@1003 : Codeunit 397;
    BEGIN
    WITH InteractLogEntry DO BEGIN
    REPEAT
    LOCKTABLE;
    GET(TempDeliverySorter."No.");
    IF TempDeliverySorter."Correspondence Type" = TempDeliverySorter."Correspondence Type"::"E-Mail" THEN BEGIN
    Contact.GET(InteractLogEntry."Contact No.");
    Mail.NewMessage(
    AttachmentManagement.InteractionEMail(InteractLogEntry),'',
    TempDeliverySorter.Subject,'',MainFileName,FALSE);
    InteractLogEntry."Mail GUID" := Mail.GetMailGUIDValue;
    END ELSE
    wrdDoc.PrintOut;
    InteractLogEntry."Delivery Status" := InteractLogEntry."Delivery Status"::" ";
    InteractLogEntry.MODIFY;
    COMMIT;
    UNTIL TempDeliverySorter.NEXT = 0;
    END;
    END;

    // End of the lines.

    BEGIN
    END.
    }
    }
    ...

Forutsetninger

Du må ha én av de følgende programmene installert for å bruke denne hurtigreparasjonen:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1

Informasjon om fjerning

Du kan ikke fjerne denne hurtigreparasjonen.

Status


Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen "Gjelder for".
Obs! Dette er en "RASKT PUBLISERE" artikkel opprettet direkte fra innenfor organisasjonen Microsoft Kundestøtte. Informasjonen i dette dokumentet tilbys som-er som svar på nye problemer. Som et resultat av hastigheten i å gjøre den tilgjengelig materialene kan inkludere typografiske feil, og den kunne bli revidert når som helst uten varsel. Se Vilkårene for Bruk for andre hensyn.