How To Call Function

[MyWaterloo]

I got this code form an old post on here, and I was wondering how to call this to run. What do I have to do to call/activate/run this function?


Public Function PrintPDFemail2()

DoCmd.OpenReport "rptJobItemStat", acViewNormal

Dim strEmail As String
Dim strMsg As String
Dim oLook As Object
Dim oMail As Object

Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.createitem(0)
With oMail
.to = "[e-mail]"
.body = "Attached is a PDF file for your viewing"
.Subject = "Job Item"
.Attachments.Add ("C:\Documents and
Settings\ron_m\Desktop\rptJobItemStat.pdf")

.Send

End With

Set oMail = Nothing
Set oLook = Nothing
End Function



Thanks

[puppydogbuddy]

A simple way is to Call the function via code activated on the click of a button on the form like this:

Private Sub btnEmail_Click()
 
Call PrintPDFemail2
 
End Sub

[overcomer]

hi,

calling a function in vba is simple as the name of the function itself..

sub Proc_name()

function_name

end sub