Set EnviarEmail = Server.CreateObject("Persits.MailSender")
EnviarEmail.Host = smtp
EnviarEmail.Username = remetente_usuario
EnviarEmail.Password = remetente_senha
EnviarEmail.AddAttachment Server.MapPath(anexo_arquivo)
EnviarEmail.AddEmbeddedImage Server.MapPath(anexo_imagem), "imagem"
EnviarEmail.Port = porta
EnviarEmail.From = remetente_email
EnviarEmail.FromName = remetente_nome
EnviarEmail.AddAddress destinatario_email
EnviarEmail.Subject = assunto
EnviarEmail.Body = mensagem
EnviarEmail.IsHTML = True
EnviarEmail.Send
