Jeg har nedenstående bid vba program der ved tryk på knap sender excel fil til de definerede brugere i c4. Men jeg ønsker fil sendt som pdf men kan ikke finde ud af hvordan. Kan i hjælpe?

 

 

  activeWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\DOCUME~1\nsa\LOKALE~1\Temp\Mappe1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    activeWorkbook.SendMail Recipients:=([c4]), Subject:=("budgetopfølgning maj")
End Sub

 

Mvh Niels

 

Jeg har en kodestump som jeg lavede for en del år siden, den er din hvis du kan bruge den.

Det aktive ark gemmes på skrivebordet som pdf og sendes til alle adresser som står i C4.

Koden skal placeres i sit eget modul.

Kør sub'en Print_To_PDF for at starte afsendelsen.

 

//Allan

 

'Det aktive ark konverteres til PDF
'Opdateringen som gør Office 2007 klar til dette, kan hentes her: http://www.microsoft.com/downloads/details.aspx?familyid=4D951911-3E7E-4AE6-B059-A2E79ED87041&displaylang=da - ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveDir & Application.PathSeparator & BrevFil, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

 

Tak for det fremsendte. Jeg vil kigge på det, men umiddelbart kan jeg ikke genkende min egen vba koder! Troede på en mere simpel løsning da jeg ikke er en haj til vba. Jeg havde håbet at kunne tilføje en linje til min kode men så let er det nok ikke.....mange hilsner Niels

Sig til hvis jeg koden er for indviklet eller ikke virker. Jeg laver gerne et andet oplæg.

 

//Allan

 

Kan du hjælpe yderligere hvis du tager nedenstående i betragtning:

 

min fil jeg ønsker at sende som pdf hedder "budgetopfølgning juni 2012"

den skal sendes som pdf

til modtagerne i c4

til cc i c5

til bcc i c6

der skal ikke gemmes på skrivebord

ikke krav om at modtager skal svare

 

 

Jeg er jo ikke ekspert i vba så du må gerne tydeliggøre hvad der er decideret programering og hvad der er uddybende forklaring:)

 

Når nu dette er en fil jeg vil sende månedligt (efter opdatering) kan jeg så definere emne i mail til at følge filens navn?

 

Håber du kan hjælpe videre.

 

Mange hilsner

Niels

 

 

 

 

Selvfølgelig vil jeg hjælpe.

Nedenstående kode gør som du efterspørger.

 

Rent teknisk, er jeg nødt til at gemme pdf'en et sted for at kunne sende den, men den slettes automatisk efter at mailen er sendt.

Du kan selv rette filnavn og brødtekst i koden foroven.

Der er mulighed for at pdf kan få samme navn som din Excelfil eller måske fanens navn, hvad ønsker du? 

 

Kopier hele koden (Den som er farvet blå herunder) ind i dit ark.

Når du har sat koden ind, vil du kunne se at jeg har skrevet lidt forklaringer i koden. (De vil være fremhævet med grønt)

Har du brug for hjælpe til at lægge koden i dit ark, så sig til.

 

 

 

'Det aktive ark konverteres til PDF
'Bruger du Office 2007, skal du muligvis hente en opdatering som gør det muligt at gemme som pdf: http://www.microsoft.com/downloads/details.aspx?familyid=4D951911-3E7E-4AE6-B059-A2E79ED87041&displaylang=da - ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveDir & Application.PathSeparator & FilNavn, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

 

 

Tak for hurtigt svar. Jeg får en fejl retur efter indsættelse af dit forslag. Ville det værer ok hvis jeg sendte fil og du indsatte programmeringen? Hvis det kan lade sig gøre...

 

/Niels

 

Klik på mit navn til højre for denne besked og vælg "Send personlig besked"

Upload dit regneark og send den til mig.

 

//Allan

 

 

Nu har jeg lagt koden i din fil, så den kan sendes via mail som pfd ved klik på en knap.

