Centar za edukaciju-BiH

Predmet:e-mail iz Accessa

---

Sa slijedećim kodom konvertitam Access Report u PDF file i spremim ga u određeni direktorij, recimo:
D:\Ponude\Ponuda_0145.pdf
Nakon toga otvori se Outlook Express sa več upisanom email adresom.
I sve to radi O.K.
Problem je u tome Å¡to sada iz Outlook Express-a moram sa 'Attach' dovući PDF file.
Moje pitanje je dali se ovaj Attach može nekako odraditi automatski?

---

Predmet:Re: e-mail iz Accessa

---

Ako koristis SEndObject, ne mozes dodavati attachments. To mozes samo ako kontrolises Outlook. Verovatnoi ima nesto i za Outlook Express.

Da bi potpuno kontrolisao Outlook, treba da module references dodas referencu na Outlook. Kod mene je to 'Microsoft Outlook 12.0 Object Library' i onda koristis Outlook methods.

Detalje o tome kasko se salje e-mail iz Accesa imas ovde:
http://www.everythingaccess.com/...ty-Warning

Predmet:Re: e-mail iz Accessa

---

Pozdrav Zidaru.
Nemam instaliran Microsoft Outlook jer sam nekako navikao na Outlook Express, pa možda zbog toga u Accessu među referencama kod mene nema ni 'Microsoft Outlook 12.0 Object Library.
PokuÅ¡ao sam Googlati i nisam uspio naći niÅ¡ta za Outlook Express.
Ako niÅ¡ta intalirati ću Microsoft Outlook pa probati neÅ¡to sa time.

---

Predmet:Re:e-mail iz Accessa

---

Ja sam pronasao ovaj primjer i odgovara mi zbog toga sto nije vezan za Outlook.

Trebao bih u njega dodati eksport izvjestaja u pdf i dodavanje u mail koji saljem.

Prilozi:

Predmet:Re:e-mail iz Accessa

---

---

Predmet:Re:e-mail iz Accessa

---

Private Sub cmdPosalji_Click()
Dim email As String
Dim ime As String
Dim pass As String
Dim brojac As Integer
Dim rst As DAO.Recordset 'u Tools/References moras da ukljucis opciju MS DAO 3.6
Dim strSQL As String

email = ""
ime = ""
pass = ""
bojac = 0
strSQL = " SELECT * FROM tblKorisnik"
putanjaDatoteke = "F:\Izvjestaj.pdf"

Set rst = CurrentDb().OpenRecordset(strSQL, dbOpenSnapshot)

If rst.RecordCount < 1 Then Exit Sub 'ako ne nadjes ni jednu e-mail adresu u tabeli prekini izvrsenje
rst.MoveLast
rst.MoveFirst
'
'Prolazi kroz SVE zapise u tabeli tblKorisnik i svima salje e-mail sa trenutnim password-om.
Do While rst.EOF = False
email = rst.Fields("Email").Value
ime = rst.Fields("Ime")
pass = rst.Fields("Password")
If (pass <> "") Then 'Za slucaj da e-mail adresa nije upisana u bazu, nista se nece desiti.
DoCmd.SendObject , , , email, , , "Tema poruke", "Zdravo " & ime & vbCr & vbCr & "Vas novi Password je " & vbCr & pass, 0, putanjaDatoteke
brojac = brojac + 1
End If
rst.MoveNext
Loop
MsgBox "Broj poslatih poruka: " & brojac, vbInformation, "Poslate poruke"
Set rst = Nothing
On Error Resume Next
End Sub

Predmet:Re:e-mail iz Accessa

---

Ovo sto sam ja postavio posalje mailove na adrese ali ne doda izvjestaj u PDF-u.

Predmet:Re:e-mail iz Accessa

---

strSQL = " SELECT * FROM tblKorisnik where Email<>nulll or Email<>''"

---

Predmet:Re:e-mail iz Accessa

---

Taj uslov vec ima u funkciji:

If (pass <> "") Then 'Za slucaj da e-mail adresa nije upisana u bazu, nista se nece desiti.
DoCmd.SendObject , , , email, , , "Tema poruke", "Zdravo " & ime & vbCr & vbCr & "Vas novi Password je " & vbCr & pass, 0, putanjaDatoteke
brojac = brojac + 1
End If

I dalje ne dodaje attachment.

Predmet:Re:e-mail iz Accessa

---

probaj bez petlje samo jedan email pa vidi dali radi.

---