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

 

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

 

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

 

 

 

 

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

 

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.

 

 

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

 

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

 

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

 

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

F.eks. test@test.dk;test2@test.dk

 

//Allan

Det var fedt at du kunne bruge det.

 

//Allan

 

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