M
mysqlproject
Hi,
I'm trying to send an email confirmation from Access using VBA. I then
want to make sure that the email has been sent (ie user didn't close
the email window without sending the email). In order to achieve that,
I'm using the WithEvent method in a class module.
I use Office 2003, with Word as the email editor of Outlook. Not being
a specialist, I don't understand why my program fail to catch events
from Outlook. Bellow you will find the code I'm using, please let me
know if you can help:
All code is located in the my Access Project:
In the Class Module names "clsEmailConfo", I have the following code:
Option Compare Database
Option Explicit
Public WithEvents objOutlook As Outlook.Application
Public WithEvents objOutlookMsg As Outlook.MailItem
Private Sub Class_Initialize()
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
End Sub
Sub sendEmailConfo(Optional myTo As String, Optional myBcc As String,
Optional myCC As String, Optional mySubject As String, Optional myBody
As String)
With objOutlookMsg
.To = myTo
.CC = myCC
.BCC = myBcc
'.Attachments.Add (mypathname)
.Subject = "test"
.BodyFormat = olFormatHTML
.HTMLBody = myBody
.Display
End With
End Sub
Private Sub objOutlook_ItemSend(ByVal Item As Object, Cancel As
Boolean)
MsgBox ("TEST")
End Sub
Private Sub objOutlookMsg_Send(Cancel As Boolean)
MsgBox ("TEST")
End Sub
-------------------------------------------------------------------------------------------
In a module, I have the follwoing code:
Sub test()
Dim myEmail As clsEmailConfo
Set myEmail = New clsEmailConfo
myEmail.sendEmailConfo "(e-mail address removed)", , , "test", "test"
End Sub
Any help would be greatly apreciated
I'm trying to send an email confirmation from Access using VBA. I then
want to make sure that the email has been sent (ie user didn't close
the email window without sending the email). In order to achieve that,
I'm using the WithEvent method in a class module.
I use Office 2003, with Word as the email editor of Outlook. Not being
a specialist, I don't understand why my program fail to catch events
from Outlook. Bellow you will find the code I'm using, please let me
know if you can help:
All code is located in the my Access Project:
In the Class Module names "clsEmailConfo", I have the following code:
Option Compare Database
Option Explicit
Public WithEvents objOutlook As Outlook.Application
Public WithEvents objOutlookMsg As Outlook.MailItem
Private Sub Class_Initialize()
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
End Sub
Sub sendEmailConfo(Optional myTo As String, Optional myBcc As String,
Optional myCC As String, Optional mySubject As String, Optional myBody
As String)
With objOutlookMsg
.To = myTo
.CC = myCC
.BCC = myBcc
'.Attachments.Add (mypathname)
.Subject = "test"
.BodyFormat = olFormatHTML
.HTMLBody = myBody
.Display
End With
End Sub
Private Sub objOutlook_ItemSend(ByVal Item As Object, Cancel As
Boolean)
MsgBox ("TEST")
End Sub
Private Sub objOutlookMsg_Send(Cancel As Boolean)
MsgBox ("TEST")
End Sub
-------------------------------------------------------------------------------------------
In a module, I have the follwoing code:
Sub test()
Dim myEmail As clsEmailConfo
Set myEmail = New clsEmailConfo
myEmail.sendEmailConfo "(e-mail address removed)", , , "test", "test"
End Sub
Any help would be greatly apreciated