Forums Neueste Beiträge
 

Option strict On

22/06/2009 - 12:49 von Anton Hengg | Report spam
Hallo Zusammen,

was muss ich tun damit diese Function mit Option Strict On làuft.

Das Problem ist dass ich die Function nur zum Laufen bringe wenn arrBytes as
Object ist.

Private Function Make_Mail_SearchID(ByVal Mail As Redemption.SafeMailItem)
As String
Const PR_SEARCH_KEY As Integer = &H300B0102
Dim arrBytes() As Object
Dim ID As String = ""
Try
arrBytes = Mail.Fields(PR_SEARCH_KEY)
For i As Integer = LBound(arrBytes) To UBound(arrBytes)
ID = ID & Hex(CInt(arrBytes(i)))
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
Make_Mail_SearchID = ID
End Function

Viele Grüße
Anton
 

Lesen sie die antworten

#1 Christoph Schneegans
23/06/2009 - 02:29 | Warnen spam
Anton Hengg schrieb:

Das Problem ist dass ich die Function nur zum Laufen bringe wenn
arrBytes as Object ist.

Private Function Make_Mail_SearchID(ByVal Mail As Redemption.SafeMailItem) As String
Dim arrBytes() As Object
arrBytes = Mail.Fields(PR_SEARCH_KEY)



Welchen Typ hat denn SafeMailItem.Fields laut Dokumentation? Ich
kenne diese Klasse nicht. Mit

Dim arrBytes As Byte()
arrBytes = DirectCast(Mail.Fields(PR_SEARCH_KEY), Byte())

/könnte/ es funktionieren.

Die Synchronisierung zwischen msnews.microsoft.com und anderen NNTP-
Server hakt offenbar noch immer, denn dein Posting
<news:4a3f61b6$0$2298$
hat es nicht dorthin geschafft; meines wird wohl dasselbe Schicksal
erleiden. Ich empfehle, gelegentlich
<http://google.com/group/microsoft.p...net.vb>
aufzusuchen oder die Gruppe über mehr als einen Server zu
abonnieren, um keine Antworten zu übersehen.

<http://schneegans.de/sv/> · Schema-Validator für XML

Ähnliche fragen