pmiroslav 04.07.2011 08:30
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

roko 04.07.2011 10:29
Predmet:Re: Access report u PDF e-mail attachment

http://www.lebans.com/reporttopdf.htm

pmiroslav 04.07.2011 10:58
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.

roko 04.07.2011 20:09
Predmet:Re: Access report u PDF e-mail attachment

jel access 2003 ?

roko 04.07.2011 20:34
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

pmiroslav 04.07.2011 20:53
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

roko 05.07.2011 07:07
Predmet:Re: Access report u PDF e-mail attachment

http://msdn.microsoft.com/en-us/library/aa159619(v=office.11).aspx
Prilozi:
Automation.rar (Velicina datoteke:69.97 KB)

pmiroslav 05.07.2011 07:41
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.

pmiroslav 06.07.2011 13:26
Predmet:Re: Access report u PDF e-mail attachment

Ima li kakve pomoći za ovo, ili je to nerijeÅ¡ivo.

zxz 06.07.2011 21:43
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:
vbSendMail.zip (Velicina datoteke:49.67 KB)