[es] - Poslati mail na vise adresa?

Shoyo77
Elektrotehničar, LM Elektro

Član broj: 169509
Poruke: 9
*.blueisp.co.yu.

Profil

^{15.01.2008. u 21:37}

Pocetnik sam i muci me jedan, verovatno mali problem. Naime kako da pošaljem jedan mail npr. cestitku za novu godinu svim strankama iz tabele? Probao sam sa SendObjekt, ali problem je kako u Bcc ubaciti vise od jednog polja. Verovatno Query, koji ih pokupi iz tabele i... Da ne pametujem -da sam znao ne bih pitao.

^{15.01.2008. u 21:37}

Scelle
Slavko Šćekić
Student, Racunarski fakultet
Beograd

Član broj: 151761
Poruke: 76
217.24.24.*

Sajt: slavkoscekic.wordpress.co..

Profil

Re: Poslati mail na vise adresa?

^{16.01.2008. u 13:44}

Treba da napravis funkciju koja ce proci kroz citavu tabelu, pokupiti sve e-mail adrese i dodavati ih u string razdvajajuci ih tackom i zarezom (;). Nakon toga ovaj string smjestis u zeljeno polje i gotovo...

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

^{16.01.2008. u 13:44}

Shoyo77
Elektrotehničar, LM Elektro

Član broj: 169509
Poruke: 9
*.google.com.

Profil

Re: Poslati mail na vise adresa?

^{17.01.2008. u 23:06}

Mislim da nisam dovoljno naglasio da sam početnik. Ako moze molim za primer koda za pravljenje stringa. SendObject znam.

^{17.01.2008. u 23:06}

lo-community
LO-ZNITZA

Član broj: 163407
Poruke: 28
*.inffo.net.

Profil

Re: Poslati mail na vise adresa?

^{18.01.2008. u 07:19}

Ovako

Code:
Bcc: email@email.com;mail@mail.com;hotmail@hotmail.com;yahoo@yahoo.com;...itd

^{18.01.2008. u 07:19}

nidisa

Član broj: 78939
Poruke: 83
161.51.11.*

Profil

Re: Poslati mail na vise adresa?

^{18.01.2008. u 08:23}

Recimo da imas tabelu "tblKlijenti" i u tabeli jednu kolonu koja se zove "email". Na dugme u formi kojim pozivas slanje maila za sve klijente uradis sljedece:

Private Sub cmdSendEmail_Click()
Dim strLista As String
Dim rst As DAO.Recordset 'u Tools/References moras da ukljucis opciju MS DAO 3.6
Dim strSQL As String

strLista ="" 'ponistavanje
strSQL = " SELECT * FROM tblKlijenti"
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
Do While rst.EOF = False
strLista = strLista & rst.Fields("Email").Value & ";"
rst.MoveNext
Loop
Set rst = Nothing
On Error Resume Next
DoCmd.SendObject , , , strLista, "ja@yahoo.com", , "Sretna Nova Godina", "Postovani," & vbCr & "U ime nase kompanije i u svoje ime zelim da Vam cestitam nastupajucu 2008 godinu."
End Sub

Ako ti ovo ne pomogne, zakacicu i primjer.

Pozdrav.

_{[Ovu poruku je menjao nidisa dana 18.01.2008. u 11:52 GMT+1]}

^{18.01.2008. u 08:23}

Shoyo77
Elektrotehničar, LM Elektro

Član broj: 169509
Poruke: 9
*.google.com.

Profil

Re: Poslati mail na vise adresa?

^{18.01.2008. u 09:51}

Hvala mnogo, mislim da je to ono sto sam hteo. Probacu kad odem kuci. Mada nema razloga da ne radi. Zaboravio sam na LOOP, i kako da postavim ';'. Javljam posle podne sta sam uradio. Sve sam razumeo osim onog DAO -sta je to t stvari i sta radi? Prvi put sam na ovom forumu i oduševljen sam. Do sad sam sve sam učio, iz helpa, primera u Accessu, kodove sam dobijao tako sto sam makro pretvarao u modul, nikoga nisam imao da pitam. Dve baze su vec u upotrebi, a ja vas tek nasao. Biće tu jos pitanja, brže se uči!

^{18.01.2008. u 09:51}

nidisa

Član broj: 78939
Poruke: 83
161.51.11.*

Profil

Re: Poslati mail na vise adresa?

^{18.01.2008. u 10:51}

Citat:

Sve sam razumeo osim onog DAO

Hmm, onako ukratko, Data Access Object (DAO) je jedan od osnovnih nacina pristupa i manipulacije podatcima bilo u Access-u ili u drugim bazam apodataka koje podrzava MS. DAO se najcesce koristi za uredjivanje podataka u tabelama u FrontEnd - BackEnd verzijama baza podataka gdje su tabele linkovane u bazu gdje se nalaze forme.
Meni je to najlakse bilo shvatiti kao DLOOKUP naredbu koja je isto jednostavna za koristiti, ali je prednost DAO to sto mozes i mijenjati a ne samo "povlaciti" podatke iz tabela.

E sad, moj problem je taj sto nisam bas najvicniji objasnjavanju onog sto znam. Nadam se da sam uspio ovo objasniti na najjednostavniji moguci nacin bez da te dodatno zbunim. Mozda je najbolje da ti to malo naucih iz kakvih knjiga od inih strucnjaka koji to objasnjavaju puno bolje nego ja, pa kad malo sazvaces osnove ti se opet javi. Onda ce biti puno lakse.

Za sada je samo bitno da znas da ce ovo raditi samo ako u code odes na meni 'Tools/References' i ukljucis opciju:

"Microsoft DAO 3.6 Object Library"

Ovdje cu samo jos pozvati one koji DAO znaju objasniti puno bolje nego ja da se jave

;-)

^{18.01.2008. u 10:51}

Shoyo77
Elektrotehničar, LM Elektro

Član broj: 169509
Poruke: 9
*.google.com.

Profil

Re: Poslati mail na vise adresa?

^{20.01.2008. u 22:37}

Uz male prepravke kod radi, ali pravi problem kad u polju MAIL nema podataka, kako da izbegnem prazna polja. Hvala.

^{20.01.2008. u 22:37}

nidisa

Član broj: 78939
Poruke: 83
161.51.11.*

Profil

Re: Poslati mail na vise adresa?

^{21.01.2008. u 09:17}

Evo, isto je samo jedna mala ispravka:

Private Sub cmdSendEmail_Click()
Dim strLista As String
Dim rst As DAO.Recordset 'u Tools/References moras da ukljucis opciju MS DAO 3.6
Dim strSQL As String

strLista ="" 'ponistavanje
strSQL = " SELECT * FROM tblKlijenti"
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
Do While rst.EOF = False
strLista = strLista & rst.Fields("Email").Value & "" & ";" 'ovo je u slucaju da nema nista u poljima tabele
rst.MoveNext
Loop
Set rst = Nothing
On Error Resume Next
DoCmd.SendObject , , , strLista, "ja@yahoo.com", , "Sretna Nova Godina", "Postovani," & vbCr & "U ime nase kompanije i u svoje ime zelim da Vam cestitam nastupajucu 2008 godinu."
End Sub

^{21.01.2008. u 09:17}