<%@language="VBScript"%>
<% Response.Expires = 0 %>
<%
'nahrani privatniho certifikatu DKIM
set cert = Server.CreateObject("Chilkat_9_5_0.Cert")
pfxFilename = server.MapPath("data_shopy/bikestore/bikestore_cert_private.pfx")
pfxPassword = "unreal"
success = cert.LoadPfxFile(pfxFilename,pfxPassword)
If (success <> 1) Then
Response.Write "chyba cert 1
" & Server.HTMLEncode( cert.LastErrorText) & "
"
End If
set privKey = cert.ExportPrivateKey()
If (privKey Is Nothing ) Then
Response.Write "chyba cert 2
" & Server.HTMLEncode( cert.LastErrorText) & "
"
End If
set mailman = Server.CreateObject("Chilkat_9_5_0.MailMan")
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
Response.Write "chyba 1
" & Server.HTMLEncode( mailman.LastErrorText) & "
"
End If
set dkim = Server.CreateObject("Chilkat_9_5_0.Dkim")
success = dkim.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
Response.Write "chyba 2
" & Server.HTMLEncode( dkim.LastErrorText) & "
"
End If
set email = Server.CreateObject("Chilkat_9_5_0.Email")
'smtp server
mailman.SmtpHost = "email.ignum.cz"
mailman.SmtpUsername = "admin@bikestore.cz"
mailman.SmtpPassword = "unreal"
mailman.SmtpPort = 587
'obsah a prijemce emailu
email.Subject = "Test dkim"
email.Body = "Příšerně žluťoučký kúň úpěl ďábelské ódy"
strFrom = "michal.zak@bikestore.cz"
strTo = "dvalek555@gmail.com"
email.FromName = ""
email.FromAddress = strFrom
email.AddTo "",strTo
'email.AddFileAttachment Server.MapPath("html_obj/") & "\" & "obj_bikestore_720130726.htm" 'priloha
mimeData = mailman.RenderToMimeBytes(email)
'verejny DKIM klic
dkim.DkimDomain = "bikestore.cz"
dkim.DkimSelector = "bikestore"
'privatni DKIM klic
privatniklic = dkim.SetDkimPrivateKey(privKey)
If (privatniklic <> 1) Then
Response.Write "chyba 3
" & Server.HTMLEncode( dkim.LastErrorText) & "
"
End If
dkimSignedMime = dkim.AddDkimSignature(mimeData)
'odeslani emialu
odeslat = mailman.SendMimeBytes(strFrom,strTo,dkimSignedMime)
If (odeslat <> 1) Then
Response.Write "chyba 4
" & Server.HTMLEncode( mailman.LastErrorText) & "
"
End If
zavrit_smtp = mailman.CloseSmtpConnection()
If (zavrit_smtp <> 1) Then
Response.Write "" & Server.HTMLEncode( "Connection to SMTP server not closed cleanly.") & "
"
End If
%>