Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » e-mail iz Accessa
pmiroslav 14.11.2012 14:55
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?
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub email_Click()
  2.  
  3. Dim strAdresa As String
  4. Dim stDocName As String
  5.  
  6. SetPrt (2) 'doPDF printer iz tablice Stampaci
  7. stDocName = "rptPonuda"
  8.  
  9. DoCmd.OpenReport stDocName, acViewNormal
  10. If Not IsNull(Me.mailAdresa) Then
  11. strAdresa = Me.mailAdresa
  12. DoCmd.SendObject _
  13.     , _
  14.     , _
  15.     , _
  16.     strAdresa, _
  17.     , _
  18.     , _
  19.     , _
  20.     , _
  21.     True
  22. End If
  23.  
  24. DoCmd.SendObject _
  25.     , _
  26.     , _
  27.     , _
  28.     , _
  29.     , _
  30.     , _
  31.     , _
  32.     , _
  33.     True
  34.    
  35. End Sub

zidar 14.11.2012 16:28
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

pmiroslav 14.11.2012 19:01
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.

Branestan 16.12.2023 14:06
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:
E-mail Sending1.rar (Velicina datoteke:13.51 KB)

zxz 16.12.2023 19:17
Predmet:Re:e-mail iz Accessa

PreuzmiIzvorni kôd (Visual Basic):
  1. Function mail()
  2.  
  3.     Dim primaoc As String
  4.     Dim subjekt As String
  5.     Dim poruka As String
  6.  
  7.     primaoc = "primjer@email.com"
  8.     subjekt = "Test Email"
  9.     poruka = "Ovo je testna poruka iz Microsoft Accessa."
  10.     putanjaDatoteke = "e:\20081.pdf"
  11.  
  12.     DoCmd.SendObject acSendNoObject, , , primaoc, , , subjekt, poruka, True, putanjaDatoteke
  13.  
  14.     MsgBox "Email je uspjesno poslan.", vbInformation
  15. End Function

Branestan 16.12.2023 20:02
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

Branestan 16.12.2023 20:07
Predmet:Re:e-mail iz Accessa

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

zxz 16.12.2023 20:08
Predmet:Re:e-mail iz Accessa

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

Branestan 16.12.2023 20:16
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.

zxz 16.12.2023 22:36
Predmet:Re:e-mail iz Accessa

probaj bez petlje samo jedan email pa vidi dali radi.