Husk at ændre e-mailadresserne så de passer med virkeligheden.

 

uploads/1/leg_med_makro.xlsm - uploads/1/leg_med_makro.xlsm

 

Inden du forsøger at bygge det ind i et andet ark, skal du huske at lave en reference til Outlook i VBA-editoren på det nye ark.

Det gøres således:

 

Gå ind i VBA-editoren (ALT + F11)

Gå op i menuen og vælg 'Tools' og 'References'

På listen skal du nu sætte en markering ved 'Outlook xx.x OPbject Library'

 

 

Når det er gjort, vil det virke.

 

//Allan

 

Det virker

 

Mange tusinde tak for hjælpen (som altid super hjælp at hente her). Jeg glæder mig til at bruge dette ifm arbejde. Jeg har lånt en bog om vba programmering og med dette program og strukturen bagved er jeg godt på vej.

 

Vil senere i dag ligge programmet i den rette fil og så hurtigt som muligt tage den i anvendelse...glæder mig til den lettelse dette vil give.

 

Mange tusinde tak. Hilsen Niels

 

 

Tro mig, at læse VBA vil du ikke fortryde, det giver vildt mange muligheder for nemmere arbejdsgange.

Når du har læst bogen, kan du f.eks. også besvare spørgsmål her i forummet , det er jo ikke så dårligt.

 

//Allan

 

Jeg vil gerne tilføje yderligere i const broedtekst. Lige nu hedder den hermed fremsendes budgetopfølgning for juni 2012. Men hvis nu jeg ønsker at tilføje Kære Allan efterfulgt af Hermed.... og så slutte af med Mvh Niels. Har forsøgt diverse ting men den melder fejl.

 

Ligeledes har jeg behov for at kunne sende mail til flere en mailto:nsa@statsbiblioteket.dk - nsa@statsbiblioteket.dk . Har forsøgt at tilføje i celle c5 og så rette i programmet, men så sker der intet??

 

mvh Niels

 

Ret Const Broedtekst til:

 

Blot for forståelsen:

For hver gang til man afslutter en tekst med gåseøjne, og vil tilføje en ny linje, skal man bruge VbCrLf (carriage return line feed)

Når man skifter mellem tekst i gåseøjne og en statement som Line feed, bruges &-tegnet.

Linjen skal se sådan ud.

Resultatet bliver:

 

//Allan

 

 

Super svar og fint at du gider at lave uddybningen for min forståelse.

 

Håber du senere kan hjælpe med mit andet spørgsmål om at kunne tilføje flere mail adresser:)

 

mange hilsner Niels

Du skal slet og ret skrive dem efter hinanden i cellen, blot med semikolon som seperator.

F.eks. mailto:test@test.dk;test2@test.dk - test@test.dk;test2@test.dk

 

//Allan

 

Mange hilsner

Niels

Det var fedt at du kunne bruge det.

 

//Allan

 

Har været nede og ligge efter en diskusprolaps opperation men skal nu afslutte min projekt med at sende fil som pdf.

 

Jeg har fået ovenstående til at virke, men i min excel fil er der flere faneblade der alle gerne skulle pdf'es i en og samme leverance? Jeg kan se i programmet at der står det aktive ark? Hvordan kan jeg sende den samlede excel fil som pdf.

 

Håber du også kan hjælpe mig videre med denne del:)

 

mvh Niels

 

Men Jeg har lige nogle udfordringer med at få hul igennem til outlook som jeg lige vil have afklaret først. Jeg har sat hak under vba editoren ved outlook så det er ikke det der driller.

 

Den stopper under Sub Sendmail () ved linjen

Dim olap as outlook. application

 

det er ihvertfald fremhævet. og fejlmeddelsen compile error: user-defined type not defined.

 

Jeg har sendt outlook til min egen helpdesk funktion og håber at få afklaret fejlen hvorefter jeg håber du kan hjælpe med at få afgrænset de ark jeg vil pdf....

 

mvh NIels