Email fra Access 2002

Lav en makro. Vælg SendObject som handling og udfyld felterne nederst.
Lav derefter en knap, som afspiller makroen.

Eller, hvis du hellere vil have det i VBA:
    DoCmd.SendObject acReport, "minrapport", "RichTextFormat(*.rtf)", "modtager", "cc-modtager", "Bcc-modtager", "Emne", "Tekst til E-mailen", False, ""

Der er også mulighed for at tilføje/tilpasse/oprette din egen menulinie, hvor du medtager kommandoen Postmodtager ( som vedhæftet fil )

Beskrivelse :

Sender outputtet af en tabel, en forespørgsel, en formular, en rapport eller et modul gennem dit elektroniske postprogram som en vedhæftet fil. Du kan sende hele outputtet fra et objekt eller en markeret del af et dataark i et af følgende formater, herunder: HTML (.html), MS-DOS-tekst (.txt), RTF-format (.rtf) eller Microsoft Excel (.xls).


Kommandoen er at finde under kategorien Filer

Send til postmodtager (som vedhæftet fil) (menuen Filer)

Fik du det til at virke?

Hej hekla og jensen363,
Undskyld jeg ikke vender tilbage før nu, men jeg har været ude at rejse lidt.
Jeg kan godt få det til at virke, men min hensigt er kun at vedhæfte den aktuelle post jeg står på som mail. (Rapporten for den aktuelle post og ikke alle poster)

Kan i gi mig vba koden eller makroen til dette ?

Hvis du har udskrevet den aktuelle post( til skærm ), skulle min fremgangsmåde også virke efter hensigten ...

Under alle omstændigheder, synes jeg det er "mere professionelt" at arbejde med indbyggede funktioner i menulinien ...

Hej Jensen,
Nej det gør den desværre ikke.
1:  Alle poster bliver vedhæftet
2:  De bliver lavet som regneark og ikke som rapporten

Jeg kigger lidt videre selv

Allan

Jeg er noget tvivlende om hvad din cmdKnap udfører. Hvad står der i koden ?
Hvis du udelukkende har een rapport skal fremgangsmåden virke.

Hej Hekla

Sådan ser koden til cmdUdskrivOrdren ud:

Private Sub cmdUdskrivOrdren_Click()
On Error GoTo Err_cmdUdskrivOrdren_Click

        DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    Dim stDocName As String

    stDocName = "UdskrivOrdre"
    DoCmd.RunMacro stDocName

Exit_cmdUdskrivOrdren_Click:
    Exit Sub

Err_cmdUdskrivOrdren_Click:
    MsgBox Err.Description
    Resume Exit_cmdUdskrivOrdren_Click

og Macroen der åbner raporten med den aktuelle form:

[Ordernumber]=[Forms]![FKort]![Ordernumber]

og det er denne rapporten for denne jeg gerne vil have i html format.

Føj en ny linie til makroen UdskrivOrdre. Vælg SendObject som handling og udfyld felterne nederst

Beklager igen, men jeg kan ikke få den til kun at sende aktuel post.
Jeg har prøvet begge forslag, men virker desværre ikke.

Hmm... Så lav en kopi af din rapport, og basér den på en forespørgsel med [Ordernumber]=[Forms]![FKort]![Ordernumber] som kriterie. Jeg tror ikke at det kan lade sig gøre at sende et filter direkte med i SendObject

Fik du det til at virke?

.

Jeg vil gerne afslutte dette spørgsmål med at afgive nogle points.
Jeg kan bare ikke finde ud af at gøre det  ?
Øv