Predmet:Re: Access report u PDF e-mail attachment
References : Msoutl8.olb tj Microsoft Outlook 8.0 Object Model
PreuzmiIzvorni kôd (Visual Basic): 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
Else
.Save
.Send
End If
End With
Set objOutlook = Nothing
End Sub