Random Error Numbers?

[ChrisCalvert]

I am having a real problem with a function I am using to send emails. It seems to be throwing up random error number when it encounters a single problem, namely "Outlook did not recognize one or more names." The problem is that the
error number seems to be random. I have tracked the error, running the same code, the same table and the error has been different almost every time. ONE time out of about thirty, it repeated. Anyone experienced anything like this?

-chris

 

[mp9]

What code are you using to send the e-mail? I successfully use the code at

http://www22.brinkster.com/accessory/modules/005.shtml

to send mails via Outlook.

http://www22.brinkster.com/accessory/

 

[ChrisCalvert]

Here is the code, it is a slightly modified version of that to allow for correcting email addresses. The error handler fires, but show different errors every time....

---------------------------------------------------
Public Function fctnOutlook(Optional FromAddr, Optional Addr, Optional CC, Optional BCC, _
Optional Subject, Optional MessageText, Optional Vote As String = vbNullString, _
Optional Urgency As Byte = 1, Optional EditMessage As Boolean = True)


On Error GoTo Error_Handler
' Code sample from Accessory

http://www22.brinkster.com/accessory

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient

Set objOutlook = CreateObject("Outlook.Application&quot
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

If Not IsMissing(FromAddr) Then
.SentOnBehalfOfName = FromAddr
End If

If Not IsMissing(Addr) Then
Set objOutlookRecip = .Recipients.Add(Addr)
objOutlookRecip.Type = olTo
End If

If Not IsMissing(CC) Then
Set objOutlookRecip = .Recipients.Add(CC)
objOutlookRecip.Type = olCC
End If

If Not IsMissing(BCC) Then
Set objOutlookRecip = .Recipients.Add(BCC)
objOutlookRecip.Type = olBCC
End If

If Not IsMissing(Subject) Then
.Subject = Subject
End If

If Not IsMissing(MessageText) Then
.Body = MessageText
End If

If IsNull(Vote) = False Then
.VotingOptions = Vote
End If

Select Case Urgency
Case 2
.Importance = olImportanceHigh
Case 0
.Importance = olImportanceLow
Case Else
.Importance = olImportanceNormal
End Select

For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next

If EditMessage Then
.Display
Else
.Save
.Send
End If

End With
Set objOutlook = Nothing

Exit Function

Error_Handler:
MsgBox Err.Number 'Fires, but with...who knows what showing.

End Function

 

[mp9]

Is the text of the error always the same? If so, you could use that to trap the errors generically rather than the error number, which seems to be a bit of a moving target!

http://www22.brinkster.com/accessory/

 

[ChrisCalvert]

Hmmm, that is a great idea.
I guess I was so bent on knocking down the door I didn't see the hole in the wall... Thanks!


-chris