Hoje estou desenvolvendo mensagens de usuário. Uma cópia é armazenada no banco de dados e a outra cópia precisa ser enviada para uma caixa de correio especificada. Não sei se o servidor suporta, as informações da mensagem serão enviadas. enviar e-mail. Primeiro, deve haver uma declaração On Error Resume Next
Então tente retomar o exemplo do jmail:
Escurecer JMail
Definir JMail=Server.CreateObject(JMail.Message)
Faça um julgamento sobre a instância. Se o componente não for instalado com êxito, nenhuma instância será criada:
Se JMail não for nada, então
Response.Write não é compatível
Outro
Suporte Response.Write
Terminar se
Os demais componentes são processados da mesma forma, o que é muito simples.
É melhor lidar com isso no arquivo global, para que você não precise se preocupar com isso ao usá-lo.
A melhor forma é colocar a geração do email em uma tabela e depois conversar sobre o envio.
Copie o código do código da seguinte forma:
Função IsObjInstalled(strClassString)
Em caso de erro, retomar o próximo
IsObjInstalled = Falso
Errar = 0
DimxTestObj
Definir xTestObj = Server.CreateObject(strClassString)
Se 0 = Err Então IsObjInstalled = True
Definir xTestObj = Nada
Errar = 0
Função final
Código de julgamento:
se IsObjInstalled(JMail.Message)=True então{
se IsObjInstalled(JMail.Message) =True então
SendStat = Jmail(***@vevb.com, mensagem do cliente da Internet, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Mensagem do usuário do site</title></head><body>Pessoa da mensagem: &txtname&<br>Sexo: &xingbie&<br>Site de consultoria: &txtweb&<br>Informações de contato: &txttel&<br>Conteúdo da mensagem :&cont. ent&<br>Endereço IP:&ipaddress&<br>Hora da mensagem:&now()&<br><br>Este e-mail é enviado automaticamente pelo sistema, nenhuma resposta é necessária<!--Script Home www.vevb.com-- ><br><br></body></html>,GB2312,texto/html)
terminar se
}
função de envio jmail
Copie o código do código da seguinte forma:
' ===========================================
'jmail envia e-mail
' ===========================================
Função Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Parâmetros de entrada:
' mailTo endereço de e-mail do destinatário
'mailTopic tópico de email
' mailBody corpo do email (conteúdo)
' mailCharset conjunto de caracteres de correio, como GB2312 ou US-ASCII
' mailContentType formato do corpo do email, como text/plain ou text/html
'Valor de retorno:
'String, OK será retornado após a transmissão bem-sucedida, uma mensagem de erro será retornada se não for bem-sucedida.
'Uso:
' 1) Defina a constante, ou seja, a variável começando com Const
'2) Use um código semelhante ao seguinte para enviar uma mensagem
'Escurecer SendStat
'SendStat = Jmail([email protected], teste Jmail, esta é uma carta de teste!, GB2312, texto/html)
'Resposta.Write SendStat
'******************Defina constantes conforme necessário para iniciar******************
Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = nome chinês do remetente da Lottery Network (usado ao enviar e-mails chineses), como 'Zhang San'
ConstFromNameEn = bc5'O nome em inglês do remetente (usado ao enviar e-mails em inglês), como 'zhangsan'
ConstFrom = [email protected]' endereço de e-mail do remetente, como '[email protected]'
ConstMailDomain = endereço do servidor smtp.163.com'smtp, como smtp.163.com
ConstMailServerUserName = nome de login da caixa de correio do servidor [email protected]'smtp, como 'zhangsan'. Certifique-se de corresponder ao endereço de e-mail do remetente!
ConstMailServerPassword = senha de login da caixa de correio do servidor www.vevb.com'smtp
'****************Defina constantes conforme necessário para terminar****************
'--------------------------------O conteúdo a seguir não precisa ser alterado -------- -------- ---------------
Em caso de erro, retomar o próximo
Escurecer meuJmail
Definir myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = False'Logging
myJmail.ISOEncodeHeaders = False'Mail cabeçalhos não usam codificação ISO-8859-1
myJmail.ContentTransferEncoding = base64'A codificação do correio está definida como base64
myJmail.AddHeader Priority,3'Adicione o cabeçalho do email, não altere!
myJmail.AddHeader MSMail-Priority,Normal'Adicione o cabeçalho do email, não o altere!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'Adicione cabeçalho de email, não altere!
myJmail.AddHeader MimeOLE, produzido por Microsoft MimeOLE V6.00.2800.1441'Adicione o cabeçalho do email, não o altere!
meuJmail.Charset = mailCharset
meuJmail.ContentType = mailContentType
Se UCase(mailCharset) = GB2312 Então
meuJmail.FromName = ConstFromNameCn
Outro
meuJmail.FromName = ConstFromNameEn
Terminar se
meuJmail.From = ConstFrom
meuJmail.Subject = mailTopic
meuJmail.Body = mailBody
meuJmail.AddRecipient mailTo
meuJmail.MailDomain = ConstMailDomain
meuJmail.MailServerUserName = ConstMailServerUserName
meuJmail.MailServerPassword = ConstMailServerPassword
meuJmail.Send ConstMailDomain
meuJmail.Fechar
Definir myJmail = nada
Se errar então
Jmail=Err.Descrição
Err.Limpar
Outro
Jmail = OK
Terminar se
Em caso de erro, vá para 0
Função final