Kan ikke sende krypteret mail med Mail.SendEncrypted()
HejsaJeg har et stort problem med komponenterne ASPEncrypt og ASPEmail fra Persits Software.
Jeg kan ikke sende krypteret emails når installationen ligger på en Win 2003 server. Det samme script virker fint på min Win 2000 server.
Fejlbeskeden er "error 'c0000005'" på linjen hvor der står "Mail.SendEncrypted Msg2"
Hvad går der mon galt ????
---- Kode: ----
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Mail = Server.CreateObject("Persits.MailSender")
Set Context = CM.OpenContext("", True )
Set RecipientCert = CM.ImportCertFromFile(server.MapPath("cert_676852300.cer"))
Set Msg2 = Context.CreateMessage(true) 'Use 3DES(168bit)
Msg2.AddRecipientCert RecipientCert
'Send Encrypted Message
Mail.isHTML = true
Mail.Host = strMailhost
Mail.Subject = "TEST"
Mail.From = strSenderMail
Mail.FromName = "Tester"
Mail.AddAddress strRecipient
Mail.Body = "Dette er en krypteret kvittering.....<br>"
Mail.SendEncrypted Msg2
Set RecipientCert =nothing
Set Context =nothing
Set Mail =nothing
Set CM=nothing
set Msg2 = nothing