Catastrophic fail

[staticbob]

Guys,

I am intermittently getting a Catastrophic fail error when trying to send e-mail messages through Outlook. I am not seeing this all the time, I cannot tie it down to specific users, mail profiles, machines, servers etc etc. I have posted the exception stack trace below, and also the code/module it seems to be hitting the error in. Has anybody had any experience of this, or can anybody see any issues with my code ?

Like I said, this is intermittent, 75% of the time it is working fine.

Thanks in advance,
Bob

EDIT - I should mention that I am using Outlook Redemption to bypass security messages, but this has never been an issue, its always worked well.

Exception: COMException
Stack Trace:
at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)
at Microsoft.VisualBasic.CompilerServices.LateBinding.LateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)
at SQLWorkbook.EMail.sendnotification(String docshortname, String savepath, String doclongname, String documentpath)
at SQLWorkbook.uc_MaterialsReceived.btn_save_Click(Object sender, EventArgs e)

Public Sub sendnotification(ByVal docshortname As String, _
     ByVal savepath As String, ByVal doclongname As String, _
     ByVal documentpath As String, ByVal ContractID As String, _
     ByVal Subject As String)
 
        Try
            Dim pdb As PWBdbase.PWBdbase = New PWBdbase.PWBdbase
 
            Dim recipients As String = ""
            Dim dt As DataTable = pdb.ContractStaff.Table(ContractID)
            For Each row As DataRow In dt.Rows
                If pdb.Nz(row(docshortname.ToString), False) Then
                    recipients &= pdb.Nz(row("Email"), "") & vbTab
                End If
            Next
            If Right(recipients, 1) = vbTab Then recipients = Left(recipients, Len(recipients) - 1)
            Dim recipientlist() = Split(recipients, vbTab)
            If recipientlist.GetUpperBound(0) = -1 Then Return
 
            Dim appOutlook As Object
            Dim mi As Object
            Dim Created As Boolean
            Dim safeitem As Object
            Dim olMailItem As Object
 
            'Generate mail item
            Dim myOlApp = CreateObject("Outlook.Application")
            Dim myNameSpace = myOlApp.GetNamespace("MAPI")
            myNameSpace.Logon()
            safeitem = CreateObject("Redemption.SafeMailItem")
            mi = myOlApp.CreateItem(olMailItem)
            safeitem.Item = mi
            'mi.Display
            If Created Then appOutlook.Quit()
 
            Dim recipientsadded As Boolean = False
            For Each recipient As String In recipientlist
                If Not recipient = "" Then
                    safeitem.Recipients.Add(recipient)
                    recipientsadded = True
                End If
            Next
 
            If recipientsadded Then
                'Get info and send mail
                With safeitem.Item
                    .subject = Subject & " - PWB Automatic Notification"
                    .HTMLBody = "This message has been generated automatically." & "<br>" & _
                    "A new " & doclongname & " has been created for this Contract." & "<br>" & "<br>" & _
                    "Please click this link to goto the folder." & "<br>" & _
                    "<a href=" & Chr(34) & savepath & Chr(34) & ">" & savepath & "</a>" & "<br>" & "<br>" & _
                    "Or click this link to open the new document." & "<br>" & _
                    "<a href=" & Chr(34) & documentpath & Chr(34) & ">" & documentpath & "</a>"
                End With
                safeitem.send()
            End If
 
            mi = Nothing
            If Created Then appOutlook.Quit()
            appOutlook = Nothing
            dt.Dispose()
            dt = Nothing
            recipientsadded = Nothing
            recipientlist = Nothing
 
        Catch ex As Exception
           eh.log(ex)
        End Try
 
 
    End Sub

[wild_bill]

"Microsoft.VisualBasic.CompilerServices.LateBinding"
Do you have option explicit turned on?

[staticbob]

I do now, and it still builds/runs and still may or may not show the error ?

Thanks
Bob

[kleinma]

can you find any common links in the actual parameters being used to send the email (ie recipent, message, etc) when the routine fails?

[wild_bill]

Sorry, I meant option strict.

[staticbob]

OK, Option Strict disallows late binding which I need to use in this case.

Matt - the only common thing I can see when failing is the fact that the users Outlook profile has some delegated permissions, send on behalf permissions etc. The recipients list always resolves, ie it finds all items in the address list, so its not like I have bad e-mail addresses.