Hej har har gjort 2 st rapporter som jag vill skicka som bifogade filer, i samma mail
jag har lyckas bara få 1 st rapport genom denna kod

Private Sub CmdMail_Click()
On Error GoTo Err_CmdMail_Click

Dim stDocName As String
stDocName = "test1"

DoCmd.SendObject acReport, stDocName

Exit_CmdMail_Click:
Exit Sub

Err_CmdMail_Click:
MsgBox Err.Description
Resume Exit_CmdMail_Click

End Sub

Vore tacksam för hjälp

Skriver du mail = nothing mellan varje gång du kör. Om den ligger öppen skickas inte fler mail än just det sista eller första tror jag.

Tack för svaret ,men förstår nog inte riktigt hur du menar,kan man få ett exempel??
tack på förhand!