how to trap a event coming from a dll

  • Thread starter Thread starter E.Anderegg
  • Start date Start date
E

E.Anderegg

Hello,
I use a mailer DLL in a module.
I set the properties and then kick the Send Method. This works fine so far.
To check whether a mail was sent correctly, the dll raises the event
SendSuccessful.
How can I trap this event??
Thanks for any help

Ernst


The "simple" code for the problem

Sub SendMails()
Dim Mymailer As Object
Set Mymailer = New vbSendMail.clsSendMail
With ThisWorkbook.Worksheets("Mail")
Mymailer.SMTPHost = .Range("MailSMTPHost").Value
Mymailer.from = .Range("MailFrom").Value
Mymailer.FromDisplayName = .Range("MailfromName").Value
Mymailer.ReplyToAddress = .Range("MailReplyTo").Value
Mymailer.Recipient = .Range("TestMailRecv").Value
Mymailer.Subject = .Range("Testmailbetreff").Value
Mymailer.Message = .Range("Testmailbody").Value
End With
Mymailer.Send

Mymailer.Send
End Sub
 
Ernst,

I'm guessing a bit here, but you should be able to insert a new class module into your VBA project and enter something like the
following at the top of the module:

Dim WithEvents myMailer as vbSendMail.clsSendMail

You shoud then be able to select the object and its events from the top of the module and write your event code.
 
Thanks John, I can enter and write the code for the event-handling
Sorry,but I have not much experience with class modules...
So how can I now access the properties and methods of the DLL??

Ernst

Code so far:

Option Explicit
Dim WithEvents MyMail As vbSendMail.clsSendMail

Private Sub mymail_SendFailed(Explanation As String)
MsgBox "Mail failed with Reason:" & Explanation, vbOKOnly
End Sub

Private Sub mymail_SendSuccesful()
MsgBox "Mail successfil sent", vbOKOnly
End Sub



John Green said:
Ernst,

I'm guessing a bit here, but you should be able to insert a new class
Click to expand...
module into your VBA project and enter something like the
following at the top of the module:

Dim WithEvents myMailer as vbSendMail.clsSendMail

You shoud then be able to select the object and its events from the top of
Click to expand...
the module and write your event code.
 
Ernst,

You need to create an instance of your class module. I'll assume that you have given the class module the default name of Class1
although it would be better to give it a more meaningful name.

Try something like the following in your original code:

Sub SendMails()
Dim Mymailer As Object '(or Dim Mymailer As vbSendMail.clsSendMail)
Dim oMail as Class1
Set Mymailer = New vbSendMail.clsSendMail
set oMail = New Class1
Set oMail.MyMail = Mymailer


This should establish the necessary links between the mail object and the event procedures.
 
You will need to declare oMail at the module level if it is to persist after your sub ends.

Move the Dim oMail as Class1 line to the declarations section at the top of your module.
 
Thanks - just there is something missing (probably a declaration or so),
because it always indicates
at the line set mymailer.mymail = mymailer
"methode or data object not found"
??

Now, in the class module "MailWrapper" I have:

Dim WithEvents MyMail As vbSendMail.clsSendMail

Private Sub mymail_SendFailed(Explanation As String)
MsgBox "Mail failed with Reason:" & Explanation, vbOKOnly
End Sub

Private Sub mymail_SendSuccesful()
MsgBox "Mail successfil sent", vbOKOnly
End Sub

In the Module1 I have:

Dim oMail As MailWrapper
Sub SendMails()
Dim MyMailer As Object

Set MyMailer = New vbSendMail.clsSendMail
Set oMail = New MailWrapper
Set oMail.MyMail = MyMailer
With ThisWorkbook.Worksheets("Mail")
MyMailer.SMTPHost = .Range("MailSMTPHost").Value
MyMailer.from = .Range("MailFrom").Value
MyMailer.FromDisplayName = .Range("MailfromName").Value
MyMailer.ReplyToAddress = .Range("MailReplyTo").Value
MyMailer.Recipient = .Range("TestMailRecv").Value
MyMailer.Subject = .Range("Testmailbetreff").Value
MyMailer.Message = .Range("Testmailbody").Value
End With
MyMailer.Send
'MsgBox MyMailer.Status, vbOKOnly


End Sub
 
Sorry I found the detail....
The declaration in the class module has to be public not private ...
It works fine!

Many thanks for the help from "down under", you are just great!
Ernst
Switzerland
 
Back
Top