Bosna i Hercegovina



#1 04.07.2011-07:30
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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.
DownloadIzvorni kod (vb.net):
  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 komentar je mijenjan 1 puta. zadnja izmjena 04.07.2011-07:32 od strane pmiroslav. ↑  ↓

#2 04.07.2011-09:29
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236



#3 04.07.2011-09:58
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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-19:09
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


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

#5 04.07.2011-19:34
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


Ocjena: Ocjena:100 Subject: Re: Access report u PDF e-mail attachment
References : Msoutl8.olb tj Microsoft Outlook 8.0 Object Model
DownloadIzvorni kod (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-19:53
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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-06:07
roko Offline
Clan
Registrovan/a od: 02.02.2009-00:23
Komentari: 236


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

Prilozi:
Informacije o fajlu: rar  Automation.rar
Preuzimanja: 77
Veličina: 69.97 KB

↑  ↓

#8 05.07.2011-06:41
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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-12:26
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: 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-20:43
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: Re: Access report u PDF e-mail attachment
Evo ti kod za dll u prilogu.
DownloadIzvorni kod (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 fajlu: zip  vbSendMail.zip
Preuzimanja: 83
Veličina: 49.67 KB


Pozdrav
↑  ↓

#11 07.07.2011-08:57
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: Re: Access report u PDF e-mail attachment
Gdje treba iskopirati dll fail
Pozdrav
↑  ↓

#12 07.07.2011-10:13
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: Re: Access report u PDF e-mail attachment
Mozes ga staviti gdje hoces, samo ga ucitaj u referencama.
Pozdrav
↑  ↓

#13 07.07.2011-10:54
pmiroslav Offline
Clan
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,370


Subject: Re: Access report u PDF e-mail attachment
Ako nitko nema riješenje ti imaš.
Proradilo je i e-mail korektno dlazi.
Jedino što kada pokrenem funkciju "Saljimail" nema nikakvog upozorenja za korisnika koji šalje e-mail da je on i otišao. Dali se to moža kako popraviti.
Pozdrav
↑  ↓

#14 07.07.2011-11:08
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,760


Subject: Re: Access report u PDF e-mail attachment
Naravno da moze. ja sam dao samo minimum misleci da ce se neko drugi poigrati.
Ako nista ne bude doraditi cu proceduru.
Za sad je bitno da radi.
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 21.10.2018-04:38.