How to run outlook sub through access

[behnam]

Hi all,



I have an outlook sub written using outlook vba. How can i call the sub in outlook through access vba?

Thanks,

[ranman256]

Normally you dont need the outlook vba, just SENDOBJECT (it sends via outllook)
DoCmd.SendObject acSendReport, vRpt, acFormatPDF, vTo, , , vSubj, vBody

but if you need outlook then, you MUST
ADD THE OUTLOOK APP IN REFERENCEs, checkmark OUTLOOK OBJECT LIBRARY in the vbE menu, Tools, References

'------------
Public Sub ScanAndEmail()
'------------
Dim vTo, vSubj, vBody, vRpt
Dim vFilePath
dim i as integer
For i = 0 To lstEAddrs.ListCount - 1
   vRpt = lstEAddrs.ItemData(i)
   lstEAddrs = vRpt
   vTo = lstEAddrs.Column(2)
   
   vBody = "body of email"
   vSubj = vRpt
   vFilePath = ""  'path of the snapshot or XL or PdF
   
   Call Email1(vTo, vSubj, vBody, vFilePath)
Next
End Sub

'-------
'YOU MUST ADD THE OUTLOOK APP IN REFERENCES!!!   checkmark OUTLOOK OBJECT LIBRARY in the vbE menu, Tools, References
'-------
Public Function Email1(ByVal pvTo, ByVal pvSubj, ByVal pvBody,optional ByVal pvFile) As Boolean
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
On Error GoTo ErrMail
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
With oMail
    .To = pvTo
    .Subject = pvSubj
    .Body = pvBody
    If Not Ismissing(pvFile) Then  .Attachments.Add pvFile, olByValue, 1
    
.Send
End With
EmailO = True
Set oMail = Nothing
Set oApp = Nothing
Exit Function
ErrMail:
MsgBox Err.Description, vbCritical, Err
Resume Next
End Function

[behnam]

Thanks for the Reply,

Im not trying to send an email, I already written the outlook macro which does various things including looping through emails in certain outlook folders. All i need to do is essentially call and outlook macro. Is that possible?

[ranman256]

Thats the code i sent. If you want to call your code, just make it a FUNCTION, then in a macro use:
RUNCODE myFcnt()