Expand|Select|Wrap|Line Numbers
- Public Function SendClientEmail(emailto As Variant, attachmentpath As Variant, subjectmsg As String, msg As String, Optional attachmentpath2 As Variant)
- On Error GoTo SendClientEmail_Err
- Dim appOutLook As Outlook.Application
- Dim MailOutLook As Outlook.MailItem
- Set appOutLook = CreateObject("Outlook.Application")
- Set MailOutLook = appOutLook.CreateItem(olMailItem)
and highlighted in yellow is the first line "Public Function SendClientEmail(emailto As Variant, attachmentpath As Variant, subjectmsg As String, msg As String, Optional attachmentpath2 As Variant)"
Can anyone walk me through how to fix this error? I appreciate any help I can get.