VB.NET ExchangeトランスポートAGENT

Question

は、私はC＃を使用して同じ質問を投稿が、どんな答えを受けていなかったので、私はそのトランスポートエージェントを作成しようとしていますVB

を使用して同じ質問を投稿しようとするつもりです送信メールの件名が空でないことを確認します。そうであれば、件名に「kranichs jewelers」を追加します。私は交換機にこのトランスポートエージェントをインストールするたび

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 

は、コードに問題がある

.. ：それが空でない場合、それは私がVBで持って

コード送信メールの形式をpropercasesサーバーがフリーズし、電子メールがサーバーを離れません。すべてのヘルプは

を高く評価され

Answer 1

あなたが出て起動しようとすることができる2つのものがあります：

1. と上記のクリス・ハースの提案を確認してくださいいずれかのtry/catchを追加ヌルに対処するために、具体的時計はandalso e.mailitem.subject ISNOT何も、その後
   「苦境ケース
   012 andalso e.mailitem.message ISNOT何e.mailitem ISNOT何もない場合

   ：それはこのようなものを使用するためのelseif e.mailitem is nothing andalso e.mailitem.mesasge is nothing
   '件名が設定されていないため、設定してください。
   エンド

2. 何もしないコードを削除し、ちょうどちょうどの輸送剤を有することにより、（薄暗いように私はとして整数= 2）Exchangeが出失速されていないことを確認するために、それを置き換えるために、いくつかのダミーのコードを追加した場合いずれかの種類。