Avatar billede flarsen Nybegynder
26. september 2001 - 00:01 Der er 8 kommentarer

Email og Excel

Følgende virker hvis jeg anvender engelsk office 2000
With ThisWorkbook
    .HasRoutingSlip = True
    With .RoutingSlip
        .Delivery = xlOneAfterAnother
        .Recipients = Array(\"flemming.dehn-larsen@airliquide.com\", _
            \"flemming.dehn-larsen@airliquide.com\")
        .Subject = \"Produktionsforskrift medicinske gasser\"
        .Message = \"Her har du Produktionsforskrift medicinske gasser for godkendelse\"
        .ReturnWhenDone = True
End With
    .Route
End With

Hvordan får jeg det til at virke med dansk office 2000Med venlig hilsen Flemming Larsen
26. september 2001 - 00:09 #1
Der burde ikke være nogen forskel - da VBA i den engelske og danske version skulle være ens.

Jeg får ingen compile error på din kode i den danske version.
26. september 2001 - 00:10 #2
Her er et eks. fra den \"danske\" hjælp til VBA:

Workbooks(\"BOOK1.XLS\").HasRoutingSlip = True
With Workbooks(\"BOOK1.XLS\").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array(\"Adam Bendel\", _
        \"Jean Selva\", \"Bernard Gabor\")
    .Subject = \"Here is BOOK1.XLS\"
    .Message = \"Here is the workbook. What do you think?\"
End With
Workbooks(\"BOOK1.XLS\").Route
26. september 2001 - 00:10 #3
Din kode er lige så fin.
Avatar billede janvogt Praktikant
26. september 2001 - 01:46 #4
VBA er altid engelsk og derfor er det ligegyldigt om du arbejder i en dansk eller en engelsk version af Office-pakken.
Derfor skulle du således ikke have nogle problemer med din kode.
Avatar billede mile Juniormester
26. september 2001 - 13:05 #5
Jeg har ikke en dyt forstand på kode, men kan det tænkes at din danske Outlook ikke er sat op til at adskille adresser med komma, jeg kan se at dine er adskilt af komma.
Avatar billede flarsen Nybegynder
26. september 2001 - 14:07 #6
Jeg har nu prøvet kodeeksemplet jeg modtog og med det resultat jeg havde forventet samme fejl
Fejlen jeg får er

Run-time error 1004
Method \'HasRoutingSlip\' of object \'_workbook\' failed

I rætfærdighedens navn skal det lige nævnes at operativsystemet er UK Win 2000 og Excel er Dansk 2000

Hilsen Fleming
Avatar billede janvogt Praktikant
26. september 2001 - 15:29 #7
Prøv at lave din kode om til
Workbooks(\"WORKBOOK.XLS\").HasRoutingSlip = True

i stedet for
With ThisWorkbook
    .HasRoutingSlip = True
End With

I stedet for WORKBOOK.XLS skal du indsætte navnet på din fil.
Avatar billede flarsen Nybegynder
26. september 2001 - 19:01 #8
Det du foreslår er forsøgt ifølge kodeeksempel fra Flemmingdahl

Hilsen Flemming larsen

PS Jeg ser det selv som et problem omkring funktionskald med en Dansk Office på en Engelsk Windows !!!!!!!!!!!!!!!!!!!!!!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester