P
Peter Hibbs
Hi, first post to this NG so feel free to point me in the right
direction if this question is not appropriate.
Using Access 2003 (SP3) + Outlook 2003 (SP3)
I am using the following function to send an email from Access via
Outlook.
--------------------------------------------------------------------------------
Public Function SendMail(strRecipients As String, strSubject As
String, strBody As String) As String
'Entry (strRecipients) = Semicolon delimited string of recipients.
' (strSubject) = Required. Message subject.
' (strBody) = Optional. Body of the message.
Dim myObject As Object, myItem As Object
Dim vCount As Long
On Error GoTo ProcError
Set myObject = CreateObject("Outlook.Application")
Set myItem = myObject.CreateItem(0)
With myItem
.Subject = strSubject
.To = strRecipients
If Len(Trim(strBody)) > 0 Then
.Body = strBody
End If
.Display
End With
ExitProc:
Set myItem = Nothing
Set myObject = Nothing
Exit Function
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in SendMail Function..."
SendMail = "A problem was encountered attempting to automate
Outlook."
Resume ExitProc
Resume
End Function
--------------------------------------------------------------------------------
I am calling it like this from a button on a form :-
--------------------------------------------------------------------------------
Private Sub btnEMail_Click()
Dim vDummy As String
vDummy = SendMail("EMail Address here", "Subject", "Test")
End Sub
--------------------------------------------------------------------------------
The "EMail Address here" string is a valid email address.
The problem is that when I run the code, Outlook opens correctly
showing the email address, subject and body text but if I then Send
the email (or cancel the email by exiting Outlook) I get the following
error message on the .Display line.
Run-time error '-2147417851 (80010105) ':
Method 'Display' of object '_MailItem.' failed
Also Outlook is left running in the background, I have to close it
using Windows Task Manager.
The code Compiles with no errors and Compact & Repair and Decompiling
make no difference. I'm sure this worked OK a while ago (before or
loaded SP3) and I think the same problem occurs in Access 2000 (I'm
still checking that one as Outlook 2003 is being used as the email
client). References look OK, Outlook 11.0 Object Library is ticked
although I don't think it is necessary for this code.
If I open Outlook first and then send the email everything works OK,
the email gets sent and no error messages. It seems that Outlook does
not like the .Display command when it is not already loaded.
I have also tried using Redemption but get the same error message
(although I'm a bit unsure about the code here so that *may* be a bit
misleading).
Access NG have not come up with any clear solution, as yet.
Has anyone else come across the problem, could SP3 have broken
Outlook.
TIA
Peter Hibbs.
direction if this question is not appropriate.
Using Access 2003 (SP3) + Outlook 2003 (SP3)
I am using the following function to send an email from Access via
Outlook.
--------------------------------------------------------------------------------
Public Function SendMail(strRecipients As String, strSubject As
String, strBody As String) As String
'Entry (strRecipients) = Semicolon delimited string of recipients.
' (strSubject) = Required. Message subject.
' (strBody) = Optional. Body of the message.
Dim myObject As Object, myItem As Object
Dim vCount As Long
On Error GoTo ProcError
Set myObject = CreateObject("Outlook.Application")
Set myItem = myObject.CreateItem(0)
With myItem
.Subject = strSubject
.To = strRecipients
If Len(Trim(strBody)) > 0 Then
.Body = strBody
End If
.Display
End With
ExitProc:
Set myItem = Nothing
Set myObject = Nothing
Exit Function
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in SendMail Function..."
SendMail = "A problem was encountered attempting to automate
Outlook."
Resume ExitProc
Resume
End Function
--------------------------------------------------------------------------------
I am calling it like this from a button on a form :-
--------------------------------------------------------------------------------
Private Sub btnEMail_Click()
Dim vDummy As String
vDummy = SendMail("EMail Address here", "Subject", "Test")
End Sub
--------------------------------------------------------------------------------
The "EMail Address here" string is a valid email address.
The problem is that when I run the code, Outlook opens correctly
showing the email address, subject and body text but if I then Send
the email (or cancel the email by exiting Outlook) I get the following
error message on the .Display line.
Run-time error '-2147417851 (80010105) ':
Method 'Display' of object '_MailItem.' failed
Also Outlook is left running in the background, I have to close it
using Windows Task Manager.
The code Compiles with no errors and Compact & Repair and Decompiling
make no difference. I'm sure this worked OK a while ago (before or
loaded SP3) and I think the same problem occurs in Access 2000 (I'm
still checking that one as Outlook 2003 is being used as the email
client). References look OK, Outlook 11.0 Object Library is ticked
although I don't think it is necessary for this code.
If I open Outlook first and then send the email everything works OK,
the email gets sent and no error messages. It seems that Outlook does
not like the .Display command when it is not already loaded.
I have also tried using Redemption but get the same error message
(although I'm a bit unsure about the code here so that *may* be a bit
misleading).
Access NG have not come up with any clear solution, as yet.
Has anyone else come across the problem, could SP3 have broken
Outlook.
TIA
Peter Hibbs.