** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - objRegExp.Pattern
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

objRegExp.Pattern

 Responder Responder
Autor
Mensaje
Zuesangel Ver desplegable
Habitual
Habitual
Avatar

Unido: 13/Septiembre/2011
Localización: Guatemala
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Zuesangel Cita  ResponderRespuesta Enlace directo a este mensaje Tema: objRegExp.Pattern
    Enviado: 14/Enero/2022 a las 03:32
Buenas noches estimados, estoy tratando de hacer un campo en Access, como si fuera  el botón de comprobar nombres de Outlook se podrá hacer?. Talvez tendrían algún ejemplo. 
Tengo entendido que con este objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" se puede hacer algo similar.
de antemano muchas gracias por su atención . 
ErmmThumbs Up
Has el Bien y no mires a quien
Arriba
jebcarlos Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 16/Julio/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 247
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jebcarlos Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 14/Enero/2022 a las 04:05
Mira en este enlace.  https://stackoverflow.com/questions/20421471/access-update-query-using-regular-expressions  talvez es lo que buscas.
Aca hay otro link  https://www.geeksengine.com/article/validate-email-vba.html



Editado por jebcarlos - 14/Enero/2022 a las 04:13
Arriba
jilo Ver desplegable
Colaborador
Colaborador


Unido: 19/Diciembre/2004
Localización: TAFALLA
Estado: Sin conexión
Puntos: 957
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita jilo Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Enero/2022 a las 18:17
Hola
en este enlace tambien encontraras algo 
https://vba846.wordpress.com/122-2/
Espero te sirva !!!!!!
Iñaki
Arriba
Zuesangel Ver desplegable
Habitual
Habitual
Avatar

Unido: 13/Septiembre/2011
Localización: Guatemala
Estado: Sin conexión
Puntos: 130
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Zuesangel Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 18/Enero/2022 a las 05:12
muchas gracias por la ayuda proporcionada, muy agradecido.
Me encontré esta función de validación de email en una caja de texto:

'Validar e-mails digitados
Public Function ValidEMail(sEMail As String) As Boolean
  Dim nCharacter As Integer
  Dim Count As Integer
  Dim sLetra As String
  'Verifique que el correo electrónico tenga al menos 5 caracteres (a@b.c)
  If Len(sEMail) < 5 Then
    'El correo electrónico no es válido ya que tiene menos de 5 caracteres
    ValidEMail = False
    MsgBox "El correo electrónico que ingresó tiene menos de 5 caracteres."
    Exit Function
  End If
  'Verificar a existencia de arrobas (@) sin correo electrónico
  For nCharacter = 1 To Len(sEMail)
    If Mid(sEMail, nCharacter, 1) = "@" Then
      '¡Uy! ¡¡¡Encontré una arroba!!!
      'Añadir 1 al contador
      Count = Count + 1
    End If
  Next
  'Verifica o número de arrobas.
  'DEBE tener """UNO""" arroba
  If Count <> 1 Then
    'El correo electrónico no es válido ya que tiene 0 o más de 1 al
    ValidEMail = False
    MsgBox "El número de '@' en el correo electrónico no es válido."
    Exit Function
  Else
    'El correo electrónico tiene 1 en.
    'Comprobar la posición del signo de arroba
    If InStr(sEMail, "@") = 1 Then
      'El correo electrónico no es válido ya que comienza con @
      ValidEMail = False
      MsgBox "El correo electrónico comenzaba con un signo de arroba '@'."
      Exit Function
    ElseIf InStr(sEMail, "@") = Len(sEMail) Then
      'El correo electrónico no es válido ya que termina en @
      ValidEMail = False
      MsgBox "O e-mail termina com uma arroba '@'."
      Exit Function
    End If
  End If
  nCharacter = 0
  Count = 0
  'Verificar a existencia de pontos (.) no e-mail
  For nCharacter = 1 To Len(sEMail)
    If Mid(sEMail, nCharacter, 1) = "." Then
      '¡¡¡OP!!! ¡¡¡Encontré un punto!!!
      'Añadir 1 al contador
      Count = Count + 1
    End If
  Next
  'Consulta el número de puntos.
  'DEBE TENER AL MENOS UN PUNTO.
  If Count < 1 Then
    'El correo electrónico no es válido ya que no tiene puntos..
    ValidEMail = False
    MsgBox "El correo electrónico no es válido ya que no contiene puntos '.'."
    Exit Function
  Else
    'El correo electrónico tiene al menos 1 punto.
    'Posición del punto de control:
    If InStr(sEMail, ".") = 1 Then
      'El correo electrónico no es válido ya que comienza con un punto
      ValidEMail = False
      MsgBox "El correo electrónico comenzaba con un punto '.'."
      Exit Function
    ElseIf InStr(sEMail, ".") = Len(sEMail) Then
      'El correo electrónico no es válido ya que termina con un punto.
      ValidEMail = False
      MsgBox "El correo electrónico termina con un punto '.'."
      Exit Function
    ElseIf InStr(InStr(sEMail, "@"), sEMail, ".") = 0 Then
      'El correo electrónico no es válido ya que termina con un punto.
      ValidEMail = False
      MsgBox "El correo electrónico no tiene punto '.' después del signo de arroba '@'."
      Exit Function
    End If
  End If
  nCharacter = 0
  Count = 0
  'Comprueba que el correo electrónico no tenga puntos consecutivos (..) después del signo de arroba (@).
  If InStr(sEMail, "..") > InStr(sEMail, "@") Then
    'El correo electrónico no es válido, tiene puntos consecutivos después del @.
    ValidEMail = False
    MsgBox "El correo electrónico contiene puntos consecutivos '..' después del signo de arroba '@'."
    Exit Function
  End If
  'Comprueba si el correo electrónico tiene caracteres no válidos
  For nCharacter = 1 To Len(sEMail)
    sLetra = Mid$(sEMail, nCharacter, 1)
    If Not (LCase(sLetra) Like "[a-z]" Or sLetra = "@" Or sLetra = "." Or sLetra = "-" Or sLetra = "_" Or IsNumeric(sLetra)) Then
      'El correo electrónico no es válido porque tiene caracteres no válidos
      ValidEMail = False
      MsgBox "Se ingresó un carácter no válido en el correo electrónico."
      Exit Function
    End If
  Next
  nCharacter = 0
  'Bueno, si la verificación llegó tan lejos, es porque el correo electrónico es válido, así que...
  ValidEMail = True

End Function
---------------------------------------------------------------------------------------------

envio los emails con este codigo:
With oMail
            .To = Me.email_1
            .CC = Me.txtemal_2
            .Subject = Nz(Me.Asunto, "")
            .Body = Nz(Me.Body, "")
            .Importance = olImportanceHigh
            .Send
        End With

en el campo Me.txtemal_2 tiene que llevar dos a mas emails, por el codigo de validacion solo me reconoce un emal entonces cree otro campo txtemail_3, en el codigo lo agrege asi:
     .To = Me.email_1
            .CC = Me.txtemal_2
    .CC = Me.txtemail_3
            .Subject = Nz(Me.Asunto, "")
            .Body = Nz(Me.Body, "")
            .Importance = olImportanceHigh
            .Send
pero solo se envían los dos campos anteriores menos el txtemail_3, alguien sabrá cual seria la sintaxis correcta del código de como enviar dos .CC, .CC o la mejor forma de como enviar dos o más emails en un campo de texto?

Has el Bien y no mires a quien
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable