Prikazi cijelu temu 04.07.2011 20:34
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


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