Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

#1 04.07.2011 08:30
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Access report u PDF e-mail attachment
Pozdrav,

molio bih pomoć kako da sa VBA kodom access report konvertiram u pdf dokument i poÅ¡aljm e-mailom .
Ja imam slijedeći kod koji radi ali Report Å¡alje kao rtf format, Å¡to me baÅ¡ ne zadovoljava jer ne prikazuje dokument kako treba.
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command0_Click()
  2. On Error GoTo Err_Command0_Click
  3.  
  4. Dim strAdresa As String
  5. Dim strReport As String
  6.  
  7.  
  8. Adresa = "miroslav@net.hr"
  9. Report = "R_Ponuda"
  10.  
  11. DoCmd.SendObject _
  12.     acSendReport, _
  13.     strReport, _
  14.     acFormatRTF, _
  15.     strAdresa, _
  16.     , _
  17.     , _
  18.     "Ponuda", _
  19.     "Message", _
  20.     True
  21.  
  22. Exit_Command0_Click:
  23.     Exit Sub
  24.  
  25. Err_Command0_Click:
  26.     MsgBox Err.Description
  27.     Resume Exit_Command0_Click
  28.    
  29. End Sub
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 04.07.2011 08:32 od strane pmiroslav. ↑  ↓

#2 04.07.2011 10:29
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Access report u PDF e-mail attachment
http://www.lebans.com/reporttopdf.htm
↑  ↓

#3 04.07.2011 10:58
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF e-mail attachment
Pogledao sam link koji si dao. On mi samo konvertira Report u PDF , a to sam i ja prije rijeÅ¡io. Ja bih htio da dobijem automatizam kod slanja e-maila, zanči bez da ručno otvaram recimo Outlook Expres piÅ¡em adresu i ubacujem Attachment.
Pozdrav
↑  ↓

#4 04.07.2011 20:09
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Access report u PDF e-mail attachment
jel access 2003 ?
↑  ↓

#5 04.07.2011 20:34
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Access report u PDF e-mail attachment
References : Msoutl8.olb tj Microsoft Outlook 8.0 Object Model
PreuzmiIzvorni kôd (Visual Basic):
  1.  Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
  2.           Dim objOutlook As Outlook.Application
  3.           Dim objOutlookMsg As Outlook.MailItem
  4.           Dim objOutlookRecip As Outlook.Recipient
  5.           Dim objOutlookAttach As Outlook.Attachment
  6.           Set objOutlook = CreateObject("Outlook.Application")
  7.           Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)
  8.           With objOutlookMsg
  9.               Set objOutlookRecip = .Recipients.Add("Tvoje ime i prezime")
  10.               objOutlookRecip.Type = olTo
  11.               Set objOutlookRecip = .Recipients.Add("Kome Å¡aljeÅ¡")
  12.               objOutlookRecip.Type = olCC
  13.               Set objOutlookRecip = .Recipients.Add("Kome joÅ¡")
  14.               objOutlookRecip.Type = olBCC
  15.              .Subject = "Automatika-Microsoft Outlook"
  16.              .Body = "Tekst e-mail." &vbCrLf & vbCrLf
  17.              .Importance = olImportanceHigh  'Važnost pisma
  18.             If Not IsMissing(AttachmentPath) Then
  19.                  Set objOutlookAttach = .Attachments.Add(AttachmentPath)
  20.              End If
  21.              For Each ObjOutlookRecip In .Recipients
  22.                  objOutlookRecip.Resolve
  23.              Next
  24.              If DisplayMsg Then
  25.                  .Display
  26.              Else
  27.                  .Save
  28.                  .Send
  29.              End If
  30.           End With
  31.           Set objOutlook = Nothing
  32.       End Sub
↑  ↓

#6 04.07.2011 20:53
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF e-mail attachment
Radim sa Accessom 2003. Negdje na Net-u sam naÅ¡ao neku sličnu proceduru i pročitao da treba uključiti Microsoft Outlook referencu ali ja među referencama ne mogu naći niÅ¡ta slično
Pozdrav
↑  ↓

#7 05.07.2011 07:07
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Access report u PDF e-mail attachment
http://msdn.microsoft.com/en-us/library/aa159619(v=office.11).aspx

Prilozi:
Informacije o tipu datoteke za:rar  Automation.rar
Preuzimanja:354
Velicina datoteke:69.97 KB

↑  ↓

#8 05.07.2011 07:41
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF e-mail attachment
Samo da nešto razjasnimo
O kojem Outlooku se ovdje radi. Ja koristim Outlook Express 6 koji je dio Windowsa XP, a nemam instaliran Outlook koji je dio Microsoft Offica 2003.
Pozdrav
↑  ↓

#9 06.07.2011 13:26
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Access report u PDF e-mail attachment
Ima li kakve pomoći za ovo, ili je to nerijeÅ¡ivo.
Pozdrav
↑  ↓

#10 06.07.2011 21:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Access report u PDF e-mail attachment
Evo ti kod za dll u prilogu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Saljimail()
  2. Dim mail As clsSendMail
  3.  
  4. Set mail = New vbSendMail.clsSendMail
  5. With mail
  6. .SMTPHost = "ime tvoga hosta ono sto pises kao SMTP-Host"
  7. .from = "Tvoja mail adresa od ovog hosta"
  8. .FromDisplayName = "Neko Ime na emailu"
  9. .Message = "Pisamce neko napisano"
  10. .Attachment = "Putanja do atach"
  11. .Recipient = "Email primaoca
  12. .RecipientDisplayName = "Za koga je"
  13. .Subject = "Naslov"
  14. .Password = "sifra"
  15. .UserName = "Tvojekorisnicko ime"
  16. .SMTPPort = "Broj posrat obicno je 25"
  17. .Send
  18. End With
  19. End Function


Prilozi:
Informacije o tipu datoteke za:zip  vbSendMail.zip
Preuzimanja:356
Velicina datoteke:49.67 KB

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

Stranice (2):1,2

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 21 pm.