Redemption Issue

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Outlook 2003 sp2, VB 2005 sp1 - Uses Safe Mail (Redemption), but some of our
workstation still show a security popup and others do not. It's a mixed bag.
All DLLs are properly loaded with no major differances between the
workstations.

The Security shows twice, one for each of the below calls:

Private Sub m_AppExecuteButton_Click(ByVal Ctrl As
Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
Handles m_AppExecuteButton.Click
Try

'Make sure the email is addressed
If Me.ThisMailItem.Recipients.Count = 0 Then
MessageBox.Show("There must be at least one name or
distribution list in the To, CC, or Bcc box.", "Microsoft Office Outlook",
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
Else
If Me.ThisMailItem.Recipients.ResolveAll() = False Then
MessageBox.Show("Unable to resolve all recipients,
please check your recipient list.", "Microsoft Office Outlook",
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
End If

'Local Variables
Dim objProperty As Outlook.ItemProperty

'Send Email
Me.ThisMailItem.Send()

'Cleanup
objProperty = Nothing

Catch ex As Exception
Throw
End Try
End Sub


Please advise.
 
Could you show where ThisMailItem coming from, plese? This is an external application, not an add-in?
 
Back
Top