[es] - Slanje access baze e-mail-om

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba

+3 Profil

^{21.04.2010. u 09:00 - pre 171 meseci}

Imam bazu koju šaljem mail-om i radi se o ovoj funkciji:

Code:
Public Function ZIPIT1()

Dim strAppName As String
Dim strZipFile As String
Dim strDbFile(7) As String
Dim Backup As String
Dim NewZip As String

On Error GoTo poruka

Backup = "C:\IC\FinancijskoBaza.mdb"
NewZip = Backup & ".rar"

'lokacija ZIP ili rar exe
strAppName = Me.ziprar

    'ime  ZIP  ili rar koji radis
    strZipFile = NewZip


    strDbFile(1) = Me.Text1 & ""
    strDbFile(2) = Me.Text2 & ""
    strDbFile(3) = Me.Text3 & ""
    strDbFile(4) = Me.Text4 & ""
    strDbFile(5) = Me.Text5 & ""
    strDbFile(6) = Me.Text6 & ""
    strDbFile(7) = Me.Text7 & ""

    Call Shell(strAppName & " a " & strZipFile & " " & strDbFile(1) & " " & _
        strDbFile(2) & " " & strDbFile(3) & " " & strDbFile(4) & " " & _
        strDbFile(5) & " " & strDbFile(6) & " " & strDbFile(7), 1)
       Call EmailCDONTS
        Exit Function
poruka:

Eval ("MsgBox ('       Zaštita nije obavljena . Svi parametri nisu zadovoljeni. @       Pozovite svog system administratora da otkloni grešku.      @@',30,' UPOZORENJE')")

End Function

Code:
Function EmailCDONTS()

'If you are using NT or 2000 as an OS then you can use CDONTS.
'It uses the SMTP Service to send mail directly.
'However the SMTP service must be running on the machine
'and the machine must have internet access.
'You add a reference to "Microsoft CDO for Exchange 2000 Library" :

Dim oEmail As New CDO.message

oEmail.From = "[email protected]"
oEmail.To = "[email protected]"
oEmail.TextBody = "Pozdrav"
oEmail.AddAttachment "C:\IC\FinancijskoBaza.mdb.rar"
oEmail.Send

End Function

Ovo dobro radi s tim da sam morao instalirat na računalo Free SMTP Server.Radi se o nazivu rar-a.Kad neko primi poruku sa ovim atachom i na hotmail,g-mail misli da je virus,onda je stavi u Junk ili javlja da ima virus u ovom atachmentu.
Problem je izgleda u pravljanju rar-a:
Backup = "C:\IC\FinancijskoBaza.mdb"
NewZip = Backup & ".rar"
Ovaj je backup problem

miro

Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.static.sbb.rs.

+13 Profil

Re: Slanje access baze e-mail-om

^{21.04.2010. u 09:41 - pre 171 meseci}

Citat:

Ovo dobro radi s tim da sam morao instalirat na računalo Free SMTP Server.

Ne treba ti SMTP Server. Postoji fantastičan malecki i besplatni Win32 command line utility za slanje mailova preko SMTP-a - Blat, koji može da uradi sve što zamisliš. Koristim ga već godinama i toplo ga preporučujem.

Da dodam, mada ova rasprava nije baš za Access forum...
Za slanje eMail poruka, pogotovo onih sa atachmentima, valjalo bi da koristiš SMTP server od nekog javnog ISP provajdera, koji je ipisan u DNS i AntiSPAM logove ostalih ISP-ova koji te poruke primaju.
SMTP serveri, u kućnoj režiji, pogotovo sa dinamičkih IP adresa, bez standardnih podešavanja (lookup MX record i sl) će pre ili kasnije biti blacklistovani, pa ni slanje baza neće biti moguće.

_{[Ovu poruku je menjao smal dana 21.04.2010. u 11:26 GMT+1]}

Odgovor na temu