PIECE OF CAKE - Obtendo Endereço IP

Monitorar as estações onde a aplicação que desenvolvemos está executando requer analisarmos o Nº do IP da máquina onde está processando.

Este código ajuda a recuperar essa informação.

Function GetIPAddress()
    ' © 2007-20 Alefe & Bete Processamento de Dados LTDA - ME, except where noted, all rights reserved.
    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Description: Retorna IP

    Const strComputer As String = "."   ' Nome do computador. O "." representa o computador local
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
    Dim strIPAddress As String

    ' Conectando-se ao serviço WMI
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    ' Obter todos os adaptadores de rede habilitados para TCP / IP
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    ' Obter todos os endereços IP associados a esses adaptadores
    For Each IPConfig In IPConfigSet
        Let IPAddress = IPConfig.IPAddress
        If Not IsNull(IPAddress) Then
            Let strIPAddress = strIPAddress & Join(IPAddress, ", ")
        End If
    Next

    Let GetIPAddress = strIPAddress
End Function

#A&A #PIECEOFCAKE #POC #VBA #IP #Address

Consulte-nos

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

Excel Tips - Convertendo conteúdo notação A1 para L1C1 - Convert A1 notation to R1C1

Consultancy in Excel, Access, VBA & PowerPoint projects

DESENVOLVO APLICAÇÕES

Perguntas, Questões e Esclarecimentos

A automação no MS Excel é uma forma de transformamos tempo em procedimentos.

Poupa muito o nosso tempo !

Invariavelmente ao automatizarmos um processo precisaremos fazer referências a diversos Ranges e isso pode ser simplificado internamente no nosso código se convertermos a nossa notação A1 para L1C1 (ou R1C1 em inglês).

O estilo de referência A1

Por padrão, o Excel usa o estilo de referência A1, que se refere a colunas com letras (A até IV, para um total de 256 colunas) e se refere a linhas como números (1 a 65.536). Essas letras e números são chamados de cabeçalhos de linha e coluna. Para se referir a uma célula, digite a letra da coluna seguida pelo número da linha. Por exemplo, D50 se refere à célula na interseção da coluna D com a linha 50. Para se referir a um intervalo de células, digite a referência para a célula que está no canto superior esquerdo do intervalo, digite dois-pontos (:) e, em seguida, digite a referência à célula que está no canto inferior direito do intervalo.

O estilo de referência L1C1

O Excel também pode usar o estilo de referência L1C1, na qual as linhas e as colunas na planilha são numeradas. O estilo de referência L1C1 é útil se você desejar contar (computar) as posições da linha e coluna no seu código VBA. No estilo L1C1, o Excel indica o local de uma célula com um "L" seguido de um número de linha e um "C" seguido de um número de coluna.

 Como? Simples assim:

  Range("$E$51").Address(ReferenceStyle:=xlR1C1)

ou

  ActiveCell.Address(ReferenceStyle:=xlR1C1)

Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...

Tags: VBA, Excel, R1C1, L1C1, Range, address, cell, célula, endereço, convert, conversão, notation, notação,

VBA Excel Tips - Converta os endereços de eMail em hyperlink - Convert email address to hyperlink

|Blog Office VBA | Blog Excel | Blog Access | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Acredito ser importante propiciar facilidades aos nossos usuários.

Suponha que um dos seus relatórios demonstre uma listagem de Clientes ou Fornecedores com os emails nela. Talvez pudesse acrescentar uma facilidade para o seu usuário caso este desejasse enviar um e-mail.

Transforme os endereços de email em hyperlink e permita que um clique direto no respectivo endereço listado o encaminhe para isso.

Sub Convert_to_Hyperlink()

    Dim rng As Range 

    Dim cell As Range

    'Defina qui o Range onde tem os seus emails.

    Let rng = Range("B2:B100")

    For Each cell In rng 

        'Caso a célula esteja em branco ignore-a.

        If cell.Value <> "" Then 

            cell.Hyperlinks.Add ANCHOR:=cell, Address:="mailto:" & cell.Value, TextToDisplay:=cell.Value 

        End If 

    Next cell

End Sub

Tags: VBA,Tips, Excel, email, e-mail, hyperlink, address

VBA Tips - Validando endereços de eMail - Validate E-mail Addresses

| Blog Office VBA | Blog Excel | Blog Access |

