Option Compare Database
Option Explicit
Function sendemail()
Call SendMessage(True)
End Function
Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.