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.


--

John Green - Excel MVP
Sydney
Australia


"E.Anderegg" wrote in message ...
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" schrieb im Newsbeitrag
...
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.

--

John Green - Excel MVP
Sydney
Australia


"E.Anderegg" wrote in message
...
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