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