Type Mismatch Native Error -2147352571

Message Share Topic Printable Version Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Topic Search Topic Options Post Reply Create New Topic


   Hi - I'm getting the subject error in my trigger when it runs on schedule automatically, but when I manually run the trigger with the same email text it works fine.  The trigger was working good using the automatic scheduling under 2.3 and the error has only appeared with the 3.0 version.  Any ideas?  I have a vb script that I think may be causing the error:
the data that gets fed to this script is like 000013 or  00014
the script strips out the leading zeros and inserts a number in the database
Sub Main()
 ' commands start here
    Email2DBExtract = RemoveLeadingZeroes(Email2DBExtract)
End Sub
Function RemoveLeadingZeroes(ByVal Str)
    Dim tempStr
    tempStr = Str
    While Left(tempStr,1) = "0" And tempStr <> ""
        tempStr = Right(tempStr,Len(tempStr)-1)
    Wend
    RemoveLeadingZeroes = tempStr
End Function
 
Thanks
 
Pete

Author	Message Share Topic Printable Version Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Topic Search Topic Options Post Reply Create New Topic
pvitt Members Profile Send Private Message Find Members Posts Add to Buddy List New User Joined: 01 Aug 2011 Posts: 16	Post Options Post Reply Quote pvitt Report Post Quote Reply Topic: Type Mismatch Native Error -2147352571 Posted: 01 May 2012 at 5:05pm
	Hi - I'm getting the subject error in my trigger when it runs on schedule automatically, but when I manually run the trigger with the same email text it works fine. The trigger was working good using the automatic scheduling under 2.3 and the error has only appeared with the 3.0 version. Any ideas? I have a vb script that I think may be causing the error: the data that gets fed to this script is like 000013 or 00014 the script strips out the leading zeros and inserts a number in the database Sub Main() ' commands start here Email2DBExtract = RemoveLeadingZeroes(Email2DBExtract) End Sub Function RemoveLeadingZeroes(ByVal Str) Dim tempStr tempStr = Str While Left(tempStr,1) = "0" And tempStr <> "" tempStr = Right(tempStr,Len(tempStr)-1) Wend RemoveLeadingZeroes = tempStr End Function Thanks Pete

pvitt Members Profile Send Private Message Find Members Posts Add to Buddy List New User Joined: 01 Aug 2011 Posts: 16	Post Options Post Reply Quote pvitt Report Post Quote Reply Posted: 01 May 2012 at 8:57pm
	I see where the error is coming from -- nevermind