Imagine que você tenha um banco de dados enorme, cheio de endereços de email, ou que você tenha copiado uma página da web que tinha endereços de correio eletrônico com textos desnecessários e você queira destacar as ocorrências inválidas ou extrair os endereços válidos de e-mail deles.

Function CheckEmail(ByVal EmailAddress As String)

    Dim sArray As Variant, sItem As Variant

    Dim n As Long, c As String

    'Find the number of @, it should be exactly one.

    n = Len(EmailAddress) - Len(Application.Substitute(EmailAddress, "@", ""))

    If n <> 1 Then CheckEmail = False: Exit Function

    ReDim sArray (1 To 2)

    sArray (1) = Left(EmailAddress, InStr(1, EmailAddress, "@", 1) - 1)

    sArray (2) = Application.Substitute(Right(EmailAddress, Len(EmailAddress ) - Len(sArray(1))), "@", "")

    For Each sItem In sArray

        'There should be atleast one character before @.

        If Len(sItem) <= 0 Then CheckEmail = False: Exit Function

        For n = 1 To Len(sItem)

            c = LCase(Mid(sItem, n, 1))

                       

            If InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 And Not IsNumeric(c)  Then CheckEmail = False: Exit Function

        Next

        'Extreme characters must not be period or dot (.)

        If Left(sItem, 1) = "." Or Right(sItem, 1) = "."  Then CheckEmail = False: Exit Function

     Next

    'There must be atleast one period or dot after @

    If InStr(sArray(2), ".") <= 0  Then CheckEmail = False: Exit Function

    'After the last dot or period, there must be either exactly 2 or 3 characters.

    n = Len(sArray(2)) - InStrRev(sArray(2), ".")

    If n <> 2 And n <> 3  Then CheckEmail = False: Exit Function

    'It must not contain 2 or more consecutive periods or dots.

    If InStr(EmailAddress, "..") > 0  Then CheckEmail = False: Exit Function

    CheckEmail = True

End Function

Tags: VBA, email, e-mail, address, addresses, validate, validando

VBA Outlook - Obtendo o endereço SMTP da um pasta pública do Exchange

| Blog Office VBA | Blog Excel | Blog Access | 

Ok, é um post mais técnico, mas certamente útil para os desenvolvedores...

Cada pasta na hierarquia do Exchange Server Public pode ter um endereço de e-mail. Caso saiba o endereço do SMTP, pode enviar mensagens, ou mesmo pedidos de reunião (Invites), diretamente desta pasta. 
O código abaixo mostra como obter o endereço da pasta usando a biblioteca Redemption para evitar o desencadeamento solicitado pela segurança do Outlook.

Também pode utilizar a mesma técnica com o objeto AddressEntry CDO, mas obviamente isso provocaria avisos de segurança em muitos ambientes (versões/instalações) do Outlook.

Use esta versão de código com uma biblioteca qualquer de 'Resgate' de terceiros (Por exemplo o SafeOutlookLibrary), para evitar os avisos de segurança geradas por tentativas de acesso aos objetos e as propriedades de endereço quando o Outlook E-mail Security Update estiver instalado.

Function R_GetPFAddress(objFolder)

    Dim oSafeFolder 'As New Redemption.MAPIFolder

    Dim objUtils 'As Redemption.MAPIUtils

    Dim arrBytes

    Dim strAddress, strEntryID 'As String

    Dim oAE 'As Redemption.AddressEntry

    Const PR_ADDRESS_BOOK_ENTRYID = &amp; H663B0102

    Const PR_EMAIL = &amp; H39FE001E

    On Error Resume Next

    Set objUtils = CreateObject ("Redemption.MAPIUtils")

    Set oSafeFolder = CreateObject ("Redemption.MAPIFolder")

    Let oSafeFolder.Item = objFolder

    Let arrBytes = oSafeFolder.Fields (PR_ADDRESS_BOOK_ENTRYID)

    Let strEntryID = objUtils.HrArrayToString (arrBytes)

    Set oAE = objUtils.GetAddressEntryFromID (strEntryID)

    Let R_GetPFAddress = oAE.Fields (PR_EMAIL)

 End Function

Reference:

Fonte: OutlookCode

Inspiration:

Tags: VBA, outlook, SMTP, exchange, address, folder, pasta, e-mail, email, mail, redemption, MAPI,