Este projeto agora requer entrega de e -mail cronometrada usando ASP, e muitas pessoas dizem que o ASP não tem essa função.
Na verdade, eu expliquei em detalhes em um artigo anterior, mas essa é uma tarefa cronometrada, e a idéia básica é a mesma.
Referência: Métodos para implementar tarefas de tempo no ASP
Aqui usamos o componente do Jmail para fazê -lo. O conteúdo do email é uma única página da Web e pode ser personalizada livremente.
Vamos dar uma olhada no código para enviar e -mails cronometrados:
A cópia do código é a seguinte:
Função Gethttppage (URL)
objxml dim
Definir Objxml = CreateObject ("msxml2.serverxmlhttp.3.0") ligue para o componente xmlHttp para testar se o espaço suporta xmlHttp
objxml.open "get", url, false 'false significa obter código da web de maneira síncrona, entender o que é a sincronização? O que é assíncrono?
objxml.send () 'Send
gethttppage = bbytestobstr (objxml.ResponseBody) 'retorna informações e use a função para definir a codificação.
Definir objxml = nada'close
Função final
Função bbytestobstr (corpo)
objStream dim
set objStream = createObject ("adodb.stream") '// chamando o componente adodb.stream
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write corpo
objstream.Position = 0
objstream.type = 2
objstream.charset = "gb2312"
'Converta a codificação padrão UTF-8 original para a codificação GB2312, caso contrário, você receberá código ilegal ligando diretamente uma página da Web com caracteres chineses com XMLHTTP.
bbytestobstr = objStream.readText
objstream.close
definir objstream = nada
Função final
Sub SendAction (Assunto, MailAddress, TOMAIL, Remetente, Conteúdo, Fromemail, Fromer, Nome de usuário, Senha)
Set ojmail = createObject ("jmail.message")
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.FromName = Fromer
ojmail.From = FORMEAIL
ojmail.charset = "GB2312"
ojmail.MailServerUserName = nome de usuário
ojmail.mailserverpassword = senha
ojmail.contentTransferencoding = "base64"
ojmail.htmlbody = conteúdo do conteúdo de email
ojmail.body = content '"Nossos e -mails estão no formato HTML, mas seu software de visualização de e -mail pode não suportá -los"
OJMAIL.Addrecipient TOMAIL Endereço do destinatário
ojmail.subject = sujeito 'título
ojmail.send (MailAddress)
Final sub
Assunto Dim, MailAddress, Toemail, remetente, Fromemail, Fromer, Senha, Ojmail, Nomes de Userr, Tomail