Há algum tempo, enviei um código de e-mail JMAIL simples. Hoje farei um comentário específico sobre esse código, adicionarei outros dois códigos de formato e darei alguns exemplos simples:
O primeiro é o código principal do jmail.smtpmail:
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Cria um objeto JMAIL
jmail.silent = true 'JMAIL não lançará erros de exceção e os valores retornados são FALSE e TRUE
jmail.logging = true 'Ativar logs de uso
jmail.Charset = "GB2312" 'O código do texto do e-mail é chinês simplificado
jmail.ContentType = "text/html" 'O formato do e-mail é HTML
jmail.ServerAddress = "Endereço do Servidor" 'O servidor que envia e-mails
jmail.AddRecipient Email 'O destinatário do email
jmail.SenderName = "SenderName" 'O nome do remetente do e-mail
jmail.Sender = "Endereço de e-mail" 'O endereço de e-mail do remetente do e-mail
jmail.Priority = 1 'Programa de emergência de e-mail, 1 é o mais rápido, 5 é o mais lento, 3 é o valor padrão
jmail.Subject = "Assunto do email" 'O título do email
jmail.Body = "Mail Body" 'O conteúdo do e-mail
jmail.AddRecipientBCC Email 'O endereço do destinatário cego do email
jmail.AddRecipientCC Email 'O endereço da pessoa que copiou o email
jmail.Execute() 'Executa envio de e-mail
jmail.Close 'Fecha o objeto mail
%>
O componente w3 Jmail4.3 redesenhou sua estrutura interna - usando o objeto Message em vez do objeto único original Jmail.smtpmail para enviar e-mails. Alguns métodos requerem autenticação (como 163, yahoo, etc.), o que pode ser resolvido pelo. seguinte método:
<%
Set jmail = Server.CreateObject("JMAIL.Message") 'Cria um objeto para envio de emails
jmail.silent = true 'Protege erros de exceção e retorna valores FALSE e TRUE j
mail.logging = true 'Habilitar registro de e-mail
jmail.Charset = "GB2312" 'A codificação do texto do email é o padrão nacional
jmail.ContentType = "text/html" 'O formato do e-mail é HTML
jmail.AddRecipient Email 'Endereço do destinatário do e-mail
jmail.From = "E-mail do remetente" 'Endereço de E-MAIL do remetente
jmail.MailServerUserName = "Nome de usuário do e-mail" 'Nome de usuário necessário para efetuar login no servidor de e-mail
jmail.MailServerPassword = "Senha do e-mail" 'Senha necessária para fazer login no servidor de e-mail
jmail.Subject = "Assunto do email" 'O título do email
jmail.Body = "Mail Body" 'O conteúdo do e-mail
jmail.Prority = 1 'Programa de emergência de e-mail, 1 é o mais rápido, 5 é o mais lento, 3 é o valor padrão
jmail.Send("Endereço do Servidor") 'Efetua o envio de e-mail (através do endereço do servidor de e-mail)
jmail.Close() 'Fecha o objeto
%>
Vamos falar sobre como enviar mensagens usando o componente CDONTS da própria Microsoft:
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") 'Cria um objeto de correio
cdomail.Subject = "Assunto do email" 'Título do email
cdomail.From = "E-mail do remetente" 'Endereço do remetente
cdomail.To = "E-mail será de" 'Endereço do destinatário
cdomail.Body = "Mail Body" 'O conteúdo do email
cdomail.Send 'Executar envio
%>
Este método é o mais simples para enviar e-mails, mas também traz alguns problemas, ou seja, poucos servidores abrirão este serviço!
Quando escrevemos programas, costumamos dizer que o código deve ser modularizado, para facilitar a manutenção e portabilidade. Portanto, escreverei aqui este e-mail como uma sub-rotina, que pode ser chamada diretamente ao ligar (claro, se você quiser escrevê-lo como uma função, também é possível, isso depende principalmente do interesse pessoal):
<%
'Descrição do parâmetro
'Assunto: Título do email
'MailAddress: O endereço do servidor de envio, como smtp.163.com
'E-mail: endereço de e-mail do destinatário
'Remetente: Nome do remetente
'Conteúdo: Conteúdo do e-mail
'Fromer: endereço de e-mail do remetente
Sub SendAction(subject, mailaddress, email, sender, content, fromer)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Cria um objeto JMAIL
jmail.silent = true 'JMAIL não lançará erros de exceção e os valores retornados são FALSE e TRUE
jmail.logging = true 'Ativar logs de uso
jmail.Charset = "GB2312" 'O código do texto do e-mail é chinês simplificado
jmail.ContentType = "text/html" 'O formato do e-mail é HTML
jmail.ServerAddress = mailaddress 'O servidor que envia e-mail
jmail.AddRecipient Email 'O destinatário do email
jmail.SenderName = sender 'O nome do remetente do e-mail
jmail.Sender = fromer 'O endereço de e-mail do remetente do e-mail
jmail.Priority = 1 'Programa de emergência de e-mail, 1 é o mais rápido, 5 é o mais lento, 3 é o valor padrão
jmail.Subject = subject 'O título do e-mail
jmail.Body = content 'O conteúdo do e-mail
'Como BCC e CC não são usados, essas duas frases estão bloqueadas aqui. Se precisar, você pode restaurá-las aqui.
'jmail.AddRecipientBCC Email 'O endereço do destinatário do e-mail cego
'jmail.AddRecipientCC Email 'O endereço da cópia carbono do e-mail
jmail.Execute() 'Executa envio de e-mail
jmail.Close 'Fecha o objeto mail
Finalizar sub
'Exemplo de chamar este Sub
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "Este é um email de teste enviado usando JMAIL"
strContent = "Componente JMail enviado teste com sucesso!"
strEmail = " [email protected] "
strFromer = " [email protected] "
strMailAddress = "mail.ubbcn.com"
Chame SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
O texto acima é minha opinião aproximada sobre o código para envio de e-mails. Gostaria de agradecer seu conselho!