Evo ti na brzinu izvađen primer koji ja koristim, treba samo da dodaš naznačene stavke specifične za tvoju aplikaciju, kao i parametar za zaključavanje Winrar fajla...
Code:'Iskopirati donji kod u novi modul
'Koristi se za pakovanje fajla Data.mdb u podfolderu aplikacije \Data
'i slanje istog kao attachment-a u email poruci na zadatu adresu
'Postavke izmeniti po želji i potrebama
Option Explicit
Option Compare Database
Dim fsObject As Object
Dim strDBPath As String
Dim strDBFile As String
Dim strDatapath As String
Dim strSourceFile As String
Dim stAppName As String
Dim Msg, Style, Title, Response
Public Function EmailDATA()
On Error GoTo KRAJ
strDatapath = fCurrentDBDir & "DATA\" 'Ovde navesti dodatak putanje po potrebi
strSourceFile = "Data.mdb" 'Naznačiti tačan naziv fajla
Set fsObject = CreateObject("Scripting.FileSystemObject")
If fsObject.FileExists(strDatapath & strSourceFile) = True Then
stAppName = "C:\Program Files\Winrar\rar.exe a -m5 -ep
[email protected] SUBJECT " _
& """" & strDatapath & """" & strSourceFile 'Zameniti korisnik, domen i SUBJECT po želji
Call Shell(stAppName, vbMinimizedNoFocus)
Else
GoTo KRAJ
End If
Exit Function
KRAJ:
MsgBox "Pakovanje i slanje fajla" & strSourceFile & " NIJE uspešno obavljeno!", _
vbExclamation, "Slanje email poruke: GREŠKA!"
End Function
Public Function fCurrentDBDir() As String
'Ispisivanje putanje, naziva... za tekuci fajl
strDBPath = CurrentDb.Name 'pun naziv fajla i njegova putanja
strDBFile = Dir(strDBPath) 'naziv fajla
fCurrentDBDir = Left(strDBPath, InStr(strDBPath, strDBFile) - 1) 'samo putanja
End Function
Slobodno prilagodi ovo za vlastite potrebe...