<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
 Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
          Dim objOutlook As Outlook.Application
          Dim objOutlookMsg As Outlook.MailItem
          Dim objOutlookRecip As Outlook.Recipient
          Dim objOutlookAttach As Outlook.Attachment
          Set objOutlook = CreateObject("Outlook.Application")
          Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)
          With objOutlookMsg
              Set objOutlookRecip = .Recipients.Add("Tvoje ime i prezime")
              objOutlookRecip.Type = olTo
              Set objOutlookRecip = .Recipients.Add("Kome šalješ")
              objOutlookRecip.Type = olCC
              Set objOutlookRecip = .Recipients.Add("Kome još")
              objOutlookRecip.Type = olBCC
             .Subject = "Automatika-Microsoft Outlook"
             .Body = "Tekst e-mail." &vbCrLf & vbCrLf
             .Importance = olImportanceHigh  'Važnost pisma
             If Not IsMissing(AttachmentPath) Then
                 Set objOutlookAttach = .Attachments.Add(AttachmentPath)
             End If
             For Each ObjOutlookRecip In .Recipients
                 objOutlookRecip.Resolve
             Next
             If DisplayMsg Then
                 .Display