Function mail()

    Dim primaoc As String
    Dim subjekt As String
    Dim poruka As String

    primaoc = "primjer@email.com"
    subjekt = "Test Email"
    poruka = "Ovo je testna poruka iz Microsoft Accessa."
    putanjaDatoteke = "e:\20081.pdf"

    DoCmd.SendObject acSendNoObject, , , primaoc, , , subjekt, poruka, True, putanjaDatoteke

    MsgBox "Email je uspjesno poslan.", vbInformation
End Function