Prikazi cijelu temu 14.11.2012 13:55
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Private Sub email_Click()
  2.  
  3. Dim strAdresa As String
  4. Dim stDocName As String
  5.  
  6. SetPrt (2) 'doPDF printer iz tablice Stampaci
  7. stDocName = "rptPonuda"
  8.  
  9. DoCmd.OpenReport stDocName, acViewNormal
  10. If Not IsNull(Me.mailAdresa) Then
  11. strAdresa = Me.mailAdresa
  12. DoCmd.SendObject _
  13.     , _
  14.     , _
  15.     , _
  16.     strAdresa, _
  17.     , _
  18.     , _
  19.     , _
  20.     , _
  21.     True
  22. End If
  23.  
  24. DoCmd.SendObject _
  25.     , _
  26.     , _
  27.     , _
  28.     , _
  29.     , _
  30.     , _
  31.     , _
  32.     , _
  33.     True
  34.    
  35. End Sub

Pozdrav