M
Mike Kiefer
I had the following code which worked perfectly before I
upgraded from Outlook 2002 to Outlook 2003. Execution
fails on the CreateObject() call, with the error: "Can't
find this file. Make sure the path and file name are
correct."
The object referenced is a COM object that uses the .NET
Framework to send an email. The file still exists and the
registration of the object is still in the registry.
Nothing has changed on it in over a year. Macro security
is set to "Low". Other than the installation of Office
2003, nothing else on the machine has changed. I'm
wondering why this code is suddenly failing. Any
suggestions?
Sub TestMailSend()
On Error GoTo ErrorHandler
quoteBefore = " """
quoteAfter = """ "
Dim mailer As Object
Set mailer = CreateObject
("MDKMail.MailSender")
If (TypeName(mailer) <> "Nothing") Then
Call mailer.SendPlainText
("(e-mail address removed)", "(e-mail address removed)", _
"Totally new
subject", _
"Wow!, it
works!")
Else
MsgBox "Create of MDKMail object failed!"
End If
Exit Sub
ErrorHandler:
MsgBox Error$
Resume Next
End Sub
upgraded from Outlook 2002 to Outlook 2003. Execution
fails on the CreateObject() call, with the error: "Can't
find this file. Make sure the path and file name are
correct."
The object referenced is a COM object that uses the .NET
Framework to send an email. The file still exists and the
registration of the object is still in the registry.
Nothing has changed on it in over a year. Macro security
is set to "Low". Other than the installation of Office
2003, nothing else on the machine has changed. I'm
wondering why this code is suddenly failing. Any
suggestions?
Sub TestMailSend()
On Error GoTo ErrorHandler
quoteBefore = " """
quoteAfter = """ "
Dim mailer As Object
Set mailer = CreateObject
("MDKMail.MailSender")
If (TypeName(mailer) <> "Nothing") Then
Call mailer.SendPlainText
("(e-mail address removed)", "(e-mail address removed)", _
"Totally new
subject", _
"Wow!, it
works!")
Else
MsgBox "Create of MDKMail object failed!"
End If
Exit Sub
ErrorHandler:
MsgBox Error$
Resume Next
End Sub