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):
|
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):
|
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. |