Centar za edukaciju-BiH



#1 14.11.2012 13:55
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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

Pozdrav
↑  ↓

#2 14.11.2012 15:28
zidar Van mreze
Moderator
Registrovan od:03.02.2009
Postovi:27


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
↑  ↓

#3 14.11.2012 18:01
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


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.
Pozdrav
↑  ↓

#4 16.12.2023 13:06
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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:
Informacije o tipu datoteke za:rar  E-mail Sending1.rar
Preuzimanja:6
Velicina datoteke:13.51 KB

↑  ↓

#5 16.12.2023 18:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 16.12.2023 19:02
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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
↑  ↓

#7 16.12.2023 19:07
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


Predmet:Re:e-mail iz Accessa
Ovo sto sam ja postavio posalje mailove na adrese ali ne doda izvjestaj u PDF-u.
↑  ↓

#8 16.12.2023 19:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re:e-mail iz Accessa
strSQL = " SELECT * FROM tblKorisnik where Email<>nulll or Email<>''"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 16.12.2023 19:16
Branestan Van mreze
Clan
Registrovan od:07.05.2012
Postovi:114


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.
↑  ↓

#10 16.12.2023 21:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Re:e-mail iz Accessa
probaj bez petlje samo jedan email pa vidi dali radi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 5: 08 am.