Outlook/Excel routine to extract a regex from every email in a folder

  • Status: Closed
  • Prêmio: €20
  • Inscrições Recebidas: 7
  • Vencedor: tushchak0716

Painel de Comentários

  • gabrieldileo
    Proprietário do Concurso
    • 2 meses atrás

    Hi, I have the regex already, what I need is for the routine to check every email in an outlook folder, and copy paste the regex I programmed. Take a look at my example code. The first to submit a working solution wins

    • 2 meses atrás
    1. rupamkumarmandal
      rupamkumarmandal
      • 2 meses atrás

      Hi,
      I’ve the VBA code (with routine check) ready and tested in my email box with multiple scenarios and sample RegExp. I’ve submitted the demonstration (VBA OutPut) as a screenshot in my submission #7 . Let me know your emailID so that I can send the code and the VB File for further review.
      As per your requirement few parameter values to be updated when you run it in your computer (Like Email Folder Name, The RegExp, routine check timings). Please also let me know for any modification require or any query.
      Please let me know your feedback to proceed further. Looking for your valuable feedback.

      • 2 meses atrás
  • rupamkumarmandal
    rupamkumarmandal
    • 2 meses atrás

    Hi,
    I’ve the VBA code (with routine check) ready and tested in my email box with multiple scenarios and sample RegExp. I’ve submitted the demonstration (VBA OutPut) as a screenshot in my submission #7 . Let me know your emailID so that I can send the code and the VB File for further review.
    As per your requirement few parameter values to be updated when you run it in your computer (Like Email Folder Name, The RegExp, routine check timings). Please also let me know for any modification require or any query.
    Please let me know your feedback to proceed further. Looking for your valuable feedback.

    • 2 meses atrás
  • uali0012
    uali0012
    • 2 meses atrás

    I am waiting for your offer. Please give me the offer.

    • 2 meses atrás
  • Krish148
    Krish148
    • 2 meses atrás

    Option Explicit
    Public Sub SaveMessageAsMsg()
    Dim oMail As Outlook.MailItem
    Dim objItem As Object
    Dim sPath As String
    Dim dtDate As Date
    Dim sName As String
    Dim enviro As String
    enviro = CStr(Environ("USERPROFILE"))
    For Each objItem In ActiveExplorer.Selection
    Set oMail = objItem
    sName = oMail.Subject
    ReplaceCharsForFileName sName, "_"
    dtDate = oMail.ReceivedTime
    sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
    sPath = enviro & "\Documents\"
    Debug.Print sPath & sName
    oMail.SaveAs sPath & sName, olMSG
    Next
    End Sub
    Private Sub ReplaceCharsForFileName(sName As String, _
    sChr As String _
    )
    sName = Replace(sName, "/", sChr)
    sName = Replace(sName, "\", sChr)
    sName = Replace(sName, ":", sChr)
    sName = Replace(sName, "?", sChr)
    sName = Replace(sName, Chr(34), sChr)
    sName = Replace(sName, "", sChr)
    sName = Replace(sName, "|", sChr)
    End Sub

    • 2 meses atrás

Principais inscrições deste concurso

Ver Mais Inscrições

Como começar com concursos

  • Publique seu concurso

    Publique seu Concurso Rápido e fácil

  • Receba muitas inscrições

    Obtenha Toneladas de Inscrições De todo o mundo

  • Premie a melhor inscrição

    Premie a melhor inscrição Baixe os arquivos, é fácil!

Poste um Concurso ou Junte-se a nós Hoje!