Filnavn ved anvendelse af snapshot funktionen

Denne kopierer en rapport til en ny rapport hvor du indtaster det nye navn i en inputbox. Derefter sendes den nye rapport hvorefter den slettes igen:

Dim VARa As String
Dim VARb As String
VARa = Me!email
VARb = InputBox(Prompt:="Indtast ny titel.", Title:="Ny Titel", Default:="")
DoCmd.CopyObject , VARb, acReport, "rapport1"
DoCmd.SendObject acReport, VARb, "HTML(*.html)", VARa, "", "", "Hej", "test", True, ""
DoCmd.DeleteObject acReport, VARb

første fejlmeddelse: "Kan ikke finde feltet email"

Du må hellere forklare hvilket jeg skal udfylde/ændre i din kode.

"VARa = Me!email"

Refererer til et felt i din formular som er modtagerens e-mail adresse. Nu ved jeg ikke hvordan du overfører adressen til outlook, men det er denne linie du skal fifle med.

OK. Det virker interessant. Men det vil tage noget tid for mig (måske dage).

Me er den aktuelle (aktive) formular. email er navnet på et felt i den aktive formular (Me)

Hvordan får du modtagerens e-mail ned i din kode?

Yes, det har jeg vistnok fattet.

Endnu har jeg ikke haft modtagerens email med i anvendte tabeller. Så jeg har bare skrevet de respektive emailadresser når Outlook åbnede sig. Der er højest 4 emailadresser at holde styr på.
Men jeg har lige konstateret at en af mine udenlandske kontakter ikke kan åbne min mail med snapshot vedhæftede filer (=højt sikkerhedsniveau). Så sådan kan man jo blive overrasket. Hvad jeg nu skal gøre skal jeg have tænkt lidt over.

OK - Så skal koden ændres til denne:

Dim VARb As String
VARb = InputBox(Prompt:="Indtast ny titel.", Title:="Ny Titel", Default:="")
DoCmd.CopyObject , VARb, acReport, "rapport1"
DoCmd.SendObject acReport, VARb, "HTML(*.html)", "", "", "", "Hej", "test", True, ""
DoCmd.DeleteObject acReport, VARb

M.h.t. din udenlandske kontakt skal denne foretage en ændring at sit sikkerhedsniveau. Det har intet at gøre med din Access-db.

M.h.t. e-mail asdresser i formularen kan du indtaste dem i en separat tabel. Lav derefter en combo i din formular og giv den e-mailtabellen som postkilde. derved undgår du stavefejl når du som nu indtaster e-mailadressen i OutLook.

I koden skriver du HTML. Det betyder vel at rapporten sendes som *.html fil?

Jeg har forsøgt lokalt at sende i html formatet, men må konstatere, at en del af formateringen forsvinder, bl.a. en del rammer der er indsat i dokumentet.

Ja - Det var blot en kopiering af en eksisterende kode. Du skal blot ændre det til snapshot formatet for at beholde formatteringen.

Dim VARb As String
VARb = InputBox(Prompt:="Indtast ny titel.", Title:="Ny Titel", Default:="")
DoCmd.CopyObject , VARb, acReport, "rapport1"
DoCmd.SendObject acReport, VARb, "Snapshotformat(*.snp)", "", "", "", "Hej", "test", True, ""
DoCmd.DeleteObject acReport, VARb

Jeg har ikke fattet hvad meningen er med "indtast ny titel". Hvad jeg har prøvet at skrive deri ved flere test, kan jeg ikke se nogen som helst steder.
At jeg kan sætte en fast tekst ind i emne og tekst området har jeg testet og fundet ud af.
Filtrering har jeg også fået til at fungere.
Lige nu har jeg egentlig bare brug for, at kunne angive hvad filnavnet skal hedde, inden den selv navngiver et filnavn.

"Jeg har ikke fattet hvad meningen er med "indtast ny titel". Hvad jeg har prøvet at skrive deri ved flere test, kan jeg ikke "
I dit spørgsmål skriver du, at du selv vil bestemme hvad rapporten skal hedde når du mailer den. Det er du jo på een eller anden måde nødt til at fortælle databasen. Den rapport du mailer hedder det du indtaster i inputboxen.

"kan jeg ikke se nogen som helst steder."
Nej det kan du ikke fordi:

DoCmd.DeleteObject acReport, VARb

sletter den nye rapport igen. Ellers vil du jo få din database fyldt med gamle rapporter.

Prøv denne:

Dim VARb As String
VARb = InputBox(Prompt:="Indtast ny titel.", Title:="Ny Titel", Default:="")
DoCmd.CopyObject , VARb, acReport, "rapport1"
DoCmd.SendObject acReport, VARb, "Snapshotformat(*.snp)", "", "", "", "Hej", "test", True, ""

Den beholder den nye rapport, så du kan se, at den eksisterer. Prøv også at sende til dig selv, så vil du se, at den rapport du modtager har det nye rappportnavn. Du skal ikke have rapporten fremme på skærmen. Du sender blot fra din formular, og afhængig af det sidste argument (True eller False), vil OutLook åbnes så du evt. kan redigere i mailen.

I de test jeg har gjort, ved at sende snapshot filen til mig selv, modtages snapshot-filerne med samme navn hver gang (et navn programmet selv genererer), og ikke med det jeg skriver i feltet "Indtast ny titel"??

Ikke her - Det fungerer som beskrevet. Hvis du lægger din e-mail kan jeg sende dig den testdb hvori jeg har afprøvet funktionen.

Sendt.

Jeg afprøver din testdb og kommer tilbage.

OK - Du tager bare den tid du behøver.

mugs
Jeg kan bruge nogle af dine forslag. Jeg arbejder videre med det, men kommer måske tilbage.
Du får dine point.

Tak for point.