AGENT VB.NET ÉCHANGE DE TRANSPORT

Question

Je posté la même question en utilisant c #, mais n'a pas reçu de réponse, donc je vais essayer de poster la même question en utilisant VB

Je suis en train de créer un agent de transport qui permet de vérifier la ligne d'objet du courrier électronique sortant n'est pas vide, si elle est alors il ajoute: « bijoutiers Kranichs » à la ligne de sujet. Si ce n'est pas vide, il propercases le format du courrier électronique sortant

le code je dois en vb:

Imports System

Imports System.Collections.Generic

Imports System.Text

Imports Microsoft.Exchange.Data.Transport

Imports Microsoft.Exchange.Data.Transport.Routing

Imports Microsoft.Exchange.Data.Transport.Smtp


Namespace mySubjectAgent

    NotInheritable Class myRoutingFactory

        Inherits RoutingAgentFactory

        Public Overrides Function CreateAgent(ByVal server As SmtpServer) As RoutingAgent
            Return New MyAgent
        End Function

    End Class

    Public Class MyAgent
        Inherits RoutingAgent

        Private Sub MyEndOfDataHandler(ByVal source As SubmittedMessageEventSource, ByVal e As QueuedMessageEventArgs) Handles Me.OnSubmittedMessage
            If e.MailItem.Message.Subject.Length = 0 Then
                e.MailItem.Message.Subject = "Kranichs Jewelers"
            Else
                e.MailItem.Message.Subject = StrConv(e.MailItem.Message.Subject, VbStrConv.ProperCase)
            End If
        End Sub

    End Class

End Namespace

le problème avec le code est .. chaque fois que j'installer cet agent de transport vers le serveur d'échange, les Qué se fige et pas de feuilles de courrier électronique le serveur.

toute aide est appréciée

Answer 1

Il y a deux choses que vous pouvez essayer de commencer:

1. Vérifier la suggestion de Chris Haas ci-dessus et soit ajouter un try / catch pour traiter des valeurs nulles, ou regarder spécifiquement pour elle d'utiliser quelque chose comme ceci:

   si rien e.mailitem de IsNot AndAlso e.mailitem.message IsNot rien AndAlso e.mailitem.subject IsNot rien alors
   'Fix cas
   elseif e.mailitem IsNot rien AndAlso e.mailitem.mesasge IsNot rien alors
   «Sous réserve n'est pas réglé, allez-y et un ensemble.
   end if

2. Supprimer le code qui ne fait rien et il suffit d'ajouter un peu de code factice pour le remplacer (comme Dim i As Integer = 2) pour assurer que les échanges ne sont pas en perte de vitesse sur tout en ayant un agent de transport de toute nature.